Changeset 244 for oup/current/FileClasses

Timestamp:

Aug 17, 2007, 11:09:51 PM (17 years ago)

Author:

alloc

Message:

 

File:

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

oup/current/FileClasses/_Extensions.pas

@@ -26 +26 @@
       function GetChild(ID: Integer): TTreeElement; override;
       function GetCaption: String; override;
+      function GetType: String; override;
     private
       FExtensions: array of TExtension;
@@ -103 +104 @@
 function TExtensions.GetCaption: String;
 begin
-  Result := '';
+  Result := 'Extensions';
 end;
 
@@ -157 +158 @@
 end;
 
+function TExtensions.GetType: String;
+begin
+  Result := '';
+end;
+
 procedure TExtensions.AddExt(Ext: String);
 var