Changeset 241 for oup/current/FileClasses/_Extensions.pas

Timestamp:

Jul 18, 2007, 12:27:16 AM (17 years ago)

Author:

alloc

Message:

 

File:

• oup/current/FileClasses/_Extensions.pas (modified) (2 diffs)

oup/current/FileClasses/_Extensions.pas

@@ -8 +8 @@
 type
   TExtension = class(TTreeElement)
+    protected
       function GetChildCount: Integer; override;
       function GetChild(ID: Integer): TTreeElement; override;
       function GetCaption: String; override;
+      function GetType: String; override;
     private
       FExt: String;
@@ -64 +66 @@
 begin
   Result := Length(FFiles);
+end;
+
+function TExtension.GetType: String;
+begin
+  Result := '';
 end;