From e2b67b583136d6473ab7869e00117bb0dfa98271 Mon Sep 17 00:00:00 2001
From: Ansgar Becker <ansgarbecker@users.noreply.github.com>
Date: Tue, 26 Aug 2008 08:36:06 +0000
Subject: [PATCH] Cosmetic: Replace old style SQL wait mouse cursor with system
 default wait cursor. Especially prettier when running Vista.

---
 source/childwin.pas       | 8 ++++----
 source/connections.pas    | 2 +-
 source/fieldeditor.pas    | 2 +-
 source/optimizetables.pas | 2 +-
 4 files changed, 7 insertions(+), 7 deletions(-)

diff --git a/source/childwin.pas b/source/childwin.pas
index f7496973..c9339c21 100644
--- a/source/childwin.pas
+++ b/source/childwin.pas
@@ -2140,7 +2140,7 @@ begin
     Exit;
 
   // Refresh variables and process-list
-  Screen.Cursor := crSQLWait;
+  Screen.Cursor := crHourglass;
 
   // Remember selected nodes
   SelectedCaptions := GetVTCaptions(ListVariables, True);
@@ -2244,7 +2244,7 @@ begin
   // No need to update if it's not visible.
   if PageControlMain.ActivePage <> tabHost then exit;
   if PageControlHost.ActivePage <> tabProcesslist then exit;
-  Screen.Cursor := crSQLWait;
+  Screen.Cursor := crHourglass;
   // Remember selected nodes
   SelectedCaptions := GetVTCaptions(ListProcesses, True);
   try
@@ -5111,7 +5111,7 @@ begin
   case Sender.GetNodeLevel(Node) of
     // Root node has only one single child (user@host)
     0: begin
-        Screen.Cursor := crSQLWait;
+        Screen.Cursor := crHourglass;
         mainform.Showstatus( 'Reading Databases...' );
         try
           Databases := WideStrings.TWideStringList.Create;
@@ -5149,7 +5149,7 @@ begin
       end;
     // DB node expanding
     1: begin
-        Screen.Cursor := crSQLWait;
+        Screen.Cursor := crHourglass;
         mainform.Showstatus( 'Reading Tables...' );
         try
           ds := FetchDbTableList(Databases[Node.Index]);
diff --git a/source/connections.pas b/source/connections.pas
index aa6619eb..6efccc25 100644
--- a/source/connections.pas
+++ b/source/connections.pas
@@ -100,7 +100,7 @@ procedure Tconnform.ButtonConnectClick(Sender: TObject);
 var
   reg : TRegistry;
 begin
-  Screen.Cursor := crSQLWait;
+  Screen.Cursor := crHourglass;
   ButtonConnect.Enabled := false;
 
   if Mainform.CreateMDIChild(
diff --git a/source/fieldeditor.pas b/source/fieldeditor.pas
index a2eedcfa..7e915c9c 100644
--- a/source/fieldeditor.pas
+++ b/source/fieldeditor.pas
@@ -453,7 +453,7 @@ begin
       Exit;
     end;
 
-  Screen.Cursor := crSQLWait;
+  Screen.Cursor := crHourglass;
   strAttributes := ''; // none of the 3 attributes binary, unsigned, zerofill
   strNull := '';
   strDefault := '';
diff --git a/source/optimizetables.pas b/source/optimizetables.pas
index 42ecd32a..408de44e 100644
--- a/source/optimizetables.pas
+++ b/source/optimizetables.pas
@@ -156,7 +156,7 @@ var
   ds: TDataSet;
   sql: WideString;
 begin
-  Screen.Cursor := crSQLWait;
+  Screen.Cursor := crHourglass;
   Mainform.ChildWin.TemporaryDatabase := self.DBComboBox.Text;
   ClearResults;
   try