ViewVC Help

View File | Revision Log | View Changeset | Root Listing

root/Oni2/oup/current/FileClasses/_Extensions.pas

Comparing oup/current/FileClasses/_Extensions.pas (file contents):
Revision 237 by alloc, Sat Jul 14 14:18:23 2007 UTC vs.
Revision 244 by alloc, Fri Aug 17 21:09:51 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;
#	Line 23 | Line 25 | type
25		function GetChildCount: Integer; override;
26		function GetChild(ID: Integer): TTreeElement; override;
27		function GetCaption: String; override;
28	+	function GetType: String; override;
29		private
30		FExtensions: array of TExtension;
31		public
#	Line 65 | Line 68 | begin
68		Result := Length(FFiles);
69		end;
70
71	+	function TExtension.GetType: String;
72	+	begin
73	+	Result := '';
74	+	end;
75	+
76		procedure TExtension.InitList;
77		var
78		files: TStrings;
#	Line 95 | Line 103 | end;
103
104		function TExtensions.GetCaption: String;
105		begin
106	<	Result := '';
106	>	Result := 'Extensions';
107		end;
108
109		function TExtensions.GetChild(ID: Integer): TTreeElement;
#	Line 149 | Line 157 | begin
157		end;
158		end;
159
160	+	function TExtensions.GetType: String;
161	+	begin
162	+	Result := '';
163	+	end;
164	+
165		procedure TExtensions.AddExt(Ext: String);
166		var
167		i: Integer;

Diff Legend

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