Function

ForChars

Module

uProbs

Last Modified

7/15/2014 3:26:44 PM

Scope

Interfaced

Declaration

function ForChars(Num, FontWidth: Integer): Integer;

Called-By Hierarchy


                                         ForChars
                     TfrmProblems.SetGridPieces┘ 
                  TfrmProblems.pnlRightResize┤   
              TfrmProblems.lstProbActsClick┤ │   
          TfrmProblems.wgProbDataDblClick┤ │ │   
                TfrmProblems.lstViewClick┘ │ │   
        TfrmProblems.HighlightDuplicate┘   │ │   
              TfrmProblems.AddProblem┤     │ │   
   TfrmProblems.lstProbActsClick...┤ │     │ │   
      TfrmProblems.lstProbPickClick┤ │     │ │   
   TfrmProblems.lstProbPickDblClick┤ │     │ │   
   TfrmProblems.edProbEntKeyPress┘ │ │     │ │   
           TfrmProblems.UMPLLexicon┘ │     │ │   
        TfrmdlgProb.bbChangeProbClick┘     │ │   
                TfrmProblems.LoadUserParams┤ │   
                TfrmProblems.LoadProblems┘ │ │   
               TfrmProblems.DisplayPage┤   │ │   
TfrmProblems.mnuViewRestoreDefaultClick┤   │ │   
                  TfrmProblems.FormShow┘   │ │   
           TfrmProblems.LoadPatientProblems┘ │   
         TfrmProblems.lstProbActsClick...┤   │   
             TfrmProblems.LoadProblems...┤   │   
              TfrmProblems.RestoreProblem┤   │   
       TfrmProblems.lstProbActsClick...┘ │   │   
                    TfrmdlgProb.FormClose┘   │   
          TfrmProblems.LoadPatientProblems...┘   

Called-By

Name Declaration Comments
TfrmProblems.SetGridPieces procedure SetGridPieces(Pieces: string); -


Source

1423  function ForChars(Num, FontWidth: Integer): Integer;
1424  begin
1425    Result := Num * FontWidth;
1426  end;