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 240 by alloc, Sat Jul 14 14:18:23 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;
#	Line 65 | 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;

Diff Legend

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