source: cprs/branches/GUI-config/BDK32/Samples/SharedRPCBroker/BrokerEx/BrokerExampleAboutFrm.PAS@ 496

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

New WorldVistA Config Utility

File size: 883 bytes
RevLine 
[476]1{**************************************************
2RPC Broker Example About form ver. 1.1 9/2/97
3 Infrastructure Development Team
4 San Francisco IRM Field Office, Dept. of Veterans Affairs
5**************************************************}
6unit BrokerExampleAboutFrm;
7
8interface
9
10uses WinTypes, WinProcs, Classes, Graphics, Forms, Controls, StdCtrls,
11 Buttons, ExtCtrls;
12
13type
14 TAboutBox = class(TForm)
15 Panel1: TPanel;
16 OKButton: TBitBtn;
17 ProgramIcon: TImage;
18 ProductName: TLabel;
19 Version: TLabel;
20 Copyright: TLabel;
21 Comments: TLabel;
22 procedure OKButtonClick(Sender: TObject);
23 private
24 { Private declarations }
25 public
26 { Public declarations }
27 end;
28
29var
30 AboutBox: TAboutBox;
31
32implementation
33
34{$R *.DFM}
35
36procedure TAboutBox.OKButtonClick(Sender: TObject);
37begin
38 Close;
39end;
40
41end.
42
Note: See TracBrowser for help on using the repository browser.