"Optimale Breite" bei StringGrid einstellbar?

[Robert_G]

Wir haben hier doch eine Supi-Suchfunktion...

Einfach mal nach stringgrid AND breite suchen.

Kommt unter anderem das dabei raus:
http://www.delphipraxis.net/internal...?p=23699#23699

Etwas übersichtlicher wäre es wohl so:

Delphi-Quellcode:

Var
  vCol, vRow, Len                       : Integer,
Begin
  ...
  For vCol := FixedCols To pred(Grid.ColCount) Do
  Begin
    len := 20; // min. Breite
    For vRow := FixedRows To pred(Grid.RowCount) Do
      If len < Grid.Canvas.TextWidth(Grid.Cells[vRow, vCol]) Then
        len := Grid.Canvas.TextWidth(Grid.Cells[vRow, vCol]);
    Grid.ColWidths[vCol] := len;
  End;
  ...
End;