EasyDelphi Q&A
+2 تصويتات
44 مشاهدات

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

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

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

 

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

اسئلة متعلقة

+3 تصويتات
3 إجابة
سُئل سبتمبر 29، 2018 في تصنيف Delphi بواسطة ياسين بن داود (4,210 نقاط) | 131 مشاهدات
0 تصويتات
1 إجابة
سُئل ديسمبر 26، 2018 في تصنيف SQL بواسطة KHALED (7,610 نقاط) | 299 مشاهدات
0 تصويتات
0 إجابة
سُئل أغسطس 21 في تصنيف Delphi بواسطة Bn_Mohamed (120 نقاط) | 25 مشاهدات
0 تصويتات
1 إجابة
سُئل نوفمبر 23، 2018 في تصنيف SQL بواسطة KHALED (7,610 نقاط) | 308 مشاهدات
ادعُ اصدقائك في الفايسبوك لمشاركتك
Comodo SSL

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

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

454 سؤال
688 إجابة
1,287 تعليق
265 مستخدم