Stringgrid Spalten Breite ändern

[gordon freeman]

Hi Leute,
ich will die Spaltenbreite der 2. Spalte meines Stringgrids ändern.
Default is (glaub ich) 64. Nun soll es nur noch 10 sein.
Und gibt es eine Klamotte, wie in Excel, dass wenn man doppelt auf die Spalte klickt, sie die Breite ihres längsten Eintrags annimmt?

tia, read you, gordon

[ibp]

imho nicht automatisch...
du kannst ja im ondraw ereignis die 2. spalte dementsprechen ändern

[toms]

Zitat:

ich will die Spaltenbreite der 2. Spalte meines Stringgrids ändern.

Stringgrid1.ColWidths[1] := 10;

[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

[gordon freeman]

thx, funzt jetzt