[StringGrid] berechnen d. Zellenbreite nach resize

[omata]

Wenn man einfach nur mit DIV arbeitet, passen die Spalten natürlich in das Grid, ohne das der Scrollbalken erscheint. Je nach Gridgröße entsteht dann aber am rechten Rand eine mehr oder weniger große weiße Fläche, die nicht zu einer Zelle gehört.

Wenn man immer die gesamte Gridfläche verwenden möchte, ohne das der Scrollbaken erscheint, verwendet man z.B. folgenden Code...

Delphi-Quellcode:

procedure StringGridResize(Grid: TStringGrid);
var i, w, cols, line:integer;
begin
  cols:=Grid.ColCount;
  line:=Grid.GridLineWidth;
  w:=0;
  for i:=1 to cols do begin
    Grid.ColWidths[i-1]:=
      (Grid.Canvas.ClipRect.Right - w - (line * (cols - i))) div (cols - i + 1);
    w:=w + Grid.ColWidths[i-1] + line;
  end;
end;

[phedon]

omata - noch besser - danke dir!

[phedon]

@Omata: zu früh gefreut, löscht leider den ganzen Inhalt..

[mkinzler]

Wie/wo zeichnset du?

[omata]

Zitat von phedon:

...löscht leider den ganzen Inhalt..

Die gezeigte Prozedur verändert nur die Breiten der Gridspalten. Wie soll das bitte den Inhalt löschen?

[phedon]

Ich weiß auch nicht, warum das passiert. Hab die Procedure mal aufgerufen, nu seh ich nur noch n blankes Canvas (zuerst nach dem Füllen der Zellen aufgerufen, danach davor - wegen des gelöschten Inhaltes). Naja, ich seh mir des nochmal genauer an..

[hoika]

Hallo,

Zitat:

Hab die Procedure mal aufgerufen

Hoffentlich nur im FormResize und nicht in einer OnDrawCell-Methode.


Heiko

[phedon]

Nö, im FormCreate (hab feste Breiten, wollte aber - so wie von Omata beschrieben - die weißen "Ränder weghaben").
Ich setz mich jetzt gleich mal ran und frickel mir det zurecht..