current/Tools/FileManager.pas

unit FileManager;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, _BaseTemplate, StdCtrls, ExtCtrls;

type
  TForm_FileManager = class(TForm_BaseTemplate)
    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:	227
Committed:	Tue Jun 19 22:06:10 2007 UTC (18 years, 3 months ago) by alloc
Content type:	text/x-pascal
File size:	609 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, _BaseTemplate, StdCtrls, ExtCtrls;
8
9	type
10	TForm_FileManager = class(TForm_BaseTemplate)
11	procedure FormCreate(Sender: TObject);
12	private
13	procedure NewCon(ID: Integer);
14	public
15	end;
16
17	implementation
18	{$R *.dfm}
19
20
21	procedure TForm_FileManager.NewCon(ID: Integer);
22	begin
23	if ID >= 0 then
24	begin
25	end;
26	end;
27
28
29	procedure TForm_FileManager.FormCreate(Sender: TObject);
30	begin
31	inherited;
32	OnNewConnection := NewCon;
33	UpdateConList;
34	end;
35
36	end.