ViewVC Help
View File | Revision Log | View Changeset | Root Listing
root/Oni2/oup/current/FileClasses/_TreeElement.pas
Revision: 238
Committed: Sat Jul 14 16:50:55 2007 UTC (18 years, 3 months ago) by alloc
Content type: text/x-pascal
File size: 568 byte(s)
Log Message: 










File Contents











#

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 ConnectionID: Integer read FConnectionID;
 

 

 
 
 

 14

       property ChildCount: Integer read GetChildCount;
 

 

 
 
 

 15

       property Child[ID: Integer]: TTreeElement read GetChild;
 

 

 
 
 

 16

       property Caption: String read GetCaption;
 

 

 
 
 

 17

   end;
 

 

 
 
 

 18

 
 

 

 
 
 

 19

 implementation
 

 

 
 
 

 20

 
 

 

 
 
 

 21

 end.