Class

TfrmPLLex

Module

fProbLex

Last Modified

7/15/2014 3:26:38 PM

Scope

Interfaced

Inherits from

TfrmBase508Form

Declaration


TfrmPLLex = class(TfrmBase508Form)
  {Label1: TLabel;}
  bbCan: TBitBtn;
  bbOK: TBitBtn;
  pnlStatus: TPanel;
  lblStatus: TVA508StaticText;
  ebLex: TCaptionEdit;
  bbSearch: TBitBtn;
  bbExtendedSearch: TBitBtn;
  pnlDialog: TPanel;
  pnlSearch: TPanel;
  pnlButtons: TPanel;
  pnlList: TPanel;
  lblSelect: TLabel;
  lblSearch: Tlabel;
  bbFreetext: TBitBtn;
  tgfLex: TTreeGridFrame;
  procedure EnableExtend;
  procedure DisableExtend;
  procedure EnableFreeText;
  procedure DisableFreeText;
  procedure FormClose(Sender: TObject; var Action: TCloseAction);
  procedure bbOKClick(Sender: TObject);
  procedure bbCanClick(Sender: TObject);
  procedure FormCreate(Sender: TObject);
  procedure ebLexKeyPress(Sender: TObject; var Key: Char);
  procedure bbSearchClick(Sender: TObject);
  procedure FormShow(Sender: TObject);
  procedure bbExtendedSearchClick(Sender: TObject);
  procedure ebLexChange(Sender: TObject);
  procedure setClientWidth(tgf: TTreeGridFrame);
  procedure CenterForm(tgf: TTreeGridFrame; w: Integer);
  procedure bbFreetextClick(Sender: TObject);
  procedure tgfLextvChange(Sender: TObject; Node: TTreeNode);
  procedure tgfLextvEnter(Sender: TObject);
  procedure tgfLextvExit(Sender: TObject);
  procedure tgfLextvDblClick(Sender: TObject);
private
  FExtendOffered: Boolean;
  FSuppressCodes: Boolean;
  FICDLookup: Boolean;
  FBuildingList: Boolean;
  FCenteringForm: Boolean;
  FICDVersion: String;
  FProblemNOS: String;
  FContinueNOS: String;
  FI10Active: Boolean;
  procedure SetICDVersion(ADate: TFMDateTime = 0);
  procedure updateStatus(status: String);
  procedure processSearch(Extend: Boolean);
  procedure SetColumnTreeModel(ResultSet: TStrings);
  function SaveFreetext: Boolean;
  { Private declarations }
public
  { Public declarations }
  procedure SetSearchString(sstring: String);
  function SetFreetextProblem: String;
end;

DFM Objects


frmPLLex : TfrmPLLex
 ├pnlDialog : TPanel
 │ ├pnlSearch : TPanel
 │ │ ├lblSearch : TLabel
 │ │ ├ebLex : TCaptionEdit
 │ │ └bbSearch : TBitBtn
 │ ├pnlButtons : TPanel
 │ │ ├bbOK : TBitBtn
 │ │ ├bbCan : TBitBtn
 │ │ ├bbExtendedSearch : TBitBtn
 │ │ └bbFreetext : TBitBtn
 │ └pnlList : TPanel
 │   ├lblSelect : TLabel
 │   └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
bbCan TBitBtn Public/Published Label1: TLabel;
bbExtendedSearch TBitBtn Public/Published -
bbFreetext TBitBtn Public/Published -
bbOK TBitBtn Public/Published -
bbSearch TBitBtn Public/Published -
ebLex Simple (unknown) Public/Published -
FBuildingList Boolean Private -
FCenteringForm Boolean Private -
FContinueNOS UnicodeString Private -
FExtendOffered Boolean Private -
FI10Active Boolean Private -
FICDLookup Boolean Private -
FICDVersion UnicodeString Private -
FProblemNOS UnicodeString Private -
FSuppressCodes Boolean Private -
lblSearch TLabel Public/Published -
lblSelect TLabel 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 -

Methods

Name Declaration Scope Comments
bbCanClick procedure bbCanClick(Sender: TObject); Public/Published -
bbExtendedSearchClick procedure bbExtendedSearchClick(Sender: TObject); Public/Published -
bbFreetextClick procedure bbFreetextClick(Sender: TObject); Public/Published -
bbOKClick procedure bbOKClick(Sender: TObject); Public/Published -
bbSearchClick procedure bbSearchClick(Sender: TObject); Public/Published -
CenterForm procedure CenterForm(tgf: TTreeGridFrame; w: Integer); Public/Published -
DisableExtend procedure DisableExtend; Public/Published -
DisableFreeText procedure DisableFreeText; Public/Published -
ebLexChange procedure ebLexChange(Sender: TObject); Public/Published -
ebLexKeyPress procedure ebLexKeyPress(Sender: TObject; var Key: Char); Public/Published -
EnableExtend procedure EnableExtend; Public/Published -
EnableFreeText procedure EnableFreeText; Public/Published -
FormClose procedure FormClose(Sender: TObject; var Action: TCloseAction); Public/Published -
FormCreate procedure FormCreate(Sender: TObject); Public/Published -
FormShow procedure FormShow(Sender: TObject); Public/Published -
processSearch procedure processSearch(Extend: Boolean); Private -
SaveFreetext function SaveFreetext: Boolean; Private -
setClientWidth procedure setClientWidth(tgf: TTreeGridFrame); Public/Published -
SetColumnTreeModel procedure SetColumnTreeModel(ResultSet: TStrings); Private -
SetFreetextProblem function SetFreetextProblem: String; Public -
SetICDVersion procedure SetICDVersion(ADate: TFMDateTime = 0); Private -
SetSearchString procedure SetSearchString(sstring: String); Public Public declarations
tgfLextvChange procedure tgfLextvChange(Sender: TObject; Node: TTreeNode); Public/Published -
tgfLextvDblClick procedure tgfLextvDblClick(Sender: TObject); Public/Published -
tgfLextvEnter procedure tgfLextvEnter(Sender: TObject); Public/Published -
tgfLextvExit procedure tgfLextvExit(Sender: TObject); Public/Published -
updateStatus procedure updateStatus(status: String); Private -

Referenced By (4)

Module (line) Referrer Type
fProbEdt (1268) - Read
fProbEdt (1272) - Read
fProbs (751) - Read
fProbs (754) - Read