| # | Line 331 | Line 331 | end; | |
|---|---|---|
| 331 | { TIBTreeView } | |
| 332 | ||
| 333 | procedure TIBTreeView.ActiveChanged(Sender: TObject); | |
| 334 | – | var AtTopLevel: boolean; |
| 334 | begin | |
| 335 | if (csDesigning in ComponentState) then Exit; | |
| 336 | IBControlLinkChanged; | |
| # | Line 342 | Line 341 | begin | |
| 341 | end | |
| 342 | else | |
| 343 | begin | |
| 345 | – | AtTopLevel := Items.TopLvlCount = 0; |
| 344 | AddNodes; | |
| 345 | if not FLocatingNode and (Selected = nil) and (Items.TopLvlCount > 0) then | |
| 346 | begin | |
| – | Removed lines |
| + | Added lines |
| < | Changed lines |
| > | Changed lines |