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

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

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

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، 2018 في تصنيف Delphi بواسطة ياسين بن داود (4,210 نقاط) | 120 مشاهدات
0 تصويتات
1 إجابة
سُئل ديسمبر 26، 2018 في تصنيف SQL بواسطة KHALED (6,450 نقاط) | 80 مشاهدات
0 تصويتات
0 إجابة
سُئل نوفمبر 23، 2018 في تصنيف SQL بواسطة KHALED (6,450 نقاط) | 69 مشاهدات
+4 تصويتات
2 إجابة
سُئل يوليو 12، 2018 في تصنيف SQLite بواسطة NADIRE (820 نقاط) | 70 مشاهدات
ادعُ اصدقائك في الفايسبوك لمشاركتك
Comodo SSL

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

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

303 سؤال
507 إجابة
892 تعليق
206 مستخدم