eigener Inspektor + auf- zuklappen

[skyware]

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;

stimmt..dieser code war unnötig, allerdings sollte es so sein nur leider
ändert dies nicht an der original problematik