|
Last change
on this file since 1722 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.
