source: cprs/trunk/CPRS-Chart/fPtSens.pas@ 730

Last change on this file since 730 was 456, checked in by Kevin Toppenberg, 16 years ago

Initial Upload of Official WV CPRS 1.0.26.76

File size: 1.2 KB
RevLine 
[456]1unit fPtSens;
2
3interface
4
5uses
6 Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
7 ExtCtrls, StdCtrls, Buttons;
8
9type
10 TfrmPtSens = class(TForm)
11 imgWarning: TImage;
12 memWarning: TMemo;
13 cmdYes: TButton;
14 cmdNo: TButton;
15 lblContinue: TStaticText;
16 procedure FormCreate(Sender: TObject);
17 procedure cmdYesClick(Sender: TObject);
18 procedure cmdNoClick(Sender: TObject);
19 private
20 FContinue: Boolean;
21 public
22 { Public declarations }
23 end;
24
25function RestrictedPtWarning: Boolean;
26
27implementation
28
29{$R *.DFM}
30
31function RestrictedPtWarning: Boolean;
32var
33 frmPtSens: TfrmPtSens;
34begin
35 frmPtSens := TfrmPtSens.Create(Application);
36 try
37 frmPtSens.ShowModal;
38 Result := frmPtSens.FContinue;
39 finally
40 frmPtSens.Free;
41 end;
42end;
43
44procedure TfrmPtSens.FormCreate(Sender: TObject);
45begin
46 FContinue := False;
47 imgWarning.Picture.Icon.Handle := LoadIcon(0, IDI_EXCLAMATION);
48end;
49
50procedure TfrmPtSens.cmdYesClick(Sender: TObject);
51begin
52 FContinue := True;
53 Close;
54end;
55
56procedure TfrmPtSens.cmdNoClick(Sender: TObject);
57begin
58 FContinue := False;
59 Close;
60end;
61
62end.
Note: See TracBrowser for help on using the repository browser.