source: oup/current/Tools/FileManager.pas@ 1095

Last change on this file since 1095 was 228, checked in by alloc, 17 years ago
File size: 664 bytes
Line 
1unit FileManager;
2
3interface
4
5uses
6 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
7 Dialogs, _TemplateFileList, Menus, VirtualTrees, StdCtrls, Buttons, ComCtrls,
8 ExtCtrls;
9
10type
11 TForm_FileManager = class(TForm_TemplateFileList)
12 procedure FormCreate(Sender: TObject);
13 private
14 procedure NewCon(ID: Integer);
15 public
16 end;
17
18implementation
19
20{$R *.dfm}
21
22procedure TForm_FileManager.NewCon(ID: Integer);
23begin
24 if ID >= 0 then
25 begin
26 end;
27end;
28
29
30procedure TForm_FileManager.FormCreate(Sender: TObject);
31begin
32 inherited;
33 OnNewConnection := NewCon;
34 UpdateConList;
35end;
36
37
38end.
39
Note: See TracBrowser for help on using the repository browser.