TCategoryPanel einklappen/ausklappen Align-Ausrichtung

[Bummi]

Delphi-Quellcode:

procedure TForm5.ReMeasureCat;
var
  coll,SplitHeight, I:Integer;
begin
  coll := 0;
  for I := 0 to CategoryPanelGroup1.ControlCount-1 do
    if CategoryPanelGroup1.Controls[i] is TCategoryPanel then
      if  TCategoryPanel(CategoryPanelGroup1.Controls[i]).Collapsed then inc(coll);
  if coll<CategoryPanelGroup1.ControlCount then
    begin
      SplitHeight := (CategoryPanelGroup1.Height - coll*30) div (CategoryPanelGroup1.ControlCount-coll);
      for I := 0 to CategoryPanelGroup1.ControlCount-1 do
        if CategoryPanelGroup1.Controls[i] is TCategoryPanel then
          if not TCategoryPanel(CategoryPanelGroup1.Controls[i]).Collapsed then  TCategoryPanel(CategoryPanelGroup1.Controls[i]).Height := SplitHeight;
    end;
end;

procedure TForm5.CategoryPanel3Collapse(Sender: TObject);
begin
  ReMeasureCat;
end;

procedure TForm5.CategoryPanel3Expand(Sender: TObject);
begin
  ReMeasureCat;
end;