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
|
Rev | Line | |
---|
[476] | 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.