easyDelphi Q&A
+2 تصويتات
29 مشاهدات

01- كيف تظيف الهالبر
02- عند اظافة اليونت التي في الرابط وبعد التنفيذ تتاخل اعمدة الديبيقريد مع بعضه البعض

سُئل في تصنيف Delphi بواسطة (4,210 نقاط) | 29 مشاهدات
 

1 إجابة واحدة

+3 تصويتات
أفضل إجابة

أولا إليك الإجراء التالي

procedure SetGridColumnWidths(Grid: TDBGrid);
const
  DEFBORDER = 10;
var
  temp, n: Integer;
  lmax: array [0..30] of Integer;
begin
  with Grid do
  begin
    Canvas.Font := Font;
    for n := 0 to Columns.Count - 1 do
      //if columns[n].visible then
      lmax[n] := Canvas.TextWidth(Grid.DataSource.DataSet.Fields[n].DisplayLabel) + DEFBORDER;
    grid.DataSource.DataSet.First;
    while not grid.DataSource.DataSet.EOF do
    begin
      for n := 0 to Columns.Count - 1 do
      begin
        //if columns[n].visible then begin
        temp := Canvas.TextWidth(trim(Columns[n].Field.DisplayText)) + DEFBORDER;
        if temp > lmax[n] then lmax[n] := temp;
        //end; { if }
      end; {for}
      grid.DataSource.DataSet.Next;
    end; { while }
    grid.DataSource.DataSet.First;
    for n := 0 to Columns.Count - 1 do
      if lmax[n] > 0 then
        Columns[n].Width := lmax[n];
  end; { With }
end;

ثانيا قم بإستدعائها في أي إجراء

SetGridColumnWidths(DBGrid_Name);

 

تم الرد عليه بواسطة (730 نقاط)
مختارة بواسطة

اسئلة متعلقة

+3 تصويتات
3 إجابة
سُئل سبتمبر 29 في تصنيف Delphi بواسطة ياسين بن داود (4,210 نقاط) | 115 مشاهدات
0 تصويتات
0 إجابة
سُئل نوفمبر 23 في تصنيف SQL بواسطة KHALED (6,370 نقاط) | 33 مشاهدات
+4 تصويتات
2 إجابة
سُئل يوليو 12 في تصنيف SQLite بواسطة NADIRE (780 نقاط) | 69 مشاهدات
+2 تصويتات
1 إجابة
سُئل يوليو 21 في تصنيف Delphi بواسطة Amar Gozim (10,480 نقاط) | 49 مشاهدات
+3 تصويتات
2 إجابة
سُئل أغسطس 24 في تصنيف Delphi بواسطة Yamada Fakir (1,330 نقاط) | 57 مشاهدات
ادعُ اصدقائك في الفايسبوك لمشاركتك

مرحبًا بك إلى EasyDelphi Q&A، حيث يمكنك طرح الأسئلة والحصول على الإجابة عليها من المستخدمين الآخرين.

لا يسمح بطلب او السؤال عن كراك او تفعيل او كسر او فك او اي شيء يخالف اتفاقيات الترخيص  مهما كان السبب ومهما كان البرنامج ونوعه. ولا حتى نشر روابط تحتوي على مثل هذه الاشياء لا في الاسئلة ولا في الاجابات ولا التعليقات . نهائيا

280 سؤال
486 إجابة
866 تعليق
175 مستخدم