ViewVC Help

View File | Revision Log | View Changeset | Root Listing

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

Comparing oup/current/Tools/Template.pas (file contents):
Revision 46 by alloc, Sat Dec 23 16:26:43 2006 UTC vs.
Revision 51 by alloc, Sat Dec 23 22:16:42 2006 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 81 | Line 83 | procedure TForm_ToolTemplate.RecreateLis
83		var
84		i:    LongWord;
85		exts: TStringArray;
86	+	f, c1,c2: Int64;
87	+	time1,time2,time3: Double;
88		begin
89	+	QueryPerformanceFrequency(f);
90	+	QueryPerformanceCounter(c1);
91		combo_extension.Items.Clear;
92		combo_extension.Items.Add('_All files_ (' +
93		IntToStr(OniDataConnection.GetFilesCount) + ')');
#	Line 95 | Line 101 | begin
101		end;
102		end else
103		combo_extension.Items.Add(exts[i]);
104	+	QueryPerformanceCounter(c2);
105	+	time1 := (c2 - c1) / f;
106		combo_extension.ItemIndex := 0;
107		combo_extensionClick(Self);
108	+	QueryPerformanceCounter(c1);
109	+	time2 := (c1 - c2) / f;
110	+	ShowMessage(FloatToStr(time1) +#13+#10+ FloatToStr(time2));
111		end;
112
113

Diff Legend

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