"Optimale Breite" bei StringGrid einstellbar?

[daywalker-dj-k]

hallo,
vielen dank erstmal für die hilfe. nur leider klappt das bei mir nicht

also:

Delphi-Quellcode:

function TForm1.OptStringGridBreite(Sender: TObject): string;
var vCol, vRow, len: integer;
begin
  with TStringGrid(Sender) do
  for vCol := FixedCols to pred(ColCount) do
    begin
      len := 1; // min. Breite
      for vRow := FixedRows to pred(RowCount) do
        if len < Canvas.TextWidth(Cells[vRow, vCol]) + GridLineWidth + 4 then
          len := Canvas.TextWidth(Cells[vRow, vCol]) + GridLineWidth + 4;
      ColWidths[vCol] := len;
    end;
end;

aufgerufen wird es so:

OptStringGridBreite(StringGrid1); kurz bevor die funktion aufgerufen wird, wird erst die anzahl der spalten festgelegt:

StringGrid1.ColCount := ComboBox5.Items.Capacity; zum einen wird eine spalte mit daten (z.b. 24.01.2004) zu eng gerückt und zum anderen werden viele spalten nicht eng genug gerückt (z.b. leere spalten. gibt es noch einen mindestbreitenwert von delphi aus? ich habe den im qt ja schona uf 1 begrenzt.

danke
mfg
tkliewe