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.

Kod: Tümünü seç

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}