Forum: GUI-Design mit VCL / FireMonkey / Common Controls
by blauweiss,
1. Nov 2010
Hallo Delphi-Laie,
Dein Code dazu:
for l:=0 to pred(StringGrid.ColCount) do StringGrid.ColWidths:=Zellenbreitenzuschlag+StringGrid.Canvas.TextWidth(StringGrid.Cells); //Skalieren nach Tabellenkopf
for l:=0 to pred(StringGrid.ColCount) do for m:=1 to pred(StringGrid.RowCount) do
if StringGrid.ColWidths<Zellenbreitenzuschlag+StringGrid.Canvas.TextWidth(StringGrid.Cells)
then...
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
by blauweiss,
30. Okt 2010
Hallo Delphi-Laie,
ruhig Blut, das wird schon....
Du möchtest also nicht nur die Form-Größe minimal setzen, sondern auch die einzelnen Spaltenbreiten so minimieren, daß genau der Zelleninhalt gezeigt wird.
Hier mein Vorschlag:
procedure MinimizeColWidths(aStringGrid: TStringGrid);
var
x, y: integer;
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
by blauweiss,
30. Okt 2010
Hallo,
was macht ihr da, und warum.....?:shock:
Warum nicht einfach so:
function GetGridWidth(aStringGrid: TStringGrid): integer;
var
i: integer;
begin