| 5 | 
   | 
 uses | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 6 | 
   | 
   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 7 | 
   | 
   Dialogs, _TemplateFile, StdCtrls, ExtCtrls, Menus, Buttons, | 
 
 
 
 
 
 
 
 
 
 
 
 | 8 | 
 < | 
   TypeDefs; | 
 
 
 
 
 
 
 
 
 
 | 8 | 
 > | 
   ComCtrls, TypeDefs; | 
 
 
 
 
 
 
 
 
 
 
 
 | 9 | 
   | 
  | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 10 | 
   | 
 type | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 11 | 
   | 
   TForm_TemplateFileList = class(TForm_TemplateFile) | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 12 | 
   | 
     panel_files: TPanel; | 
 
 
 
 
 
 
 
 
 
 
 
 | 13 | 
 < | 
     filelist: TListBox; | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 13 | 
 > | 
     splitter_content: TSplitter; | 
 
 
 
 
 
 | 14 | 
 > | 
     panel_content: TPanel; | 
 
 
 
 
 
 | 15 | 
 > | 
     filepopup: TPopupMenu; | 
 
 
 
 
 
 | 16 | 
 > | 
     popup_separator2: TMenuItem; | 
 
 
 
 
 
 | 17 | 
 > | 
     popup_linkshere: TMenuItem; | 
 
 
 
 
 
 | 18 | 
 > | 
     popup_separator: TMenuItem; | 
 
 
 
 
 
 | 19 | 
 > | 
     popup_import: TMenuItem; | 
 
 
 
 
 
 | 20 | 
 > | 
     popup_export: TMenuItem; | 
 
 
 
 
 
 | 21 | 
 > | 
     importd: TOpenDialog; | 
 
 
 
 
 
 | 22 | 
 > | 
     exportd: TSaveDialog; | 
 
 
 
 
 
 | 23 | 
 > | 
     FilePages: TPageControl; | 
 
 
 
 
 
 | 24 | 
 > | 
     tab_files: TTabSheet; | 
 
 
 
 
 
 
 
 
 
 
 
 | 25 | 
   | 
     panel_extension: TPanel; | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 26 | 
   | 
     label_sort2: TLabel; | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 27 | 
   | 
     label_sort1: TLabel; | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 36 | 
   | 
     check_zerobyte: TCheckBox; | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 37 | 
   | 
     edit_filtername: TEdit; | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 38 | 
   | 
     check_filtername: TCheckBox; | 
 
 
 
 
 
 
 
 
 
 
 
 | 39 | 
 < | 
     bevel_filelist: TBevel; | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 29 | 
 < | 
     splitter_content: TSplitter; | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 30 | 
 < | 
     panel_content: TPanel; | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 31 | 
 < | 
     filepopup: TPopupMenu; | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 32 | 
 < | 
     popup_separator2: TMenuItem; | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 33 | 
 < | 
     popup_linkshere: TMenuItem; | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 34 | 
 < | 
     popup_separator: TMenuItem; | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 35 | 
 < | 
     popup_import: TMenuItem; | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 36 | 
 < | 
     popup_export: TMenuItem; | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 37 | 
 < | 
     importd: TOpenDialog; | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 38 | 
 < | 
     exportd: TSaveDialog; | 
 
 
 
 
 
 
 
 
 
 | 39 | 
 > | 
     filelist: TListBox; | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 40 | 
   | 
     procedure NewCon(ID: Integer); | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 41 | 
   | 
  | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 42 | 
   | 
     procedure check_filternameClick(Sender: TObject); |