Code: Alles auswählen
procedure TExpandPanels.setWidth(value:Integer);
var i:Integer;
begin
FWidth:=value;
for I := 0 to PanelArray.Count - 1 do
with TMyRollOut(PanelArray[i]) do
if not Collapsed then //<- Warum?
Width:= FWidth;
ArrangePanels;
end;
Wenn ich das ganze jetzt auf einen Host-Panel tue und den mit nem Splitter Resize, muss ich das machen:
Code: Alles auswählen
procedure TForm1.Panel1Resize(Sender: TObject);
begin
ep.Width:=Panel1.Width;
ep.Panel(0).Width:=ep.Width;
ep.Panel(1).Width:=ep.Width;
ep.Panel(2).Width:=ep.Width;
end;
Dann geht's tip-top. Das Könnte die Kompo aber auch selber regeln