Last change
on this file since 1806 was 476, checked in by Kevin Toppenberg, 16 years ago |
New WorldVistA Config Utility
|
File size:
883 bytes
|
Line | |
---|
1 | {**************************************************
|
---|
2 | RPC 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 | **************************************************}
|
---|
6 | unit BrokerExampleAboutFrm;
|
---|
7 |
|
---|
8 | interface
|
---|
9 |
|
---|
10 | uses WinTypes, WinProcs, Classes, Graphics, Forms, Controls, StdCtrls,
|
---|
11 | Buttons, ExtCtrls;
|
---|
12 |
|
---|
13 | type
|
---|
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 |
|
---|
29 | var
|
---|
30 | AboutBox: TAboutBox;
|
---|
31 |
|
---|
32 | implementation
|
---|
33 |
|
---|
34 | {$R *.DFM}
|
---|
35 |
|
---|
36 | procedure TAboutBox.OKButtonClick(Sender: TObject);
|
---|
37 | begin
|
---|
38 | Close;
|
---|
39 | end;
|
---|
40 |
|
---|
41 | end.
|
---|
42 |
|
---|
Note:
See
TracBrowser
for help on using the repository browser.