Module

fPtSens

Path

C:\CPRS\CPRS30\fPtSens.pas

Last Modified

7/15/2014 3:26:38 PM

Units Used in Interface

Name Comments
fBase508Form -

Classes

Name Comments
TfrmPtSens -

Procedures

Name Owner Declaration Scope Comments
cmdNoClick TfrmPtSens procedure cmdNoClick(Sender: TObject); Public/Published -
cmdYesClick TfrmPtSens procedure cmdYesClick(Sender: TObject); Public/Published -
FormCreate TfrmPtSens procedure FormCreate(Sender: TObject); Public/Published -

Functions

Name Owner Declaration Scope Comments
RestrictedPtWarning - function RestrictedPtWarning: Boolean; Interfaced -


Module Source

1     unit fPtSens;
2     
3     interface
4     
5     uses
6       Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
7       ExtCtrls, StdCtrls, Buttons, fBase508Form, VA508AccessibilityManager;
8     
9     type
10      TfrmPtSens = class(TfrmBase508Form)
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    
25    function RestrictedPtWarning: Boolean;
26    
27    implementation
28    
29    {$R *.DFM}
30    
31    function RestrictedPtWarning: Boolean;
32    var
33      frmPtSens: TfrmPtSens;
34    begin
35      frmPtSens := TfrmPtSens.Create(Application);
36      try
37        frmPtSens.ShowModal;
38        Result := frmPtSens.FContinue;
39      finally
40        frmPtSens.Free;
41      end;
42    end;
43    
44    procedure TfrmPtSens.FormCreate(Sender: TObject);
45    begin
46      FContinue := False;
47      imgWarning.Picture.Icon.Handle := LoadIcon(0, IDI_EXCLAMATION);
48    end;
49    
50    procedure TfrmPtSens.cmdYesClick(Sender: TObject);
51    begin
52      FContinue := True;
53      Close;
54    end;
55    
56    procedure TfrmPtSens.cmdNoClick(Sender: TObject);
57    begin
58      FContinue := False;
59      Close;
60    end;
61    
62    end.

Module Calls (2 levels)


fPtSens
 └fBase508Form
   ├uConst
   └uHelpManager

Module Called-By (2 levels)

-