Forum: Object-Pascal / Delphi-Language
Delphi
by marabu,
6. Jan 2007
Ah, jetzt ja ...
procedure TDemoForm.CreatePanels(n, cols, gap: Integer; pc: TScrollBox);
var
i, rows, pnlWidth, pnlHeight, vsbWidth: Integer;
begin
if n > 4
then vsbWidth := GetSystemMetrics(SM_CXVScroll)
else vsbWidth := 0;
Forum: Object-Pascal / Delphi-Language
Delphi
by marabu,
6. Jan 2007
Hallo,
gar nicht wahr - ich habe dieselbe Sprache benutzt - irgendwie.
Du könntest damit anfangen, dass du die Höhe richtig berechnest. Mit vier Panels zu testen war etwas ungeschickt - teste mal mit 6 Panels:
begin
Forum: Object-Pascal / Delphi-Language
Delphi
by marabu,
6. Jan 2007
Hallo Christian,
ich habe deinen Code etwas aufgeräumt und die Signatur verändert, damit man ihn universeller verwenden kann. Die Captions werden bei mir auch richtig gesetzt:
procedure TDemoForm.CreatePanels(n, cols, gap: Integer; pc: TWinControl);
var
i, rows: Integer;
begin
Panels.Clear;