source: cprs/branches/HealthSevak-CPRS/BDK50/BDK32_P50/Source/frmSignonMessage.pas

Last change on this file was 1691, checked in by healthsevak, 9 years ago

Committing the files for first time to this new branch

File size: 1.2 KB
RevLine 
[1691]1{ **************************************************************
2 Package: XWB - Kernel RPCBroker
3 Date Created: Sept 18, 1997 (Version 1.1)
4 Site Name: Oakland, OI Field Office, Dept of Veteran Affairs
5 Developers: Danila Manapsal, Don Craven, Joel Ivey
6 Description: Displays message from server after user signon.
7 Current Release: Version 1.1 Patch 47 (Jun. 17, 2008))
8*************************************************************** }
9
10unit frmSignonMessage;
11
12interface
13
14uses
15 Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
16 StdCtrls, Buttons, ExtCtrls, XWBRich20;
17
18type
19 TfrmSignonMsg = class(TForm)
20 Panel1: TPanel;
21 Panel2: TPanel;
22 BitBtn1: TBitBtn;
23 mmoMsg: TXWBRichEdit;
24 procedure Panel2Resize(Sender: TObject);
25 procedure BitBtn1Click(Sender: TObject);
26 private
27 { Private declarations }
28 public
29 { Public declarations }
30 end;
31
32var
33 frmSignonMsg: TfrmSignonMsg;
34
35implementation
36
37{$R *.DFM}
38
39procedure TfrmSignonMsg.Panel2Resize(Sender: TObject);
40begin
41 BitBtn1.Left := (Panel2.Width - BitBtn1.Width) div 2;
42end;
43
44procedure TfrmSignonMsg.BitBtn1Click(Sender: TObject);
45begin
46 Close;
47end;
48
49end.
Note: See TracBrowser for help on using the repository browser.