Disable save and discard buttons of routine editor temporarily while saving changes. Closes #616

This commit is contained in:
Ansgar Becker
2022-04-17 10:06:06 +02:00
parent 945883396c
commit 459925977d

View File

@ -459,6 +459,8 @@ var
TargetExists: Boolean;
begin
// Save changes
btnSave.Enabled := False;
btnDiscard.Enabled := False;
Result := mrOk;
case comboType.ItemIndex of
0: ProcOrFunc := 'PROCEDURE';
@ -510,8 +512,6 @@ begin
Mainform.UpdateEditorTab;
Mainform.RefreshTree(DBObject);
Modified := False;
btnSave.Enabled := Modified;
btnDiscard.Enabled := Modified;
Mainform.actRunRoutines.Enabled := True;
except
on E:EDbError do begin
@ -519,6 +519,8 @@ begin
Result := mrAbort;
end;
end;
btnSave.Enabled := Modified;
btnDiscard.Enabled := Modified;
end;