Forum: GUI-Design mit VCL / FireMonkey / Common Controls
by Hansa,
23. Nov 2010
Das ist ja noch einfacher. Es geht nur um eine Spalte ? Das wäre dann eben : gesamte verfügbare Breite-Breite Stringgrid ohne die eine Spalte. Und dann ColWith der betreffenden Spalte einfach auf den ermittelten Wert setzen.
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
by Hansa,
23. Nov 2010
Jo. Zumindest so in der Richtung :
procedure Tfrm.ErmittleGridBreite;
var i : integer;
begin
PanelBreite := 0;
for i := 0 to sg.ColCount - 1 do
PanelBreite := PanelBreite + sg.ColWidths + 1;
PanelBreite := PanelBreite + GetSystemMetrics (SM_CYVSCROLL) + 10;
end; // ^ Reserve für Scrollbalken