Module

fPINPrompt

Path

C:\CPRS\CPRS30\XuDigSig\fPINPrompt.pas

Last Modified

7/15/2014 3:26:44 PM

Classes

Name Comments
TfrmPINPrompt -

Procedures

Name Owner Declaration Scope Comments
btnOKClick TfrmPINPrompt procedure btnOKClick(Sender: TObject); Public/Published -
FormShow TfrmPINPrompt procedure FormShow(Sender: TObject); Public/Published -

Global Variables

Name Type Declaration Comments
frmPINPrompt TfrmPINPrompt frmPINPrompt: TfrmPINPrompt; -
PINValue UnicodeString PINValue: String; -

Constants

Name Declaration Scope Comments
pinCancel TPINResultVal Interfaced -
pinLocked TPINResultVal Interfaced -
pinOK TPINResultVal Interfaced -


Module Source

1     unit fPINPrompt;
2     
3     interface
4     
5     uses
6       Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
7       Dialogs, StdCtrls, ExtCtrls;
8     
9     type
10      TfrmPINPrompt = class(TForm)
11        Panel1: TPanel;
12        btnOK: TButton;
13        btnCancel: TButton;
14        edtPINValue: TEdit;
15        Label1: TLabel;
16        Panel2: TPanel;
17        Panel3: TPanel;
18        procedure btnOKClick(Sender: TObject);
19        procedure FormShow(Sender: TObject);
20      private
21        { Private declarations }
22      public
23        { Public declarations }
24      end;
25      TPINResultVal = (pinOK, pinCancel, pinLocked);
26    
27    var
28      frmPINPrompt: TfrmPINPrompt;
29      PINValue: String;
30    
31    implementation
32    
33    {$R *.dfm}
34    
35    procedure TfrmPINPrompt.btnOKClick(Sender: TObject);
36    begin
37      PINValue := edtPINValue.Text;
38    end;
39    
40    procedure TfrmPINPrompt.FormShow(Sender: TObject);
41    begin
42      edtPINValue.SetFocus;
43    end;
44    
45    end.

Module Calls (2 levels)

-

Module Called-By (2 levels)


     fPINPrompt
      XuDsigS┘ 
    uOrders┤   
     fFrame┤   
fOrdersSign┤   
    fReview┘