+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي الأخرى (https://delphi4arab.net/forum/forumdisplay.php?fid=4)
+--- قسم : برامج دلفي من عمل الأعضاء (https://delphi4arab.net/forum/forumdisplay.php?fid=27)
+--- الموضوع : منظومة خاصة بالموظفين في اي مصلحة (/showthread.php?tid=11478)
الصفحات:
1
2
منظومة خاصة بالموظفين في اي مصلحة - Delphi4Us - 25-08-2021
سلام الله عليكم
منظومة بسيطة برمجتها لموظفي مدرسة حسب طلبهم وجعلتها مجانية للتحميل وللجميع فقلت ارفعها هنا ايضا ربما تفيد احد ما
رابط التحميل
https://www.mediafire.com/file/pe5417lwmhowgh0/Gilta.rar/file
نسيت هذا الخط المستخدم
bukra-bold.rar (الحجم : 33.52 ك ب / التحميلات : 214)
RE: منظومة خاصة بالموظفين في اي مصلحة - embarcadero - 25-08-2021
وعليك السلام
بالنسبة للخط لماذا لا تضمنه في الملف التنفيذي
RE: منظومة خاصة بالموظفين في اي مصلحة - Delphi4Us - 26-08-2021
هل تقصد وضعه في الريسورس ومنها تثبيته في مجلد الخطوط
ام انشاء حزمة تثبيت وتثبيته في مجلد الخطوط
ام ان هناك طريقة أخرى غير ما ذكرت تستخدمونها
RE: منظومة خاصة بالموظفين في اي مصلحة - أبو معاذ - 26-08-2021
(26-08-2021, 10:56 AM)Delphi4Us كتب : هل تقصد وضعه في الريسورس ومنها تثبيته في مجلد الخطوط
ام انشاء حزمة تثبيت وتثبيته في مجلد الخطوط
ام ان هناك طريقة أخرى غير ما ذكرت تستخدمونها
أظن أن الأخ يقصد استعمالها دون تثبيتها.
PHP كود :
// first load it in the OnCreate event of a form:
procedure TForm1.FormCreate(Sender: TObject);
begin
AddFontResource('c:\FONTS\MyFont.TTF');
SendMessage(HWND_BROADCAST, WM_FONTCHANGE, 0, 0);
end;
// before application terminates, we must free it:
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
RemoveFontResource('C:\FONTS\MyFont.TTF');
SendMessage(HWND_BROADCAST, WM_FONTCHANGE, 0, 0);
end;
RE: منظومة خاصة بالموظفين في اي مصلحة - bouh25 - 27-08-2021
أعجبتني طريقة البحث و هي تضليل الاحرف الاولى فالرجاء الطرقة الاخ Delphi4Us و شكرا
RE: منظومة خاصة بالموظفين في اي مصلحة - Delphi4Us - 29-08-2021
طريقة مضمنة مع المكون نفسه EhLib.VCL
RE: منظومة خاصة بالموظفين في اي مصلحة - أبو معاذ - 29-08-2021
السلام عليكم.
لاحظت في برنامجك امكانية استدعاء شريطط البحث في Dbgrid و جعل ال Focus عليه.
هل ممكن شرح بسيط لهذا الأمر ؟
جزاك الله خيرا.
RE: منظومة خاصة بالموظفين في اي مصلحة - Delphi4Us - 29-08-2021
وعليكم السلام
كما قلت في التعليق الذي قبله ان شريط البحث مضمن مع المكون المذكور ويكون غير مرئي وغير ظاهر
ويظهر فقط من نافذة الخصائص او عن طريق الكود التالي الذي استخدمته :
كود :
DBGridEh1.SearchPanel.Enabled:=not DBGridEh1.SearchPanel.Enabled;بالنسبة لكلمة البحث كما بالصورة
http://forum.ehlib.com/en/download/file.php?id=531
يمكن التحكم فيها كالتالي:
كود :
unit Unit1;
...
uses ... EhLibLangConsts
...
initialization
EhLibLanguageConsts.SearchPanelEditorPromptText := 'My Search ...';
end.RE: منظومة خاصة بالموظفين في اي مصلحة - larbiparadox - 29-08-2021
(29-08-2021, 06:25 PM)أبو معاذ كتب : السلام عليكم.
لاحظت في برنامجك امكانية استدعاء شريطط البحث في Dbgrid و جعل ال Focus عليه.
هل ممكن شرح بسيط لهذا الأمر ؟
جزاك الله خيرا.
وعليك السلام
يمكنك اظاهره في EhLib ، أو إضغط عل Ctrl+ F تخرج نافذة البحث أخرى
كود :
DBGridEh1.SearchPanel.Enabled:= not DBGridEh1.SearchPanel.Enabled;
DBGridEh1.SetFocus;EhLib هو المفضل لدي ، يمتاز بإظهار المجاميع ، ترقيم السطور ، .... الخ
كما لديه الفلترة كما في Excel
![[صورة: 682586983.jpg]](https://www8.0zz0.com/2021/08/29/19/682586983.jpg)
وأيضا Export الى Excel
جميع هذه الامور موجودة في مجلد Demo مع مكون التثبيت
RE: منظومة خاصة بالموظفين في اي مصلحة - Delphi4Us - 29-08-2021
هنا رابط لموقع المكون وما الذي يمكنه ان يفعله
كود :
http://www.ehlib.com/en/screenshots