Class

TfrmTemplateDialog

Module

fTemplateDialog

Last Modified

7/15/2014 3:26:44 PM

Scope

Interfaced

Inherits from

TfrmBase508Form

Declaration


TfrmTemplateDialog = class(TfrmBase508Form)
  sbMain: TScrollBox;
  pnlBottom: TScrollBox;
  btnCancel: TButton;
  btnOK: TButton;
  btnAll: TButton;
  btnNone: TButton;
  lblFootnote: TStaticText;
  btnPreview: TButton;
  procedure btnAllClick(Sender: TObject);
  procedure btnNoneClick(Sender: TObject);
  procedure FormPaint(Sender: TObject);
  procedure FormCreate(Sender: TObject);
  procedure FormDestroy(Sender: TObject);
  procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
  procedure btnOKClick(Sender: TObject);
  procedure btnPreviewClick(Sender: TObject);
  procedure FormClose(Sender: TObject; var Action: TCloseAction);
  procedure FormShow(Sender: TObject);
  procedure FormMouseWheel(Sender: TObject; Shift: TShiftState;
    WheelDelta: Integer; MousePos: TPoint; var Handled: Boolean);
private
  FFirstBuild: boolean;
  SL: TStrings;
  BuildIdx: TStringList;
  Entries: TStringList;
  NoTextID: TStringList;
  Index: string;
  OneOnly: boolean;
  Count: integer;
  RepaintBuild: boolean;
  FirstIndent: integer;
  FBuilding: boolean;
  FOldHintEvent: TShowHintEvent;
  FMaxPnlWidth: integer;
  FTabPos: integer;
  FCheck4Required: boolean;
  FSilent: boolean;
  procedure SizeFormToCancelBtn();
  procedure ChkAll(Chk: boolean);
  procedure BuildCB(CBidx: integer; var Y: integer; FirstTime: boolean);
  procedure ItemChecked(Sender: TObject);
  procedure BuildAllControls;
  procedure AppShowHint(var HintStr: string; var CanShow: Boolean;
                        var HintInfo: THintInfo);
  procedure FieldChanged(Sender: TObject);
  procedure EntryDestroyed(Sender: TObject);
  function GetObjectID( Control: TControl): string;
  function GetParentID( Control: TControl): string;
  function FindObjectByID( id: string): TControl;
  function IsAncestor( OldID: string; NewID: string): boolean;
  procedure ParentCBEnter(Sender: TObject);
  procedure ParentCBExit(Sender: TObject);
  procedure UMScreenReaderInit(var Message: TMessage); message UM_MISC;
  procedure InitScreenReaderSetup;
public
  property Silent: boolean read FSilent write FSilent ;
published
end;

DFM Objects


frmTemplateDialog : TfrmTemplateDialog
 ├sbMain : TScrollBox
 ├pnlBottom : TScrollBox
 │ ├lblFootnote : TStaticText
 │ ├btnCancel : TButton
 │ ├btnOK : TButton
 │ ├btnAll : TButton
 │ ├btnNone : TButton
 │ └btnPreview : TButton
 └amgrMain : TVA508AccessibilityManager

Class Hierarchy


Class Fields

Name Type Scope Comments
btnAll TButton Public/Published -
btnCancel TButton Public/Published -
btnNone TButton Public/Published -
btnOK TButton Public/Published -
btnPreview TButton Public/Published -
BuildIdx TStringList Private -
Count Integer Private -
Entries TStringList Private -
FBuilding Boolean Private -
FCheck4Required Boolean Private -
FFirstBuild Boolean Private -
FirstIndent Integer Private -
FMaxPnlWidth Integer Private -
FOldHintEvent Simple (unknown) Private -
FSilent Boolean Private -
FTabPos Integer Private -
Index UnicodeString Private -
lblFootnote Simple (unknown) Public/Published -
NoTextID TStringList Private -
OneOnly Boolean Private -
pnlBottom Simple (unknown) Public/Published -
RepaintBuild Boolean Private -
sbMain Simple (unknown) Public/Published -
SL TStrings Private -

Properties

Name Type Scope Comments
Silent Boolean Public -

Methods

Name Declaration Scope Comments
AppShowHint procedure AppShowHint(var HintStr: string; var CanShow: Boolean; var HintInfo: THintInfo); Private -
btnAllClick procedure btnAllClick(Sender: TObject); Public/Published -
btnNoneClick procedure btnNoneClick(Sender: TObject); Public/Published -
btnOKClick procedure btnOKClick(Sender: TObject); Public/Published -
btnPreviewClick procedure btnPreviewClick(Sender: TObject); Public/Published -
BuildAllControls procedure BuildAllControls; Private -
BuildCB procedure BuildCB(CBidx: integer; var Y: integer; FirstTime: boolean); Private StringIn, StringOut: string;
ChkAll procedure ChkAll(Chk: boolean); Private -
EntryDestroyed procedure EntryDestroyed(Sender: TObject); Private -
FieldChanged procedure FieldChanged(Sender: TObject); Private -
FindObjectByID function FindObjectByID( id: string): TControl; Private -
FormClose procedure FormClose(Sender: TObject; var Action: TCloseAction); Public/Published -
FormCloseQuery procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean); Public/Published -
FormCreate procedure FormCreate(Sender: TObject); Public/Published -
FormDestroy procedure FormDestroy(Sender: TObject); Public/Published -
FormMouseWheel procedure FormMouseWheel(Sender: TObject; Shift: TShiftState; WheelDelta: Integer; MousePos: TPoint; var Handled: Boolean); Public/Published -
FormPaint procedure FormPaint(Sender: TObject); Public/Published -
FormShow procedure FormShow(Sender: TObject); Public/Published -
GetObjectID function GetObjectID( Control: TControl): string; Private -
GetParentID function GetParentID( Control: TControl): string; Private -
InitScreenReaderSetup procedure InitScreenReaderSetup; Private -
IsAncestor function IsAncestor( OldID: string; NewID: string): boolean; Private -
ItemChecked procedure ItemChecked(Sender: TObject); Private -
ParentCBEnter procedure ParentCBEnter(Sender: TObject); Private -
ParentCBExit procedure ParentCBExit(Sender: TObject); Private -
SizeFormToCancelBtn procedure SizeFormToCancelBtn(); Private -
UMScreenReaderInit procedure UMScreenReaderInit(var Message: TMessage); message UM_MISC; Private -

Referenced By (2)

Module (line) Referrer Type
fTemplateDialog (78) frmTemplateDialog Read
fTemplateDialog (202) - Read