Class

TfrmODMedComplex

Module

fODMedComplex

Last Modified

7/15/2014 3:26:42 PM

Scope

Interfaced

Inherits from

TfrmAutoSz

Declaration


TfrmODMedComplex = class(TfrmAutoSz)
  grdDoses: TStringGrid;
  cmdOK: TButton;
  cmdCancel: TButton;
  cboRoute: TORComboBox;
  cboSchedule: TORComboBox;
  pnlInstruct: TPanel;
  cboInstruct: TORComboBox;
  btnUnits: TSpeedButton;
  pnlDays: TPanel;
  txtDays: TCaptionEdit;
  Label1: TLabel;
  popUnits: TPopupMenu;
  Bevel1: TBevel;
  cmdInsert: TButton;
  cmdRemove: TButton;
  UpDown2: TUpDown;
  procedure FormCreate(Sender: TObject);
  procedure cmdOKClick(Sender: TObject);
  procedure cmdCancelClick(Sender: TObject);
  procedure btnUnitsClick(Sender: TObject);
  procedure pnlInstructExit(Sender: TObject);
  procedure cboRouteExit(Sender: TObject);
  procedure cboScheduleExit(Sender: TObject);
  procedure pnlDaysExit(Sender: TObject);
  procedure grdDosesDrawCell(Sender: TObject; ACol, ARow: Integer;
    Rect: TRect; State: TGridDrawState);
  procedure pnlInstructEnter(Sender: TObject);
  procedure pnlDaysEnter(Sender: TObject);
  procedure grdDosesMouseUp(Sender: TObject; Button: TMouseButton;
    Shift: TShiftState; X, Y: Integer);
  procedure cmdInsertClick(Sender: TObject);
  procedure cmdRemoveClick(Sender: TObject);
  procedure grdDosesMouseDown(Sender: TObject; Button: TMouseButton;
    Shift: TShiftState; X, Y: Integer);
  procedure grdDosesKeyPress(Sender: TObject; var Key: Char);
  procedure txtDaysChange(Sender: TObject);
  procedure cboRouteClick(Sender: TObject);
private
  FDropColumn: Integer;
  procedure ShowEditor(ACol, ARow: Integer; AChar: Char);
  procedure UnitClick(Sender: TObject);
  procedure Validate(var AnErrMsg: string);
  function ValFor(FieldID, ARow: Integer): string;
  procedure UMDelayEvent(var Message: TMessage); message UM_DELAYEVENT;
public
  { Public declarations }
end;

DFM Objects


frmODMedComplex : TfrmODMedComplex
 ├Bevel1 : TBevel
 ├grdDoses : TStringGrid
 ├cmdOK : TButton
 ├cmdCancel : TButton
 ├cboRoute : TORComboBox
 ├cboSchedule : TORComboBox
 ├pnlInstruct : TPanel
 │ ├btnUnits : TSpeedButton
 │ └cboInstruct : TORComboBox
 ├pnlDays : TPanel
 │ ├Label1 : TLabel
 │ ├txtDays : TCaptionEdit
 │ └UpDown2 : TUpDown
 ├cmdInsert : TButton
 ├cmdRemove : TButton
 ├amgrMain : TVA508AccessibilityManager
 └popUnits : TPopupMenu

Class Hierarchy


Class Fields

Name Type Scope Comments
Bevel1 TBevel Public/Published -
btnUnits TSpeedButton Public/Published -
cboInstruct TORComboBox Public/Published -
cboRoute TORComboBox Public/Published -
cboSchedule TORComboBox Public/Published -
cmdCancel TButton Public/Published -
cmdInsert TButton Public/Published -
cmdOK TButton Public/Published -
cmdRemove TButton Public/Published -
FDropColumn Integer Private -
grdDoses TStringGrid Public/Published -
Label1 TLabel Public/Published -
pnlDays TPanel Public/Published -
pnlInstruct TPanel Public/Published -
popUnits TPopupMenu Public/Published -
txtDays TCaptionEdit Public/Published -
UpDown2 TUpDown Public/Published -

Methods

Name Declaration Scope Comments
btnUnitsClick procedure btnUnitsClick(Sender: TObject); Public/Published -
cboRouteClick procedure cboRouteClick(Sender: TObject); Public/Published
Route Editor 

 force all routes to be the same (until pharmacy changes to accomodate varying routes)
cboRouteExit procedure cboRouteExit(Sender: TObject); Public/Published -
cboScheduleExit procedure cboScheduleExit(Sender: TObject); Public/Published Schedule Editor
cmdCancelClick procedure cmdCancelClick(Sender: TObject); Public/Published -
cmdInsertClick procedure cmdInsertClick(Sender: TObject); Public/Published Command Buttons
cmdOKClick procedure cmdOKClick(Sender: TObject); Public/Published -
cmdRemoveClick procedure cmdRemoveClick(Sender: TObject); Public/Published -
FormCreate procedure FormCreate(Sender: TObject); Public/Published Form Events
grdDosesDrawCell procedure grdDosesDrawCell(Sender: TObject; ACol, ARow: Integer; Rect: TRect; State: TGridDrawState); Public/Published Only show the first tab piece of the cell
grdDosesKeyPress procedure grdDosesKeyPress(Sender: TObject; var Key: Char); Public/Published -
grdDosesMouseDown procedure grdDosesMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); Public/Published GrdDoses events (including cell editors)
grdDosesMouseUp procedure grdDosesMouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); Public/Published -
pnlDaysEnter procedure pnlDaysEnter(Sender: TObject); Public/Published Duration Editor
pnlDaysExit procedure pnlDaysExit(Sender: TObject); Public/Published -
pnlInstructEnter procedure pnlInstructEnter(Sender: TObject); Public/Published Instructions Editor
pnlInstructExit procedure pnlInstructExit(Sender: TObject); Public/Published -
ShowEditor procedure ShowEditor(ACol, ARow: Integer; AChar: Char); Private -
txtDaysChange procedure txtDaysChange(Sender: TObject); Public/Published -
UMDelayEvent procedure UMDelayEvent(var Message: TMessage); message UM_DELAYEVENT; Private After focusing events are completed for a combobox, set the key the user typed
UnitClick procedure UnitClick(Sender: TObject); Private -
ValFor function ValFor(FieldID, ARow: Integer): string; Private
General Functions - get & set cell values

 Contents of grid cells is as follows (cells delimited by |, ^ indicates tab char)
    InstructionText^INSTR^MISC | RouteText^ROUTE^Abbrev. | SCHEDULE  DurationText^DAYS
  Only the first tab piece for each cell is drawn.
Validate procedure Validate(var AnErrMsg: string); Private -

Referenced By (2)

Module (line) Referrer Type
fODMedComplex (90) - Read
fODMedComplex (95) - Read