| 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; |