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