Stringgrid Spalten Breite ändern

[ibp]

hab noch nen code von mir gefunden...

Delphi-Quellcode:

//////////////////////////////////////////////////////////////////////////////
// Spaltengröße von StringGrids anpassen
//
// max=0 dann grid nach größter spaltenbreite anpassen
//
procedure GridColWidth(grd:TStringGrid;min,max:word);
var
  Zeile,Spalte,tmp,len: word;
begin
  with grd do begin  // für alle Spalten
    for Spalte:=0 to (ColCount -1) do begin
      len:=0;
      for Zeile:=0 to (RowCount-1) do begin // für alle Zeilen
        tmp:=Canvas.TextWidth(Cells[Spalte,Zeile]);
        if tmp>len then len:=tmp  // neue max Breite
      end; // for Zeile
      if max>0 then if len>max then len:=max; // Maximalbreite
      if len<min then len:=min; // Minimalbreite
      ColWidths[Spalte]:=len+GridLineWidth+5  // Spalte verbreitern
    end // for Spalte
  end // with
end;

kannst du ja anpassen