source: cprs/branches/GUI-config/BDK32/Source/AddServer.pas

Last change on this file was 476, checked in by Kevin Toppenberg, 16 years ago

New WorldVistA Config Utility

File size: 939 bytes
RevLine 
[476]1{ **************************************************************
2 Package: XWB - Kernel RPCBroker
3 Date Created: Sept 18, 1997 (Version 1.1)
4 Site Name: Oakland, OI Field Office, Dept of Veteran Affairs
5 Developers: Joel Ivey
6 Description: Add Server to list of personal servers for
7 selection.
8 Current Release: Version 1.1 Patch 40 (January 7, 2005))
9*************************************************************** }
10
11unit AddServer;
12
13interface
14
15uses
16 Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
17 StdCtrls, Buttons;
18
19type
20 TfrmAddServer = class(TForm)
21 lblAddress: TLabel;
22 lblPortNumber: TLabel;
23 edtAddress: TEdit;
24 edtPortNumber: TEdit;
25 bbtnOK: TBitBtn;
26 bbtnCancel: TBitBtn;
27 private
28 { Private declarations }
29 public
30 { Public declarations }
31 end;
32
33var
34 frmAddServer: TfrmAddServer;
35
36implementation
37
38{$R *.DFM}
39
40end.
Note: See TracBrowser for help on using the repository browser.