--- oup/current/FileClasses/_TreeElement.pas	2007/07/14 16:50:55	238
+++ oup/current/FileClasses/_TreeElement.pas	2007/07/17 22:27:16	241
@@ -4,16 +4,18 @@ interface
 
 type
   TTreeElement = class
+    protected
       FConnectionID: Integer;
       function GetChildCount: Integer; virtual; abstract;
       function GetChild(ID: Integer): TTreeElement; virtual; abstract;
       function GetCaption: String; virtual; abstract;
-    private
+      function GetType: String; virtual; abstract;
     public
       property ConnectionID: Integer read FConnectionID;
       property ChildCount: Integer read GetChildCount;
       property Child[ID: Integer]: TTreeElement read GetChild;
       property Caption: String read GetCaption;
+      property VType: String read GetType;
   end;
 
 implementation