From d1cc99e29f3b639e779bfa155452ce96fce3573b Mon Sep 17 00:00:00 2001
From: Ansgar Becker <ansgarbecker@users.noreply.github.com>
Date: Tue, 15 Dec 2009 22:22:36 +0000
Subject: [PATCH] Fix staying hourglass mouse cursor when editing a view,
 routine or trigger.

---
 source/routine_editor.pas | 2 ++
 source/trigger_editor.pas | 2 ++
 source/view.pas           | 2 ++
 3 files changed, 6 insertions(+)

diff --git a/source/routine_editor.pas b/source/routine_editor.pas
index f6a8a294..af3df6da 100644
--- a/source/routine_editor.pas
+++ b/source/routine_editor.pas
@@ -187,6 +187,8 @@ begin
   Modified := False;
   btnSave.Enabled := Modified;
   btnDiscard.Enabled := Modified;
+  Mainform.showstatus;
+  Screen.Cursor := crDefault;
 end;
 
 
diff --git a/source/trigger_editor.pas b/source/trigger_editor.pas
index da6acaee..abbcc2ce 100644
--- a/source/trigger_editor.pas
+++ b/source/trigger_editor.pas
@@ -107,6 +107,8 @@ begin
   Modified := False;
   btnSave.Enabled := Modified;
   btnDiscard.Enabled := Modified;
+  Mainform.showstatus;
+  Screen.Cursor := crDefault;
 end;
 
 
diff --git a/source/view.pas b/source/view.pas
index 6e97745f..36312144 100644
--- a/source/view.pas
+++ b/source/view.pas
@@ -97,6 +97,8 @@ begin
   Modified := False;
   btnSave.Enabled := Modified;
   btnDiscard.Enabled := Modified;
+  Mainform.showstatus;
+  Screen.Cursor := crDefault;
 end;