ViewVC Help
View File | Revision Log | View Changeset | Root Listing
root/Oni2/oup/current/FileClasses/_TreeElement.pas
Revision: 241
Committed: Tue Jul 17 22:27:16 2007 UTC (18 years, 2 months ago) by alloc
Content type: text/x-pascal
File size: 666 byte(s)
Log Message: 










File Contents











#

Content



 
 
 
 
 
 

 1

 unit _TreeElement;
 

 

 
 
 

 2

 interface
 

 

 
 
 

 3

 
 

 

 
 
 

 4

 
 

 

 
 
 

 5

 type
 

 

 
 
 

 6

   TTreeElement = class
 

 

 
 
 

 7

     protected
 

 

 
 
 

 8

       FConnectionID: Integer;
 

 

 
 
 

 9

       function GetChildCount: Integer; virtual; abstract;
 

 

 
 
 

 10

       function GetChild(ID: Integer): TTreeElement; virtual; abstract;
 

 

 
 
 

 11

       function GetCaption: String; virtual; abstract;
 

 

 
 
 

 12

       function GetType: String; virtual; abstract;
 

 

 
 
 

 13

     public
 

 

 
 
 

 14

       property ConnectionID: Integer read FConnectionID;
 

 

 
 
 

 15

       property ChildCount: Integer read GetChildCount;
 

 

 
 
 

 16

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

 

 
 
 

 17

       property Caption: String read GetCaption;
 

 

 
 
 

 18

       property VType: String read GetType;
 

 

 
 
 

 19

   end;
 

 

 
 
 

 20

 
 

 

 
 
 

 21

 implementation
 

 

 
 
 

 22

 
 

 

 
 
 

 23

 end.