Changeset 58 for oup/current/Tools

Timestamp:

Dec 27, 2006, 12:37:24 AM (18 years ago)

Author:

alloc

Message:

 

Location:

oup/current/Tools

Files:

• Template.dfm (modified) (1 diff)
• Template.pas (modified) (2 diffs)

oup/current/Tools/Template.dfm

@@ -17 +17 @@
   Visible = True
   WindowState = wsMaximized
+  OnActivate = FormActivate
   OnClose = FormClose
   OnCreate = FormCreate

oup/current/Tools/Template.pas

@@ -55 +55 @@
     procedure filepopupPopup(Sender: TObject);
     procedure btn_sortClick(Sender: TObject);
+    procedure FormActivate(Sender: TObject);
   private
     FSortBy: TSortType;
@@ -365 +366 @@
 end;
 
+procedure TForm_ToolTemplate.FormActivate(Sender: TObject);
+begin
+  edit_filtername.SetFocus;
+end;
+
 procedure TForm_ToolTemplate.FormClose(Sender: TObject; var Action: TCloseAction);
 begin