ViewVC Help

View File | Revision Log | View Changeset | Root Listing

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

Comparing oup/current/Tools/_TemplateFileList.pas (file contents):
Revision 217 by alloc, Fri Jun 15 15:12:11 2007 UTC vs.
Revision 218 by alloc, Fri Jun 15 22:12:39 2007 UTC

#	Line 36 | Line 36 | type
36		popup_export: TMenuItem;
37		importd: TOpenDialog;
38		exportd: TSaveDialog;
39	<	private
40	<	FSortBy: TSortType;
41	<	FAllowedExts: String;
42	<	FAllowMultiSelect: Boolean;
43	<	procedure SetAllowedExts(exts: String);
44	<	procedure SetMultiSelect(allow: Boolean);
39	>	procedure NewCon(ID: Integer);
40
41		procedure check_filternameClick(Sender: TObject);
42		procedure check_zerobyteClick(Sender: TObject);
#	Line 56 | Line 51 | type
51		procedure popup_opentool(Sender: TObject);
52		procedure popup_linkshereClick(Sender: TObject);
53		procedure filepopupPopup(Sender: TObject);
54	+	private
55	+	FSortBy: TSortType;
56	+	FAllowedExts: String;
57	+	FAllowMultiSelect: Boolean;
58	+	procedure SetAllowedExts(exts: String);
59	+	procedure SetMultiSelect(allow: Boolean);
60		public
61		constructor Create(AOwner: TComponent); override;
62		procedure RecreateExtList;
#	Line 70 | Line 71 | var
71
72		implementation
73		{$R *.dfm}
74	<	uses ConnectionManager, Exporters, Functions, StrUtils, WhatLinksHere, Main;
74	>	uses ConnectionManager, Exporters, Functions, StrUtils, WhatLinksHere, Main,
75	>	_BaseTemplate;
76
77
78		procedure TForm_TemplateFileList.RecreateExtList;
#	Line 131 | Line 133 | begin
133		end;
134
135
136	+	procedure TForm_TemplateFileList.NewCon(ID: Integer);
137	+	begin
138	+	RecreateExtList;
139	+	end;
140	+
141		procedure TForm_TemplateFileList.popup_exportClick(Sender: TObject);
142		var
143		id: Integer;
#	Line 332 | Line 339 | begin
339		inherited;
340		FAllowedExts := '';
341		FAllowMultiSelect := False;
342	+	FOnNewConnection := NewCon;
343	+	UpdateConList;
344		if Length(ToolList) > 0 then
345		begin
346		for i := 0 to High(ToolList) do

Diff Legend

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