Class

TfrmPCELex

Module

fPCELex

Last Modified

7/15/2014 3:26:36 PM

Scope

Interfaced

Inherits from

TfrmBase508Form

Declaration


TfrmPCELex = class(TfrmBase508Form)
  txtSearch: TCaptionEdit;
  cmdSearch: TButton;
  pnlStatus: TPanel;
  pnlDialog: TPanel;
  pnlButtons: TPanel;
  cmdOK: TButton;
  cmdCancel: TButton;
  cmdExtendedSearch: TBitBtn;
  pnlSearch: TPanel;
  pnlList: TPanel;
  lblStatus: TVA508StaticText;
  lblSelect: TVA508StaticText;
  lblSearch: TLabel;
  tgfLex: TTreeGridFrame;
  procedure cmdSearchClick(Sender: TObject);
  procedure cmdCancelClick(Sender: TObject);
  procedure FormCreate(Sender: TObject);
  procedure cmdOKClick(Sender: TObject);
  procedure txtSearchChange(Sender: TObject);
  procedure cmdExtendedSearchClick(Sender: TObject);
  function isNumeric(inStr: String): Boolean;
  procedure FormShow(Sender: TObject);
  procedure FormClose(Sender: TObject; var Action: TCloseAction);
  procedure tgfLextvChange(Sender: TObject; Node: TTreeNode);
  procedure tgfLextvClick(Sender: TObject);
  procedure tgfLextvDblClick(Sender: TObject);
  procedure tgfLextvEnter(Sender: TObject);
  procedure tgfLextvExit(Sender: TObject);
  procedure tgfLextvHint(Sender: TObject; const Node: TTreeNode;
    var Hint: string);
  procedure tgfLextvExpanding(Sender: TObject; Node: TTreeNode;
    var AllowExpansion: Boolean);
private
  FLexApp: Integer;
  FSuppressCodes: Boolean;
  FCode:   string;
  FDate:   TFMDateTime;
  FICDVersion: String;
  FI10Active: Boolean;
  FExtend: Boolean;
  FMessage: String;
  FSingleCodeSys: Boolean;
  FCodeSys: String;
  function ParseNarrCode(ANarrCode: String): String;
  procedure SetApp(LexApp: Integer);
  procedure SetDate(ADate: TFMDateTime);
  procedure SetICDVersion;
  procedure enableExtend;
  procedure disableExtend;
  procedure updateStatus(status: String);
  procedure SetColumnTreeModel(ResultSet: TStrings);
  procedure processSearch;
  procedure setClientWidth;
  procedure CenterForm(w: Integer);
end;

DFM Objects


frmPCELex : TfrmPCELex
 ├pnlDialog : TPanel
 │ ├pnlButtons : TPanel
 │ │ ├cmdOK : TButton
 │ │ ├cmdCancel : TButton
 │ │ └cmdExtendedSearch : TBitBtn
 │ ├pnlSearch : TPanel
 │ │ ├lblSearch : TLabel
 │ │ ├txtSearch : TCaptionEdit
 │ │ └cmdSearch : TButton
 │ └pnlList : TPanel
 │   ├lblSelect : TVA508StaticText
 │   └tgfLex : TTreeGridFrame
 │     ├tv : TTreeView
 │     ├pnlTop : TPanel
 │     │ └stTitle : TStaticText
 │     ├pnlSpace : TPanel
 │     └pnlHint : TPanel
 │       ├pnlTarget : TPanel
 │       │ ├mmoTargetCode : TMemo
 │       │ └pnlTargetCodeSys : TPanel
 │       ├pnlCode : TPanel
 │       │ ├mmoCode : TMemo
 │       │ └pnlCodeSys : TPanel
 │       └pnlDesc : TPanel
 │         ├mmoDesc : TMemo
 │         └pnlDescText : TPanel
 ├pnlStatus : TPanel
 │ └lblStatus : TVA508StaticText
 └amgrMain : TVA508AccessibilityManager

Class Hierarchy


Class Fields

Name Type Scope Comments
cmdCancel TButton Public/Published -
cmdExtendedSearch Simple (unknown) Public/Published -
cmdOK TButton Public/Published -
cmdSearch TButton Public/Published -
FCode UnicodeString Private -
FCodeSys UnicodeString Private -
FDate TFMDateTime Private -
FExtend Boolean Private -
FI10Active Boolean Private -
FICDVersion UnicodeString Private -
FLexApp Integer Private -
FMessage UnicodeString Private -
FSingleCodeSys Boolean Private -
FSuppressCodes Boolean Private -
lblSearch TLabel Public/Published -
lblSelect TVA508StaticText Public/Published -
lblStatus TVA508StaticText Public/Published -
pnlButtons TPanel Public/Published -
pnlDialog TPanel Public/Published -
pnlList TPanel Public/Published -
pnlSearch TPanel Public/Published -
pnlStatus TPanel Public/Published -
tgfLex TTreeGridFrame Public/Published -
txtSearch Simple (unknown) Public/Published -

Methods

Name Declaration Scope Comments
CenterForm procedure CenterForm(w: Integer); Private -
cmdCancelClick procedure cmdCancelClick(Sender: TObject); Public/Published -
cmdExtendedSearchClick procedure cmdExtendedSearchClick(Sender: TObject); Public/Published -
cmdOKClick procedure cmdOKClick(Sender: TObject); Public/Published -
cmdSearchClick procedure cmdSearchClick(Sender: TObject); Public/Published -
disableExtend procedure disableExtend; Private -
enableExtend procedure enableExtend; Private -
FormClose procedure FormClose(Sender: TObject; var Action: TCloseAction); Public/Published -
FormCreate procedure FormCreate(Sender: TObject); Public/Published -
FormShow procedure FormShow(Sender: TObject); Public/Published -
isNumeric function isNumeric(inStr: String): Boolean; Public/Published -
ParseNarrCode function ParseNarrCode(ANarrCode: String): String; Private -
processSearch procedure processSearch; Private -
SetApp procedure SetApp(LexApp: Integer); Private -
setClientWidth procedure setClientWidth; Private -
SetColumnTreeModel procedure SetColumnTreeModel(ResultSet: TStrings); Private -
SetDate procedure SetDate(ADate: TFMDateTime); Private -
SetICDVersion procedure SetICDVersion; Private -
tgfLextvChange procedure tgfLextvChange(Sender: TObject; Node: TTreeNode); Public/Published -
tgfLextvClick procedure tgfLextvClick(Sender: TObject); Public/Published -
tgfLextvDblClick procedure tgfLextvDblClick(Sender: TObject); Public/Published -
tgfLextvEnter procedure tgfLextvEnter(Sender: TObject); Public/Published -
tgfLextvExit procedure tgfLextvExit(Sender: TObject); Public/Published -
tgfLextvExpanding procedure tgfLextvExpanding(Sender: TObject; Node: TTreeNode; var AllowExpansion: Boolean); Public/Published -
tgfLextvHint procedure tgfLextvHint(Sender: TObject; const Node: TTreeNode; var Hint: string); Public/Published -
txtSearchChange procedure txtSearchChange(Sender: TObject); Public/Published -
updateStatus procedure updateStatus(status: String); Private -

Referenced By (2)

Module (line) Referrer Type
fPCELex (81) - Read
fPCELex (83) - Read