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

Comparing oup/current/Tools/Template.pas (file contents):
Revision 58 by alloc, Tue Dec 26 23:37:24 2006 UTC vs.
Revision 70 by alloc, Tue Jan 9 21:16:16 2007 UTC

# Line 367 | Line 367 | end;
367  
368   procedure TForm_ToolTemplate.FormActivate(Sender: TObject);
369   begin
370 <  edit_filtername.SetFocus;
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);

Diff Legend

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