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 51 by alloc, Sat Dec 23 22:16:42 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 54 | 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 83 | Line 84 | procedure TForm_ToolTemplate.RecreateLis
84		var
85		i:    LongWord;
86		exts: TStringArray;
86	–	f, c1,c2: Int64;
87	–	time1,time2,time3: Double;
87		begin
89	–	QueryPerformanceFrequency(f);
90	–	QueryPerformanceCounter(c1);
88		combo_extension.Items.Clear;
89		combo_extension.Items.Add('_All files_ (' +
90		IntToStr(OniDataConnection.GetFilesCount) + ')');
#	Line 101 | Line 98 | QueryPerformanceCounter(c1);
98		end;
99		end else
100		combo_extension.Items.Add(exts[i]);
104	–	QueryPerformanceCounter(c2);
105	–	time1 := (c2 - c1) / f;
101		combo_extension.ItemIndex := 0;
102		combo_extensionClick(Self);
108	–	QueryPerformanceCounter(c1);
109	–	time2 := (c1 - c2) / f;
110	–	ShowMessage(FloatToStr(time1) +#13+#10+ FloatToStr(time2));
103		end;
104
105
#	Line 286 | 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 373 | 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)