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 236 by alloc, Fri Jun 29 12:38:24 2007 UTC vs.
Revision 237 by alloc, Sat Jul 14 14:18:23 2007 UTC

#	Line 16 | Line 16 | type
16		public
17		constructor Create(ConnectionID: Integer; Ext: String); virtual;
18		procedure InitList;
19	+	property Ext: String read FExt;
20		end;
21
22		TExtensions = class(TTreeElement)
#	Line 47 | Line 48 | end;
48
49		function TExtension.GetCaption: String;
50		begin
51	<	Result := FExt;
51	>	Result := FExt + '[' + IntToStr(GetChildCount) + ']';
52		end;
53
54		function TExtension.GetChild(ID: Integer): TTreeElement;
#	Line 99 | Line 100 | end;
100
101		function TExtensions.GetChild(ID: Integer): TTreeElement;
102		begin
103	+	FExtensions[ID].InitList;
104		Result := FExtensions[ID];
105		end;
106
#	Line 140 | Line 142 | begin
142		Result := nil;
143		if Length(FExtensions) > 0 then
144		for i := 0 to High(FExtensions) do
145	<	if FExtensions[i].GetCaption = Ext then
145	>	if FExtensions[i].Ext = Ext then
146		begin
147		Result := FExtensions[i];
148		Break;

Diff Legend

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