Moin,
ändere mal deine
THTRowTitle.ToggleExpanded Prozedur...
Delphi-Quellcode:
{ THTRowTitle.ToggleExpanded:
-------------------------------------------------------------------------------}
procedure THTRowTitle.ToggleExpanded;
var
xInd : integer;
xRow : THTRow;
begin
for xInd := 0 to FRows.Count-1 do
begin
xRow := THTRow(FRows.Objects[FRows.IndexOf(IntToStr(xInd))]);
if (xRow is THTRowTitle) then
SetRowVisible(xRow, not FExpanded)
{ else
SetRowVisible(xRow, not FExpanded);}
end;
FExpanded := not FExpanded;
end;
Kommentiere mal den Else-Teil aus, dort machst du das Gleiche wie im Then-Teil, also immer das Gleiche.
MfG
Thorsten