source: cprs/branches/GUI-config/Main.pas@ 940

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

New WorldVistA Config Utility

File size: 574 bytes
Line 
1unit Main;
2
3interface
4
5
6Uses
7 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
8 Dialogs, StdCtrls
9 ;
10type
11 TForm1 = class(TForm)
12 Button1: TButton;
13 procedure Button1Click(Sender: TObject);
14 private
15 { Private declarations }
16 public
17 { Public declarations }
18 end;
19
20var
21 Form1: TForm1;
22
23implementation
24
25{$R *.dfm}
26
27procedure TForm1.Button1Click(Sender: TObject);
28begin
29{
30 //Connect to RPC Broker
31 if not ORNet.ConnectToServer(RPC_CONTEXT) then begin
32 Close; Exit;
33 end;
34}
35end;
36
37end.
38
Note: See TracBrowser for help on using the repository browser.