Function

SpellCheckAvailable

Module

uSpell

Last Modified

7/15/2014 3:26:44 PM

Comments

Spell Checking using Visual Basic for Applications script 

const
  WORD_VBA_CLSID = 'CLSID\{000209FF-0000-0000-C000-000000000046}';

Scope

Interfaced

Declaration

function  SpellCheckAvailable: Boolean;

Calls Hierarchy


SpellCheckAvailable
 └GetUserParam

Called-By Hierarchy


                     SpellCheckAvailable
  TfrmTemplateFieldEditor.popTextPopup┤ 
                TfrmDCSumm.DisplayPage┤ 
              TfrmConsults.DisplayPage┤ 
TfrmTemplateEditor.popBoilerplatePopup┤ 
       TfrmTemplateEditor.mnuEditClick┤ 
      TfrmTemplateEditor.popNotesPopup┤ 
               TfrmSurgery.DisplayPage┤ 
                 TfrmNotes.DisplayPage┘ 

Calls

Name Declaration Comments
GetUserParam function GetUserParam(const AParamName: string): string; -

Called-By

Name Declaration Comments
TfrmDCSumm.DisplayPage procedure DisplayPage; override; -
TfrmConsults.DisplayPage procedure DisplayPage; override; -
TfrmSurgery.DisplayPage procedure DisplayPage; override; -
TfrmNotes.DisplayPage procedure DisplayPage; override; -
TfrmTemplateEditor.mnuEditClick procedure mnuEditClick(Sender: TObject); -
TfrmTemplateEditor.popBoilerplatePopup procedure popBoilerplatePopup(Sender: TObject); -
TfrmTemplateEditor.popNotesPopup procedure popNotesPopup(Sender: TObject); -
TfrmTemplateFieldEditor.popTextPopup procedure popTextPopup(Sender: TObject); -


Source

209   function SpellCheckAvailable: Boolean;
210   //const
211   //  WORD_VBA_CLSID = 'CLSID\{000209FF-0000-0000-C000-000000000046}';
212   begin
213   // CHANGED FOR PT. SAFETY ISSUE RELEASE 19.16, PATCH OR*3*155 - ADDED NEXT 2 LINES:
214     //result := false;
215     //exit;
216   //  Reenabled in version 21.1, via parameter setting  (RV)
217   //  Result := (GetUserParam('ORWOR SPELL CHECK ENABLED?') = '1');
218     with uSpellCheckAvailable do        // only want to call this once per session!!!  v23.10+
219       begin
220         if not Evaluated then
221           begin
222             Available := (GetUserParam('ORWOR SPELL CHECK ENABLED?') = '1');
223             Evaluated := True;
224           end;
225         Result := Available;
226       end;
227   end;