ViewVC Help

View File | Revision Log | View Changeset | Root Listing

root/Oni2/oup/current/Tools/Template.pas

Comparing:
oup/rewrite/Tools/Template.pas (file contents), Revision 106 by alloc, Wed Feb 21 03:09:30 2007 UTC vs.
oup/current/Tools/Template.pas (file contents), Revision 117 by alloc, Mon Feb 26 22:57:17 2007 UTC

#	Line 152 | Line 152 | begin
152		begin
153		combo_extension.Items.Add('_All files_ (' +
154		IntToStr(ConManager.Connection[FConnectionID].GetFileCount) + ')');
155	+	exts := nil;
156		exts := ConManager.Connection[FConnectionID].GetExtensionsList(EF_ExtCount);
157		for i := 0 to exts.Count - 1 do
158		if Length(FAllowedExts) > 0 then
#	Line 176 | Line 177 | var
177		no_zero_bytes: Boolean;
178		pattern: String;
179		files: TStrings;
179	–	i: Integer;
180		begin
181		if FConnectionID > -1 then
182		begin
#	Line 191 | Line 191 | begin
191		else
192		Extension := '';
193
194	+	files := nil;
195		files := ConManager.Connection[FConnectionID].GetFilesList(extension, pattern, no_zero_bytes, FSortBy);
196
197		filelist.Visible := False;
#	Line 282 | Line 283 | end;
283		procedure TForm_ToolTemplate.combo_connectionChange(Sender: TObject);
284		var
285		name: String;
285	–	nstart, nend: Integer;
286	–	i: Integer;
286		begin
287		if combo_connection.ItemIndex >= 0 then
288		begin
#	Line 345 | Line 344 | begin
344		if Pos(ext, ToolList[i].exts) = 0 then
345		filepopup.Items.Items[i].Enabled := False;
346		end;
348	–	filepopup.Items.Find('What links here?').Enabled :=
349	–	ConManager.Connection[FConnectionID].Backend = DB_ADB;
347		end;
348
349		procedure TForm_ToolTemplate.check_zerobyteClick(Sender: TObject);

Diff Legend

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