| 4 | 
   | 
  | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 5 | 
   | 
 uses | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 6 | 
   | 
   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, | 
 
 
 
 
 
 
 
 
 
 
 
 | 7 | 
 < | 
   Dialogs, _BaseTemplate, StdCtrls, ExtCtrls; | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 7 | 
 > | 
   Dialogs, _TemplateFileList, Menus, VirtualTrees, StdCtrls, Buttons, ComCtrls, | 
 
 
 
 
 
 | 8 | 
 > | 
   ExtCtrls; | 
 
 
 
 
 
 
 
 
 
 
 
 | 9 | 
   | 
  | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 10 | 
   | 
 type | 
 
 
 
 
 
 
 
 
 
 
 
 | 11 | 
 < | 
   TForm_FileManager = class(TForm_BaseTemplate) | 
 
 
 
 
 
 
 
 
 
 | 11 | 
 > | 
   TForm_FileManager = class(TForm_TemplateFileList) | 
 
 
 
 
 
 
 
 
 
 
 
 | 12 | 
   | 
     procedure FormCreate(Sender: TObject); | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 13 | 
   | 
   private | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 14 | 
   | 
     procedure NewCon(ID: Integer); | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 16 | 
   | 
   end; | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 17 | 
   | 
  | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 18 | 
   | 
 implementation | 
 
 
 
 
 
 
 
 
 
 | 18 | 
 – | 
 {$R *.dfm} | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 19 | 
   | 
  | 
 
 
 
 
 
 
 
 
 | 20 | 
 + | 
 {$R *.dfm} | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 21 | 
   | 
  | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 22 | 
   | 
 procedure TForm_FileManager.NewCon(ID: Integer); | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 23 | 
   | 
 begin | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 34 | 
   | 
   UpdateConList; | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 35 | 
   | 
 end; | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 36 | 
   | 
  | 
 
 
 
 
 
 
 
 
 | 37 | 
 + | 
  | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 38 | 
   | 
 end. | 
 
 
 
 
 
 
 
 
 | 39 | 
 + | 
  |