Einzelnen Beitrag anzeigen

omata

Registriert seit: 26. Aug 2004
Ort: Nebel auf Amrum
3.154 Beiträge
 
Delphi 7 Enterprise
 
#5

AW: [StringGrid] berechnen d. Zellenbreite nach resize

  Alt 3. Aug 2012, 23:13
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;

Geändert von omata ( 3. Aug 2012 um 23:16 Uhr)
  Mit Zitat antworten Zitat