eigener Inspektor + auf- zuklappen

[omata]

Moin,

ok ich glaube jetzt habe ich es verstanden.

Hier mein neuer Vorschlag...

Delphi-Quellcode:

procedure THTRowTitle.ToggleExpanded;
var
  xInd      : integer;
  xRow      : THTRow;
  xExpanded : boolean;
begin
  xExpanded := not FExpanded;
  if xExpanded then begin
    for xInd := FRows.Count-1 downto 0 do
    begin
      xRow := THTRow(FRows.Objects[FRows.IndexOf(IntToStr(xInd))]);
      SetRowVisible(xRow, xExpanded);
    end;
  end
  else begin
    for xInd := 0 to FRows.Count-1 do
    begin
      xRow := THTRow(FRows.Objects[FRows.IndexOf(IntToStr(xInd))]);
      SetRowVisible(xRow, xExpanded);
    end;
  end;

  FExpanded := not FExpanded;
end;

ändere mal die Prozedur ab, dann sollte es gehen.


MfG
Thorsten