DBGird de Kolon Ayarlama

[OZCANK]

Merhaba, "DBGrid1" de "Cari İsim" alanının kolon boyutunu ayarlamak istiyorum nasıl bir yol izleyebilirim ? Elinde bu şekilde bir kod olan var mı? 
Delphi7 kullanıyorum.

Bu kod otomatik ayarlıyor ve "Cari İsim" alanı uzun olduğu zaman sağındaki kolonları kaydırıyor ben verdiğim uzunluk da kalmasını istiyorum.

Kullandığım Kod:

Var

i,ColWidth,ColTextWidth:Integer;
Begin
if DBGrid.DataSource.DataSet.Active then
  begin
    DBGrid.DataSource.DataSet.DisableControls;
    for i:= 0 to DBGrid.Columns.Count-1 do
      begin
        ColWidth:=DBGrid.Canvas.TextWidth(DBGrid.Columns[i].Field.DisplayLabel);
        DBGrid.DataSource.DataSet.First;
      while not DBGrid.DataSource.DataSet.Eof do
       begin
      ColTextWidth:=DBGrid.Canvas.TextWidth(DBGrid.Columns[i].Field.DisplayText);
         if (ColTextWidth > ColWidth) then
           begin
             ColWidth := ColTextWidth;
           end;
         DBGrid.DataSource.DataSet.Next;
      end;{while}
      DBGrid.Columns[i].Width:=ColWidth+1;
    end;{for}

[frmman]

Cari isim kolonunu sabit tutmak için

i := 2; // cari isim kolon numarası / indexi

DBGrid.Columns[i].Width:=300; // 2 numaralı kolon genişliği 300 pixel e ayarlanır.

[OZCANK]

(26-01-2025, Saat: 08:08)OZCANK Adlı Kullanıcıdan Alıntı: Merhaba, "DBGrid1" de "Cari İsim" alanının kolon boyutunu ayarlamak istiyorum nasıl bir yol izleyebilirim ? Elinde bu şekilde bir kod olan var mı? 
Delphi7 kullanıyorum.

Bu kod otomatik ayarlıyor ve "Cari İsim" alanı uzun olduğu zaman sağındaki kolonları kaydırıyor ben verdiğim uzunluk da kalmasını istiyorum.

Kullandığım Kod:

Var

i,ColWidth,ColTextWidth:Integer;
Begin
if DBGrid.DataSource.DataSet.Active then
  begin
    DBGrid.DataSource.DataSet.DisableControls;
    for i:= 0 to DBGrid.Columns.Count-1 do
      begin
        ColWidth:=DBGrid.Canvas.TextWidth(DBGrid.Columns[i].Field.DisplayLabel);
        DBGrid.DataSource.DataSet.First;
      while not DBGrid.DataSource.DataSet.Eof do
       begin
      ColTextWidth:=DBGrid.Canvas.TextWidth(DBGrid.Columns[i].Field.DisplayText);
         if (ColTextWidth > ColWidth) then
           begin
             ColWidth := ColTextWidth;
           end;
         DBGrid.DataSource.DataSet.Next;
      end;{while}
      DBGrid.Columns[i].Width:=ColWidth+1;
    end;{for}

Merhaba; Bu Procedure yi DLL olarak yapabilir miyim ?

[frmman]

Sadece gridin sütun genişliğini sabitlemek için dll kullanmak yerine exe içerisinde bunu yapmak veya bir fonksiyona bağlamak daha kolay olmaz mı?