source: cprs/trunk/BDK32/Source/frmSignonMessage.pas@ 836

Last change on this file since 836 was 829, checked in by Kevin Toppenberg, 14 years ago

Upgrade to version 27

File size: 1.2 KB
Line 
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 40 (January 7, 2005))
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.