Function

TfrmProblems.MString

Module

fProbs

Last Modified

7/15/2014 3:26:38 PM

Visibility

Private

Owner

TfrmProblems

Declaration

function MString( index: integer): string;

Called-By Hierarchy


                           TfrmProblems.MString
                TfrmProblems.lstProbActsClick┤ 
            TfrmProblems.wgProbDataDblClick┤ │ 
                  TfrmProblems.lstViewClick┘ │ 
          TfrmProblems.HighlightDuplicate┘   │ 
                TfrmProblems.AddProblem┤     │ 
     TfrmProblems.lstProbActsClick...┤ │     │ 
        TfrmProblems.lstProbPickClick┤ │     │ 
     TfrmProblems.lstProbPickDblClick┤ │     │ 
     TfrmProblems.edProbEntKeyPress┘ │ │     │ 
             TfrmProblems.UMPLLexicon┘ │     │ 
          TfrmdlgProb.bbChangeProbClick┘     │ 
                 TfrmProblems.wgProbDataClick┤ 
           TfrmProblems.LoadPatientProblems┘ │ 
         TfrmProblems.lstProbActsClick...┤   │ 
                TfrmProblems.LoadProblems┤   │ 
               TfrmProblems.DisplayPage┤ │   │ 
TfrmProblems.mnuViewRestoreDefaultClick┤ │   │ 
                  TfrmProblems.FormShow┘ │   │ 
              TfrmProblems.RestoreProblem┤   │ 
       TfrmProblems.lstProbActsClick...┘ │   │ 
                    TfrmdlgProb.FormClose┘   │ 
          TfrmProblems.LoadPatientProblems...┤ 
                     TfrmProblems.EditProblem┤ 
           TfrmProblems.lstProbActsClick...┤ │ 
             TfrmProblems.RestoreProblem...┘ │ 
               TfrmProblems.RestoreProblem...┤ 
                     TfrmProblems.RowSelected┤ 
            TfrmProblems.wgProbDataClick...┤ │ 
        TfrmProblems.LoadPatientProblems...┘ │ 
           TfrmProblems.wgProbDataMeasureItem┤ 
              TfrmProblems.wgProbDataDrawItem┘ 

Called-By

Name Declaration Comments
TfrmProblems.EditProblem procedure EditProblem(const why:char); -
TfrmProblems.LoadPatientProblems procedure LoadPatientProblems(AList:TstringList;const status:char;init:boolean); -
TfrmProblems.lstProbActsClick procedure lstProbActsClick(Sender: TObject); -
TfrmProblems.RestoreProblem procedure RestoreProblem; -
TfrmProblems.RowSelected procedure RowSelected; -
TfrmProblems.wgProbDataClick procedure wgProbDataClick(Sender: TObject); -
TfrmProblems.wgProbDataDrawItem procedure wgProbDataDrawItem(Control: TWinControl; Index: Integer; Rect: TRect; State: TOwnerDrawState); -
TfrmProblems.wgProbDataMeasureItem procedure wgProbDataMeasureItem(Control: TWinControl; Index: Integer; var Height: Integer); -


Source

1909  function TfrmProblems.MString(index: integer): string;
1910  begin
1911    if index = -1 then
1912      result := ''
1913    else
1914      result := FAllProblems[StrToInt(FItemData[index])];
1915  end;