Class

TfrmPCEProvider

Module

fPCEProvider

Last Modified

7/15/2014 3:26:36 PM

Scope

Interfaced

Inherits from

TfrmBase508Form

Declaration


TfrmPCEProvider = class(TfrmBase508Form)
  cboPrimary: TORComboBox;
  lblMsg: TMemo;
  btnYes: TButton;
  btnNo: TButton;
  btnSelect: TButton;
  Spacer1: TLabel;
  procedure cboPrimaryNeedData(Sender: TObject; const StartFrom: String;
    Direction, InsertAt: Integer);
  procedure cboPrimaryChange(Sender: TObject);
  procedure FormCreate(Sender: TObject);
  procedure btnSelectClick(Sender: TObject);
private
  FPCEData: TPCEData;
  FUseDefault: boolean;
  FIEN: array[boolean] of Int64;
  FName: array[boolean] of string;
public
  procedure AskUser(ForceSelect: boolean);
end;

DFM Objects


frmPCEProvider : TfrmPCEProvider
 ├Spacer1 : TLabel
 ├lblMsg : TMemo
 ├cboPrimary : TORComboBox
 ├btnYes : TButton
 ├btnNo : TButton
 ├btnSelect : TButton
 └amgrMain : TVA508AccessibilityManager

Class Hierarchy


Class Fields

Name Type Scope Comments
btnNo TButton Public/Published -
btnSelect TButton Public/Published -
btnYes TButton Public/Published -
cboPrimary TORComboBox Public/Published -
FIEN Array (static) Private -
FName Array (static) Private -
FPCEData TPCEData Private -
FUseDefault Boolean Private -
lblMsg TMemo Public/Published -
Spacer1 TLabel Public/Published -

Methods

Name Declaration Scope Comments
AskUser procedure AskUser(ForceSelect: boolean); Public -
btnSelectClick procedure btnSelectClick(Sender: TObject); Public/Published -
cboPrimaryChange procedure cboPrimaryChange(Sender: TObject); Public/Published -
cboPrimaryNeedData procedure cboPrimaryNeedData(Sender: TObject; const StartFrom: String; Direction, InsertAt: Integer); Public/Published TfrmPCEProvider
FormCreate procedure FormCreate(Sender: TObject); Public/Published -

Referenced By (2)

Module (line) Referrer Type
fPCEProvider (49) - Read
fPCEProvider (60) - Read