--- oup/current/Tools/FileManager.pas 2007/06/19 22:06:10 227 +++ oup/current/Tools/FileManager.pas 2007/06/20 09:51:38 228 @@ -4,10 +4,11 @@ interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, - Dialogs, _BaseTemplate, StdCtrls, ExtCtrls; + Dialogs, _TemplateFileList, Menus, VirtualTrees, StdCtrls, Buttons, ComCtrls, + ExtCtrls; type - TForm_FileManager = class(TForm_BaseTemplate) + TForm_FileManager = class(TForm_TemplateFileList) procedure FormCreate(Sender: TObject); private procedure NewCon(ID: Integer); @@ -15,8 +16,8 @@ type end; implementation -{$R *.dfm} +{$R *.dfm} procedure TForm_FileManager.NewCon(ID: Integer); begin @@ -33,4 +34,6 @@ begin UpdateConList; end; + end. +