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