Function

TCtrlInits.TextOf

Module

fODBase

Last Modified

7/15/2014 3:26:40 PM

Visibility

Public

Owner

TCtrlInits

Declaration

function TextOf(const ASection: string): string;

Calls Hierarchy


TCtrlInits.TextOf
 └TCtrlInits.FindInitByName

Called-By Hierarchy


                            TCtrlInits.TextOf
                  TfrmODMedIn.SetOnOISelect┤ 
                  TfrmODMedIn.SetupDialog┤ │ 
          TfrmODMedIn.cboMedicationSelect┘ │ 
               TfrmODMedIn.CheckFormAlt┘   │ 
          TfrmODMedIn.cboDispenseExit┤     │ 
    TfrmODMedIn.cboDispenseMouseClick┘     │ 
 TfrmODMedIn.cboMedicationSelect...┘       │ 
                 TfrmODMedOut.SetOnOISelect┤ 
                 TfrmODMedOut.SetupDialog┤ │ 
         TfrmODMedOut.cboMedicationSelect┘ │ 
              TfrmODMedOut.CheckFormAlt┘   │ 
         TfrmODMedOut.cboDispenseExit┤     │ 
   TfrmODMedOut.cboDispenseMouseClick┘     │ 
TfrmODMedOut.cboMedicationSelect...┘       │ 
                TfrmODMedNVA.SetOnMedSelect┤ 
                 TfrmODMedNVA.SetupDialog┤ │ 
              TfrmODMedNVA.btnSelectClick┤ │ 
              TfrmODMedNVA.UMDelayClick┘ │ │ 
            TfrmODMedNVA.CheckFormAltDose┘ │ 
            TfrmODMedNVA.cboDosageClick┘   │ 
           TfrmODMedNVA.cboDosageExit┘     │ 
                  TfrmODMeds.SetOnMedSelect┘ 
                   TfrmODMeds.SetupDialog┤   
                TfrmODMeds.btnSelectClick┤   
                TfrmODMeds.UMDelayClick┘ │   
              TfrmODMeds.CheckFormAltDose┘   
              TfrmODMeds.cboDosageClick┘     
            TfrmODMeds.cboDosageKeyUp┘       

Calls

Name Declaration Comments
TCtrlInits.FindInitByName function FindInitByName(const AName: string): TCtrlInit; -

Called-By

Name Declaration Comments
TfrmODMedNVA.SetOnMedSelect procedure SetOnMedSelect; -
TfrmODMeds.SetOnMedSelect procedure SetOnMedSelect; -
TfrmODMedIn.SetOnOISelect procedure SetOnOISelect; -
TfrmODMedOut.SetOnOISelect procedure SetOnOISelect; -


Source

501   function TCtrlInits.TextOf(const ASection: string): string;
502   var
503     CtrlInit: TCtrlInit;
504   begin
505     Result := '';
506     CtrlInit := FindInitByName(ASection);
507     if CtrlInit <> nil then Result := CtrlInit.List.Text;
508   end;