| Revision: | 233 |
| Committed: | Fri Jun 29 12:38:24 2007 UTC (18 years, 3 months ago) by alloc |
| Content type: | text/x-pascal |
| File size: | 510 byte(s) |
| Log Message: |
| # | Content |
|---|---|
| 1 | unit _TreeElement; |
| 2 | interface |
| 3 | |
| 4 | |
| 5 | type |
| 6 | TTreeElement = class |
| 7 | FConnectionID: Integer; |
| 8 | function GetChildCount: Integer; virtual; abstract; |
| 9 | function GetChild(ID: Integer): TTreeElement; virtual; abstract; |
| 10 | function GetCaption: String; virtual; abstract; |
| 11 | private |
| 12 | public |
| 13 | property ChildCount: Integer read GetChildCount; |
| 14 | property Child[ID: Integer]: TTreeElement read GetChild; |
| 15 | property Caption: String read GetCaption; |
| 16 | end; |
| 17 | |
| 18 | implementation |
| 19 | |
| 20 | end. |