ViewVC Help
View File | Revision Log | View Changeset | Root Listing
root/Oni2/oup/releases/0.33a/Tools/Template.pas
(Generate patch)

Comparing oup/current/Tools/Template.pas (file contents):
Revision 51 by alloc, Sat Dec 23 22:16:42 2006 UTC vs.
Revision 70 by alloc, Tue Jan 9 21:16:16 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)