Class

TCtrlInits

Module

fODBase

Last Modified

7/15/2014 3:26:40 PM

Scope

Interfaced

Inherits from

TObject

Declaration


TCtrlInits = class
private
  FDfltList: TList;
  FOIList:   TList;
  procedure ExtractInits(Src: TStrings; Dest: TList);
  function FindInitByName(const AName: string): TCtrlInit;
public
  constructor Create;
  destructor Destroy; override;
  procedure ClearOI;
  function DefaultText(const ASection: string): string;
  procedure LoadDefaults(Src: TStrings);
  procedure LoadOrderItem(Src: TStrings);
  procedure SetControl(AControl: TControl; const ASection: string);
  procedure SetListOnly(AControl: TControl; const ASection: string);
  procedure SetPopupMenu(AMenu: TPopupMenu; AClickEvent: TNotifyEvent; const ASection: string);
  function TextOf(const ASection: string): string;
end;

Class Hierarchy


TObject
 └TCtrlInits

Class Fields

Name Type Scope Comments
FDfltList TList Private -
FOIList TList Private -

Constructors

Name Declaration Scope Comments
Create constructor Create; Public
TCtrlInits methods 

 create lists to store initial value for dialog and selected orderable item

Destructors

Name Declaration Scope Comments
Destroy destructor Destroy; override; Public Free the objects used to store initialization information

Methods

Name Declaration Scope Comments
ClearOI procedure ClearOI; Public Clears the records in FOIList, but not FDfltList
DefaultText function DefaultText(const ASection: string): string; Public -
ExtractInits procedure ExtractInits(Src: TStrings; Dest: TList); Private Load a list with TCtrlInit records (source strings are those passed from server
FindInitByName function FindInitByName(const AName: string): TCtrlInit; Private Look first in FOIList, then in FDfltList for initial values identified by name (~section)
LoadDefaults procedure LoadDefaults(Src: TStrings); Public Loads control initialization information for the dialog
LoadOrderItem procedure LoadOrderItem(Src: TStrings); Public Loads control initialization information for the orderable item
SetControl procedure SetControl(AControl: TControl; const ASection: string); Public Initializes a control to the information in a section (~section from server)
SetListOnly procedure SetListOnly(AControl: TControl; const ASection: string); Public Assigns list portion to a control from a section (used to set ShortList for meds)
SetPopupMenu procedure SetPopupMenu(AMenu: TPopupMenu; AClickEvent: TNotifyEvent; const ASection: string); Public Populates a popup menu with items in a list, leaves the maximum text width in Tag
TextOf function TextOf(const ASection: string): string; Public -

Referenced By (5)

Module (line) Referrer Type
fODBase (156) TfrmODBase Read
fODBase (205) TfrmODBase Read
fODBase (1434) - Read
fODMedComplex (60) ExecuteComplexDose Read
fODMedComplex (88) - Read