Class

TfrmGAF

Module

fGAF

Last Modified

7/15/2014 3:26:36 PM

Scope

Interfaced

Inherits from

TfrmPCEBaseGrid

Declaration


TfrmGAF = class(TfrmPCEBaseGrid)
  lblGAF: TStaticText;
  edtScore: TCaptionEdit;
  udScore: TUpDown;
  dteGAF: TORDateBox;
  lblEntry: TStaticText;
  lblScore: TLabel;
  lblDate: TLabel;
  lblDeterminedBy: TLabel;
  cboGAFProvider: TORComboBox;
  btnURL: TButton;
  Spacer1: TLabel;
  Spacer2: TLabel;
  procedure cboGAFProviderNeedData(Sender: TObject; const StartFrom: String;
    Direction, InsertAt: Integer);
  procedure edtScoreChange(Sender: TObject);
  procedure dteGAFExit(Sender: TObject);
  procedure cboGAFProviderExit(Sender: TObject);
  procedure FormActivate(Sender: TObject);
  procedure FormShow(Sender: TObject);
  procedure btnURLClick(Sender: TObject);
  procedure FormCreate(Sender: TObject);
private
  FDataLoaded: boolean;
  procedure LoadScores;
  function BADData(ShowMessage: boolean): boolean;
public
  procedure AllowTabChange(var AllowChange: boolean); override;
  procedure GetGAFScore(var Score: integer; var Date: TFMDateTime; var Staff: Int64);
end;

DFM Objects


frmGAF : TfrmGAF
 ├lblScore : TLabel
 ├lblDate : TLabel
 ├lblDeterminedBy : TLabel
 ├Spacer1 : TLabel
 ├Spacer2 : TLabel
 ├lblGAF : TStaticText
 ├lblEntry : TStaticText
 ├btnOK : TBitBtn
 ├btnCancel : TBitBtn
 ├pnlGrid : TPanel
 │ ├lbGrid : TORListBox
 │ └hcGrid : THeaderControl
 ├edtScore : TCaptionEdit
 ├udScore : TUpDown
 ├dteGAF : TORDateBox
 ├cboGAFProvider : TORComboBox
 ├btnURL : TButton
 └amgrMain : TVA508AccessibilityManager

Class Hierarchy


Class Fields

Name Type Scope Comments
btnURL TButton Public/Published -
cboGAFProvider TORComboBox Public/Published -
dteGAF TORDateBox Public/Published -
edtScore TCaptionEdit Public/Published -
FDataLoaded Boolean Private -
lblDate TLabel Public/Published -
lblDeterminedBy TLabel Public/Published -
lblEntry TStaticText Public/Published -
lblGAF TStaticText Public/Published -
lblScore TLabel Public/Published -
Spacer1 TLabel Public/Published -
Spacer2 TLabel Public/Published -
udScore TUpDown Public/Published -

Methods

Name Declaration Scope Comments
AllowTabChange procedure AllowTabChange(var AllowChange: boolean); override; Public -
BADData function BADData(ShowMessage: boolean): boolean; Private -
btnURLClick procedure btnURLClick(Sender: TObject); Public/Published -
cboGAFProviderExit procedure cboGAFProviderExit(Sender: TObject); Public/Published -
cboGAFProviderNeedData procedure cboGAFProviderNeedData(Sender: TObject; const StartFrom: String; Direction, InsertAt: Integer); Public/Published -
dteGAFExit procedure dteGAFExit(Sender: TObject); Public/Published -
edtScoreChange procedure edtScoreChange(Sender: TObject); Public/Published -
FormActivate procedure FormActivate(Sender: TObject); Public/Published -
FormCreate procedure FormCreate(Sender: TObject); Public/Published -
FormShow procedure FormShow(Sender: TObject); Public/Published -
GetGAFScore procedure GetGAFScore(var Score: integer; var Date: TFMDateTime; var Staff: Int64); Public -
LoadScores procedure LoadScores; Private -

Referenced By (3)

Module (line) Referrer Type
fEncounterFrame (277) - Read
fGAF (45) frmGAF Read
fGAF (208) - Read