ViewVC Help
View File | Revision Log | View Changeset | Root Listing
root/Oni2/oup/current/FileClasses/_Extensions.pas
(Generate patch)

Comparing oup/current/FileClasses/_Extensions.pas (file contents):
Revision 233 by alloc, Fri Jun 29 12:38:24 2007 UTC vs.
Revision 241 by alloc, Tue Jul 17 22:27:16 2007 UTC

# Line 7 | Line 7 | uses
7  
8   type
9    TExtension = class(TTreeElement)
10 +    protected
11        function GetChildCount: Integer; override;
12        function GetChild(ID: Integer): TTreeElement; override;
13        function GetCaption: String; override;
14 +      function GetType: String; override;
15      private
16        FExt: String;
17        FFiles: array of Integer;
18      public
19        constructor Create(ConnectionID: Integer; Ext: String); virtual;
20        procedure InitList;
21 +      property Ext: String read FExt;
22    end;
23  
24    TExtensions = class(TTreeElement)
# Line 47 | Line 50 | end;
50  
51   function TExtension.GetCaption: String;
52   begin
53 <  Result := FExt;
53 >  Result := FExt + '[' + IntToStr(GetChildCount) + ']';
54   end;
55  
56   function TExtension.GetChild(ID: Integer): TTreeElement;
# Line 64 | Line 67 | begin
67    Result := Length(FFiles);
68   end;
69  
70 + function TExtension.GetType: String;
71 + begin
72 +  Result := '';
73 + end;
74 +
75   procedure TExtension.InitList;
76   var
77    files: TStrings;
# Line 99 | Line 107 | end;
107  
108   function TExtensions.GetChild(ID: Integer): TTreeElement;
109   begin
110 +  FExtensions[ID].InitList;
111    Result := FExtensions[ID];
112   end;
113  
# Line 140 | Line 149 | begin
149    Result := nil;
150    if Length(FExtensions) > 0 then
151      for i := 0 to High(FExtensions) do
152 <      if FExtensions[i].GetCaption = Ext then
152 >      if FExtensions[i].Ext = Ext then
153        begin
154          Result := FExtensions[i];
155          Break;

Diff Legend

– Removed lines
+ Added lines
< Changed lines (old)
> Changed lines (new)