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 241 by alloc, Tue Jul 17 22:27:16 2007 UTC vs.
Revision 244 by alloc, Fri Aug 17 21:09:51 2007 UTC

#	Line 25 | 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 102 | 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 156 | 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)