Class

TfrmConsMedRslt

Module

fConsMedRslt

Last Modified

7/15/2014 3:26:34 PM

Scope

Interfaced

Inherits from

TfrmAutoSz

Declaration


TfrmConsMedRslt = class(TfrmAutoSz)
  cmdOK: TButton;
  cmdCancel: TButton;
  lstMedResults: TORListBox;
  SrcLabel: TLabel;
  pnlBase: TORAutoPanel;
  cmdDetails: TButton;
  ckAlert: TCheckBox;
  lblDateofAction: TOROffsetLabel;
  calDateofAction: TORDateBox;
  lblActionBy: TOROffsetLabel;
  cboPerson: TORComboBox;
  lblResultName: TOROffsetLabel;
  lblResultDate: TOROffsetLabel;
  lblSummary: TOROffsetLabel;
  procedure cmdOKClick(Sender: TObject);
  procedure cmdCancelClick(Sender: TObject);
  procedure cmdDetailsClick(Sender: TObject);
  procedure ckAlertClick(Sender: TObject);
  procedure NewPersonNeedData(Sender: TObject; const StartFrom: String;
    Direction, InsertAt: Integer);
  procedure FormDestroy(Sender: TObject);
  procedure lstMedResultsDrawItem(Control: TWinControl; Index: Integer;
    Rect: TRect; State: TOwnerDrawState);
protected
  procedure ShowDetailsDestroyed(Sender: TObject);
private
  FShowDetails: TfrmReportBox;
  FOldShowDetailsOnDestroy: TNotifyEvent;
  FMedResult: TMedResultRec ;
  FChanged: Boolean;
end;

DFM Objects


frmConsMedRslt : TfrmConsMedRslt
 ├pnlBase : TORAutoPanel
 │ ├SrcLabel : TLabel
 │ ├lblDateofAction : TOROffsetLabel
 │ ├lblActionBy : TOROffsetLabel
 │ ├lblResultName : TOROffsetLabel
 │ ├lblResultDate : TOROffsetLabel
 │ ├lblSummary : TOROffsetLabel
 │ ├cmdOK : TButton
 │ ├cmdCancel : TButton
 │ ├lstMedResults : TORListBox
 │ ├cmdDetails : TButton
 │ ├ckAlert : TCheckBox
 │ ├calDateofAction : TORDateBox
 │ └cboPerson : TORComboBox
 └amgrMain : TVA508AccessibilityManager

Class Hierarchy


Class Fields

Name Type Scope Comments
calDateofAction TORDateBox Public/Published -
cboPerson TORComboBox Public/Published -
ckAlert TCheckBox Public/Published -
cmdCancel TButton Public/Published -
cmdDetails TButton Public/Published -
cmdOK TButton Public/Published -
FChanged Boolean Private -
FMedResult Private -
FOldShowDetailsOnDestroy TNotifyEvent Private -
FShowDetails TfrmReportBox Private -
lblActionBy TOROffsetLabel Public/Published -
lblDateofAction TOROffsetLabel Public/Published -
lblResultDate TOROffsetLabel Public/Published -
lblResultName TOROffsetLabel Public/Published -
lblSummary TOROffsetLabel Public/Published -
lstMedResults TORListBox Public/Published -
pnlBase TORAutoPanel Public/Published -
SrcLabel TLabel Public/Published -

Methods

Name Declaration Scope Comments
ckAlertClick procedure ckAlertClick(Sender: TObject); Public/Published -
cmdCancelClick procedure cmdCancelClick(Sender: TObject); Public/Published -
cmdDetailsClick procedure cmdDetailsClick(Sender: TObject); Public/Published MsgString, HasImages: string;
cmdOKClick procedure cmdOKClick(Sender: TObject); Public/Published -
FormDestroy procedure FormDestroy(Sender: TObject); Public/Published -
lstMedResultsDrawItem procedure lstMedResultsDrawItem(Control: TWinControl; Index: Integer; Rect: TRect; State: TOwnerDrawState); Public/Published -
NewPersonNeedData procedure NewPersonNeedData(Sender: TObject; const StartFrom: String; Direction, InsertAt: Integer); Public/Published -
ShowDetailsDestroyed procedure ShowDetailsDestroyed(Sender: TObject); Protected -

Referenced By (2)

Module (line) Referrer Type
fConsMedRslt (69) - Read
fConsMedRslt (71) - Read