Procedure

TfrmConsults.popNoteMemoGrammarClick

Module

fConsults

Last Modified

7/15/2014 3:26:34 PM

Visibility

Public/Published

Owner

TfrmConsults

Declaration

procedure popNoteMemoGrammarClick(Sender: TObject);

Calls Hierarchy


TfrmConsults.popNoteMemoGrammarClick
 ├TfrmConsults.DoAutoSave
 │ └SetText
 │   └InitParams
 └GrammarCheckForControl
   └DoSpellCheck
     ├ControlHasText
     ├SuspendTimeout
     └ResumeTimeout
       └TCPRSTimeoutTimer.ResetTimeout

Calls

Name Declaration Comments
TfrmConsults.DoAutoSave procedure DoAutoSave(Suppress: integer = 1); -
GrammarCheckForControl procedure GrammarCheckForControl(AnEditControl: TCustomMemo); -


Source

2845  procedure TfrmConsults.popNoteMemoGrammarClick(Sender: TObject);
2846  begin
2847    inherited;
2848    DoAutoSave(0);
2849    timAutoSave.Enabled := False;
2850    try
2851      GrammarCheckForControl(memResults);
2852    finally
2853      FChanged := True;
2854      DoAutoSave(0);
2855      timAutoSave.Enabled := True;
2856    end;
2857  end;