ViewVC Help

View File | Revision Log | View Changeset | Root Listing

root/Oni2/oup/releases/0.33a/Tools/Template.pas

Comparing:
oup/current/Tools/Template.pas (file contents), Revision 46 by alloc, Sat Dec 23 16:26:43 2006 UTC vs.
oup/releases/0.33a/Tools/Template.pas (file contents), Revision 76 by alloc, Thu Jan 11 23:38:49 2007 UTC

#	Line 33 | Line 33 | type
33		btn_sort_name_desc: TSpeedButton;
34		btn_sort_ext_asc: TSpeedButton;
35		btn_sort_ext_desc: TSpeedButton;
36	+	Label1: TLabel;
37	+	Label2: TLabel;
38		procedure RecreateList;
39		procedure LoadFileNames;
40		procedure SelectFileName(filename: String);
#	Line 52 | Line 54 | type
54		procedure popup_opentool(Sender: TObject);
55		procedure filepopupPopup(Sender: TObject);
56		procedure btn_sortClick(Sender: TObject);
57	+	procedure FormActivate(Sender: TObject);
58		private
59		FSortBy: TSortType;
60		FOnNewFileSelected: TNewFileSelectedEvent;
#	Line 275 | Line 278 | var
278		begin
279		pt.X := x;
280		pt.Y := y;
281	<	filelist.ItemIndex := filelist.ItemAtPos(pt, true);
282	<	Self.listClick(Self);
281	>	//  filelist.ItemIndex := filelist.ItemAtPos(pt, true);
282	>	//  Self.listClick(Self);
283		end;
284
285
#	Line 362 | Line 365 | begin
365		FAllowMultiSelect := False;
366		end;
367
368	+	procedure TForm_ToolTemplate.FormActivate(Sender: TObject);
369	+	begin
370	+	if edit_filtername.CanFocus then
371	+	edit_filtername.SetFocus
372	+	else
373	+	if content.CanFocus then
374	+	content.SetFocus;
375	+	end;
376	+
377		procedure TForm_ToolTemplate.FormClose(Sender: TObject; var Action: TCloseAction);
378		begin
379		Action := caFree;

Diff Legend

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