From 459925977d5358cf11933b11e65eb22a4fe351a5 Mon Sep 17 00:00:00 2001
From: Ansgar Becker <anse@heidisql.com>
Date: Sun, 17 Apr 2022 10:06:06 +0200
Subject: [PATCH] Disable save and discard buttons of routine editor
 temporarily while saving changes. Closes #616

---
 source/routine_editor.pas | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/source/routine_editor.pas b/source/routine_editor.pas
index 8dd92325..a942e221 100644
--- a/source/routine_editor.pas
+++ b/source/routine_editor.pas
@@ -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;