--- oup/current/FileClasses/_Extensions.pas	2007/06/29 12:38:24	233
+++ oup/current/FileClasses/_Extensions.pas	2007/07/17 22:27:16	241
@@ -7,15 +7,18 @@ uses
 
 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;
       FFiles: array of Integer;
     public
       constructor Create(ConnectionID: Integer; Ext: String); virtual;
       procedure InitList;
+      property Ext: String read FExt;
   end;
 
   TExtensions = class(TTreeElement)
@@ -47,7 +50,7 @@ end;
 
 function TExtension.GetCaption: String;
 begin
-  Result := FExt;
+  Result := FExt + '[' + IntToStr(GetChildCount) + ']';
 end;
 
 function TExtension.GetChild(ID: Integer): TTreeElement;
@@ -64,6 +67,11 @@ begin
   Result := Length(FFiles);
 end;
 
+function TExtension.GetType: String;
+begin
+  Result := '';
+end;
+
 procedure TExtension.InitList;
 var
   files: TStrings;
@@ -99,6 +107,7 @@ end;
 
 function TExtensions.GetChild(ID: Integer): TTreeElement;
 begin
+  FExtensions[ID].InitList;
   Result := FExtensions[ID];
 end;
 
@@ -140,7 +149,7 @@ begin
   Result := nil;
   if Length(FExtensions) > 0 then
     for i := 0 to High(FExtensions) do
-      if FExtensions[i].GetCaption = Ext then
+      if FExtensions[i].Ext = Ext then
       begin
         Result := FExtensions[i];
         Break;