source: cprs/branches/tmg-cprs/CPRS-Chart/fPtSens.pas@ 1156

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

Initial upload of TMG-CPRS 1.0.26.69

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