Procedure

TfrmConsults.DoAutoSave

Module

fConsults

Last Modified

7/15/2014 3:26:34 PM

Visibility

Private

Owner

TfrmConsults

Declaration

procedure DoAutoSave(Suppress: integer = 1);

Calls Hierarchy


TfrmConsults.DoAutoSave
 └SetText
   └InitParams

Called-By Hierarchy


                    TfrmConsults.DoAutoSave
       TfrmConsults.popNoteMemoSpellClick┤ 
     TfrmConsults.popNoteMemoGrammarClick┤ 
            TfrmConsults.timAutoSaveTimer┤ 
TfrmConsults.popNoteMemoSaveContinueClick┘ 

Calls

Name Declaration Comments
SetText procedure SetText(var ErrMsg: string; NoteText: TStrings; NoteIEN: Int64; Suppress: Integer); -

Called-By

Name Declaration Comments
TfrmConsults.popNoteMemoGrammarClick procedure popNoteMemoGrammarClick(Sender: TObject); -
TfrmConsults.popNoteMemoSaveContinueClick procedure popNoteMemoSaveContinueClick(Sender: TObject); -
TfrmConsults.popNoteMemoSpellClick procedure popNoteMemoSpellClick(Sender: TObject); -
TfrmConsults.timAutoSaveTimer procedure timAutoSaveTimer(Sender: TObject); -


Source

3863  procedure TfrmConsults.DoAutoSave(Suppress: integer = 1);
3864  var
3865    ErrMsg: string;
3866  begin
3867    if fFrame.frmFrame.DLLActive = True then Exit;  
3868    if (EditingIndex > -1) and FChanged then
3869    begin
3870      StatusText('Autosaving note...');
3871      //PutTextOnly(ErrMsg, memResults.Lines, lstNotes.GetIEN(EditingIndex));
3872      timAutoSave.Enabled := False;
3873      try
3874        SetText(ErrMsg, memResults.Lines, lstNotes.GetIEN(EditingIndex), Suppress);
3875      finally
3876        timAutoSave.Enabled := True;
3877      end;
3878      FChanged := False;
3879      StatusText('');
3880    end;
3881    if ErrMsg <> '' then
3882      InfoBox(TX_SAVE_ERROR1 + ErrMsg + TX_SAVE_ERROR2, TC_SAVE_ERROR, MB_OK or MB_ICONWARNING);
3883    //Assert(ErrMsg = '', 'AutoSave: ' + ErrMsg);
3884  end;