Breite von DBGrid ändern

[marabu]

Hallo,

in bestimmten Situationen mag es Sinn machen die Breite eines DBGrids auf die Breite der Spalten abzustimmen. Der folgende Code berücksichtigt keine ScrollBars:

Delphi-Quellcode:

procedure ResizeGrid(grid: TDBGrid);
var
  iCol, iWidth: Integer;
begin
  with grid do
  begin
    iWidth := 12 * Ord(dgIndicator in Options) 
            + Columns.Count * Ord(dgColLines in Options) 
            + Ord(BorderStyle) * 4;
    for iCol := 0 to Pred(Columns.Count) do
      Inc(iWidth, Columns[iCol].Width);
    Width := iWidth;
  end;
end;

Grüße vom marabu