Function

TfrmProblems.PlainText

Module

fProbs

Last Modified

7/15/2014 3:26:38 PM

Visibility

Private

Owner

TfrmProblems

Declaration

function PlainText( MString: string): string;

Called-By Hierarchy


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

Called-By

Name Declaration Comments
TfrmProblems.RefreshList procedure RefreshList; -


Source

1897  function TfrmProblems.PlainText(MString: string): string;
1898  var
1899    i: integer;
1900  begin
1901    result := '';
1902    with HeaderControl do
1903      for i := 0 to Sections.Count -1 do
1904        if Sections[i].MaxWidth > 0 then
1905          if Trim(Piece(MString, U, i+1)) <> '' then
1906            result := result + Sections[i].Text + ': ' + Piece(MString, U, i+1) + CRLF;
1907  end;