Procedure

StripScreenReaderCodes

Directives

Overload

Module

uTemplateFields

Last Modified

3/11/2015 8:41:54 AM

Scope

Interfaced

Declaration

procedure StripScreenReaderCodes(SL: TStrings); overload;

Calls Hierarchy


StripScreenReaderCodes
 └StripScreenReaderCodes

Called-By Hierarchy


                              StripScreenReaderCodes
                           CheckBoilerplate4Fields┘ 
                                DoTemplateDialog┤   
                    CheckBoilerplate4Fields...┤ │   
                             TTemplate.GetText┘ │   
                ExecuteTemplateOrBoilerPlate┤   │   
                      TfrmDrawers.InsertText┤   │   
           TfrmDrawers.tvTemplatesDblClick┤ │   │   
            TfrmDrawers.tvTemplatesKeyDown┤ │   │   
                TfrmDrawers.NewRECDragDrop┤ │   │   
          TfrmDrawers.SetRichEditControl┘ │ │   │   
                 TfrmDCSumm.FormCreate┤   │ │   │   
               TfrmConsults.FormCreate┤   │ │   │   
                TfrmSurgery.FormCreate┤   │ │   │   
                  TfrmNotes.FormCreate┘   │ │   │   
        TfrmDrawers.mnuInsertTemplateClick┘ │   │   
  TfrmDCSumm.popSummMemoInsTemplateClick┤   │   │   
TfrmConsults.popNoteMemoInsTemplateClick┤   │   │   
 TfrmSurgery.popNoteMemoInsTemplateClick┤   │   │   
   TfrmNotes.popNoteMemoInsTemplateClick┘   │   │   
         TfrmDrawers.mnuPreviewTemplateClick┤   │   
        TfrmDCSumm.popSummMemoPreviewClick┤ │   │   
      TfrmConsults.popNoteMemoPreviewClick┤ │   │   
       TfrmSurgery.popNoteMemoPreviewClick┤ │   │   
         TfrmNotes.popNoteMemoPreviewClick┘ │   │   
            TfrmDrawers.mnuCopyTemplateClick┤   │   
            TfrmTemplateEditor.mnuBPTryClick┘   │   
          TfrmTemplateEditor.tvTreeKeyDown┘     │   
                                ShowTemplateData┘   
        TfrmDrawers.mnuPreviewTemplateClick...┤     
           TfrmTemplateEditor.mnuBPTryClick...┘     

Calls

Name Declaration Comments
StripScreenReaderCodes procedure StripScreenReaderCodes(var Text: string); overload; -

Called-By

Name Declaration Comments
CheckBoilerplate4Fields procedure CheckBoilerplate4Fields(SL: TStrings; const CaptionText: string = ''; PreviewMode: boolean = FALSE); overload; -


Source

2539  procedure StripScreenReaderCodes(SL: TStrings);
2540  var
2541    temp: string;
2542    i: integer;
2543  
2544  begin
2545    for i := 0 to SL.Count - 1 do
2546    begin
2547      temp := SL[i];
2548      StripScreenReaderCodes(temp);
2549      SL[i] := temp;
2550    end;
2551  end;