--- oup/current/Tools/Template.pas	2006/12/23 16:26:43	46
+++ oup/current/Tools/Template.pas	2006/12/23 22:16:42	51
@@ -33,6 +33,8 @@ type
     btn_sort_name_desc: TSpeedButton;
     btn_sort_ext_asc: TSpeedButton;
     btn_sort_ext_desc: TSpeedButton;
+    Label1: TLabel;
+    Label2: TLabel;
     procedure RecreateList;
     procedure LoadFileNames;
     procedure SelectFileName(filename: String);
@@ -81,7 +83,11 @@ procedure TForm_ToolTemplate.RecreateLis
 var
   i:    LongWord;
   exts: TStringArray;
+f, c1,c2: Int64;
+time1,time2,time3: Double;
 begin
+QueryPerformanceFrequency(f);
+QueryPerformanceCounter(c1);
   combo_extension.Items.Clear;
   combo_extension.Items.Add('_All files_ (' +
     IntToStr(OniDataConnection.GetFilesCount) + ')');
@@ -95,8 +101,13 @@ begin
       end;
     end else
       combo_extension.Items.Add(exts[i]);
+QueryPerformanceCounter(c2);
+time1 := (c2 - c1) / f;
   combo_extension.ItemIndex := 0;
   combo_extensionClick(Self);
+QueryPerformanceCounter(c1);
+time2 := (c1 - c2) / f;
+ShowMessage(FloatToStr(time1) +#13+#10+ FloatToStr(time2));
 end;