Procedure

TfrmConsults.popNoteMemoSpellClick

Module

fConsults

Last Modified

7/15/2014 3:26:34 PM

Visibility

Public/Published

Owner

TfrmConsults

Declaration

procedure popNoteMemoSpellClick(Sender: TObject);

Calls Hierarchy


TfrmConsults.popNoteMemoSpellClick
 ├TfrmConsults.DoAutoSave
 │ └SetText
 │   └InitParams
 └SpellCheckForControl
   └DoSpellCheck
     ├ControlHasText
     ├SuspendTimeout
     └ResumeTimeout
       └TCPRSTimeoutTimer.ResetTimeout

Calls

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


Source

2831  procedure TfrmConsults.popNoteMemoSpellClick(Sender: TObject);
2832  begin
2833    inherited;
2834    DoAutoSave(0);
2835    timAutoSave.Enabled := False;
2836    try
2837      SpellCheckForControl(memResults);
2838    finally
2839      FChanged := True;
2840      DoAutoSave(0);
2841      timAutoSave.Enabled := True;
2842    end;
2843  end;