current/Tools/FileManager.pas

unit FileManager;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, _TemplateFileList, Menus, VirtualTrees, StdCtrls, Buttons, ComCtrls,
  ExtCtrls;

type
  TForm_FileManager = class(TForm_TemplateFileList)
    procedure FormCreate(Sender: TObject);
  private
    procedure NewCon(ID: Integer);
  public
  end;

implementation

{$R *.dfm}

procedure TForm_FileManager.NewCon(ID: Integer);
begin
  if ID >= 0 then
  begin
  end;
end;


procedure TForm_FileManager.FormCreate(Sender: TObject);
begin
  inherited;
  OnNewConnection := NewCon;
  UpdateConList;
end;


end.

Revision:	228
Committed:	Wed Jun 20 09:51:38 2007 UTC (18 years, 4 months ago) by alloc
Content type:	text/x-pascal
File size:	664 byte(s)
Log Message:
#	Content
1	unit FileManager;
2
3	interface
4
5	uses
6	Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
7	Dialogs, _TemplateFileList, Menus, VirtualTrees, StdCtrls, Buttons, ComCtrls,
8	ExtCtrls;
9
10	type
11	TForm_FileManager = class(TForm_TemplateFileList)
12	procedure FormCreate(Sender: TObject);
13	private
14	procedure NewCon(ID: Integer);
15	public
16	end;
17
18	implementation
19
20	{$R *.dfm}
21
22	procedure TForm_FileManager.NewCon(ID: Integer);
23	begin
24	if ID >= 0 then
25	begin
26	end;
27	end;
28
29
30	procedure TForm_FileManager.FormCreate(Sender: TObject);
31	begin
32	inherited;
33	OnNewConnection := NewCon;
34	UpdateConList;
35	end;
36
37
38	end.
39