Procedure

TfrmSurgery.popNoteMemoGrammarClick

Module

fSurgery

Last Modified

7/15/2014 3:26:38 PM

Visibility

Public/Published

Owner

TfrmSurgery

Declaration

procedure popNoteMemoGrammarClick(Sender: TObject);

Calls Hierarchy


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

Calls

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


Source

1966  procedure TfrmSurgery.popNoteMemoGrammarClick(Sender: TObject);
1967  begin
1968    inherited;
1969    DoAutoSave(0);
1970    timAutoSave.Enabled := False;
1971    try
1972      GrammarCheckForControl(memNewNote);
1973    finally
1974      FChanged := True;
1975      DoAutoSave(0);
1976      timAutoSave.Enabled := True;
1977    end;
1978  end;