easyDelphi Q&A
+1 تصويت
24 مشاهدات

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

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

1 إجابة واحدة

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

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

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);

 

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

اسئلة متعلقة

+2 تصويتات
3 إجابة
سُئل سبتمبر 29 في تصنيف Delphi بواسطة ياسين بن داود (2,980 نقاط) | 96 مشاهدات
+4 تصويتات
2 إجابة
سُئل يوليو 12 في تصنيف SQLite بواسطة NADIRE (680 نقاط) | 59 مشاهدات
+2 تصويتات
1 إجابة
سُئل يوليو 21 في تصنيف Delphi بواسطة Amar Gozim (6,220 نقاط) | 45 مشاهدات
+6 تصويتات
3 إجابة
سُئل يونيو 27 في تصنيف Delphi بواسطة مجهول | 173 مشاهدات
+2 تصويتات
2 إجابة
سُئل أغسطس 24 في تصنيف Delphi بواسطة Yamada Fakir (1,250 نقاط) | 49 مشاهدات
ادعُ اصدقائك في الفايسبوك لمشاركتك

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

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

248 سؤال
450 إجابة
790 تعليق
144 مستخدم