imadouzoun

// ترتيب الـ stringgrid حسب الأعمدة ؟ type TMoveSG = class(TCustomGrid); procedure SortGridByCols(Grid: TStringGrid; ColOrder: array of Integer); var i, j: Integer; Sorted: Boolean; function Sort(Row1, Row2: Integer): Integer; var C: Integer; begin C := 0; Res…

// إجعل مكوناتك مثل الزر , مربع التحرير Tedit , Tbutton , Tpanel وغيرها بحواف دائرية procedure MakeRounded(Control: TWinControl); var R: TRect; Rgn: HRGN; begin with Control do begin R := ClientRect; rgn := CreateRoundRectRgn(R.Left, R.Top, R.Right, R.Bottom, …

//دع عرض العمود في الـ TDBgrid يتغير بشكل أوتوماتيكي .. (* هدا الكود عرض الأعمدة بحيث تناسب محتوياتها أيضاً ميزة أخرى هدا السطر من الكود سيخيرك فيما إدا أردت التأثير فقط على العمود الأخير أم على الكل If aChangeAll = False then only the last col will be modifie…

// استعراض الصور في الـ DbGrid ? // في هدا المثال إفعل ما يلي : // 1. اسحب مكوني صورة image إلى الفورم الرئيسي // 2. إملأ هده العناصر بالصور التي تحب من نوع صورة نقطية procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect; DataCol: Integer;…

// هل تريد حقاً تغيير ارتفاع الـ Item في الـ TreeView إليك ما تفعل ? uses CommCtrl; procedure SetTreeViewItemHeight(aTreeView: TTreeView; aItemHeight: Word); begin aTreeView.Perform(TVM_SETITEMHEIGHT, aItemHeight, 0); end; // مثال: procedure TForm1.Button1Clic…

// هل تريد radio button في listBox إليك ما تفعل.... procedure TForm1.ListBox1DrawItem(Control: TWinControl; Index: Integer; Rect: TRect; State: TOwnerDrawState); var drawRect: TRect; begin with ListBox1.Canvas do begin FillRect(rect); drawRect.Left := rect.Lef…

شكراً أخ Anter وإن شاء الله نحو الأمام .. بعد ساعة وربع تماماً سوف أبدأ كالعادة ... إن شاء الله يكون في فائدة و نفع لكل العرب .. عماد ... B) B)

هذا ملف الـ Disk الذي ذكرته قي المشاركة السابقة .... المبرمج عماد .......... B) B) B) Disk.rar

:::::: للمبتدئين ::::: هذا مثال بسيط للغاية يحوي: 1- سورس مع تنفيذي إن شاء الله فيه فائدة 2- سورس + exe معرفة هل يوجد Disk في الـ Driver ? أم لا ؟ المبرمج عماد ........ B) B) B) ملاحظة : لم أستطع تحميل الـ EXE بسبب أن المساحة المخصصة لي قليلة لذلك فقط الـ sour…

// الحصول على اسم الـ cpu function CPUname: string; var Reg: TRegistry; begin CPUname := ''; Reg := TRegistry.Create; try Reg.RootKey := HKEY_LOCAL_MACHINE; if Reg.OpenKey('\Hardware\Description\System\CentralProcessor\0', False) then CPUname := Reg.ReadString…

إخي الكريم essam7 أشكرك على الملاحظة التي في مكانها فعلاً . كما قلت الكود مخيف بس حبيت إطرح هذا الكود لا للإستخدام إنما لزيادة المعلومات لمن لا يعرف هذا الكود فقط .... وأنا بعرف أن الطريقة الصحيحة في البرمجة هي إختصار أكبر عدد ممكن من التعليمات في أسطر قليلة و…

// لازم الاّن تحديث سطح المكتب uses ShlObj; procedure RefreshDesktop1; begin SHChangeNotify(SHCNE_ASSOCCHANGED, SHCNF_IDLIST, nil, nil); end; procedure RefreshDesktop2; var hDesktop: HWND; begin hDesktop := FindWindowEx(FindWindowEx(FindWindow('Progman', 'Prog…

// حمل ملف excel في الـ stringgrid uses ComObj; function Xls_To_StringGrid(AGrid: TStringGrid; AXLSFile: string): Boolean; const xlCellTypeLastCell = $0000000B; var XLApp, Sheet: OLEVariant; RangeMatrix: Variant; x, y, k, r: Integer; begin Result := False; // …

// الان أنقل مجموعة السجلات إلى ملف الـ Excel uses DB; private procedure SendToExcel(aDataSet: TDataSet); uses ComObj, ActiveX, Excel2000; // or Excel97 procedure TForm1.SendToExcel(aDataSet: TDataSet); var PreviewToExcel: TExcelApplication; RangeE: Excel2000.…

// إطبع ملف الـ Excel uses ComObj; procedure TForm1.Button1Click(Sender: TObject); var ExcelApp: OLEVariant; begin // Create an Excel instance ExcelApp := CreateOleObject('Excel.Application'); try ExcelApp.Workbooks.Open('C:\test\xyz.xls'); // you can also mod…

// إطبع ملف الـ Excel uses ComObj; procedure TForm1.Button1Click(Sender: TObject); var ExcelApp: OLEVariant; begin // Create an Excel instance ExcelApp := CreateOleObject('Excel.Application'); try ExcelApp.Workbooks.Open('C:\test\xyz.xls'); // you can also mod…

// الان أنقل مجموعة السجلات إلى ملف الـ Excel uses DB; private procedure SendToExcel(aDataSet: TDataSet); uses ComObj, ActiveX, Excel2000; // or Excel97 procedure TForm1.SendToExcel(aDataSet: TDataSet); var PreviewToExcel: TExcelApplication; RangeE: Excel2000.…

// الان أنقل مجموعة السجلات إلى ملف الـ Excel uses DB; private procedure SendToExcel(aDataSet: TDataSet); uses ComObj, ActiveX, Excel2000; // or Excel97 procedure TForm1.SendToExcel(aDataSet: TDataSet); var PreviewToExcel: TExcelApplication; RangeE: Excel2000.…

// تحديث سطح المكتب uses ShlObj; procedure RefreshDesktop1; begin SHChangeNotify(SHCNE_ASSOCCHANGED, SHCNF_IDLIST, nil, nil); end; procedure RefreshDesktop2; var hDesktop: HWND; begin hDesktop := FindWindowEx(FindWindowEx(FindWindow('Progman', 'Program Manager…

// حمل ملف excel في الـ stringgrid uses ComObj; function Xls_To_StringGrid(AGrid: TStringGrid; AXLSFile: string): Boolean; const xlCellTypeLastCell = $0000000B; var XLApp, Sheet: OLEVariant; RangeMatrix: Variant; x, y, k, r: Integer; begin Result := False; // …