| 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; | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 365 | 
   | 
   FAllowMultiSelect := False; | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 366 | 
   | 
 end; | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 367 | 
   | 
  | 
 
 
 
 
 
 
 
 
 | 368 | 
 + | 
 procedure TForm_ToolTemplate.FormActivate(Sender: TObject); | 
 
 
 
 
 
 
 
 
 | 369 | 
 + | 
 begin | 
 
 
 
 
 
 
 
 
 | 370 | 
 + | 
   edit_filtername.SetFocus; | 
 
 
 
 
 
 
 
 
 | 371 | 
 + | 
 end; | 
 
 
 
 
 
 
 
 
 | 372 | 
 + | 
  | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 373 | 
   | 
 procedure TForm_ToolTemplate.FormClose(Sender: TObject; var Action: TCloseAction); | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 374 | 
   | 
 begin | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 375 | 
   | 
   Action := caFree; |