feat: create checkbox in advanced session setting for new ForceUnicode setting

https://www.heidisql.com/forum.php?t=45113

Author: ansgarbecker

source/connections.dfm

@@ -558,21 +558,21 @@ object connform: Tconnform
       end
       object lblBackgroundColor: TLabel
         Left = 3
-        Top = 162
+        Top = 185
         Width = 98
         Height = 14
         Caption = 'Background color:'
       end
       object lblIgnoreDatabasePattern: TLabel
         Left = 3
-        Top = 190
+        Top = 213
         Width = 126
         Height = 14
         Caption = 'Hide database pattern:'
       end
       object lblLogFile: TLabel
         Left = 3
-        Top = 229
+        Top = 252
         Width = 102
         Height = 14
         Caption = 'Log queries to file:'
@@ -669,7 +669,7 @@ object connform: Tconnform
       end
       object ColorBoxBackgroundColor: TColorBox
         Left = 190
-        Top = 159
+        Top = 182
         Width = 320
         Height = 22
         NoneColorColor = clNone
@@ -683,7 +683,7 @@ object connform: Tconnform
       end
       object editIgnoreDatabasePattern: TEdit
         Left = 190
-        Top = 187
+        Top = 210
         Width = 320
         Height = 22
         Anchors = [akLeft, akTop, akRight]
@@ -693,7 +693,7 @@ object connform: Tconnform
       end
       object chkLogFileDdl: TCheckBox
         Left = 190
-        Top = 253
+        Top = 276
         Width = 320
         Height = 17
         Anchors = [akLeft, akTop, akRight]
@@ -703,7 +703,7 @@ object connform: Tconnform
       end
       object editLogFilePath: TButtonedEdit
         Left = 190
-        Top = 226
+        Top = 249
         Width = 320
         Height = 22
         Anchors = [akLeft, akTop, akRight]
@@ -717,14 +717,24 @@ object connform: Tconnform
       end
       object chkLogFileDml: TCheckBox
         Left = 190
-        Top = 276
+        Top = 299
         Width = 320
         Height = 17
         Anchors = [akLeft, akTop, akRight]
         Caption = 'DML queries (INSERT, UPDATE, ...)'
         TabOrder = 12
         OnClick = Modification
       end
+      object chkForceUnicode: TCheckBox
+        Left = 190
+        Top = 159
+        Width = 320
+        Height = 17
+        Anchors = [akLeft, akTop, akRight]
+        Caption = 'Force Unicode (disable on old servers only)'
+        TabOrder = 13
+        OnClick = Modification
+      end
     end
     object tabSSL: TTabSheet
       Caption = 'SSL'
@@ -766,7 +776,7 @@ object connform: Tconnform
       object lblSSLVerification: TLabel
         Left = 3
         Top = 148
-        Width = 131
+        Width = 121
         Height = 14
         Caption = 'Certificate verification:'
       end

source/connections.pas

@@ -22,6 +22,7 @@   Tconnform = class(TExtForm)
     btnSave: TButton;
     btnNew: TButton;
     btnDelete: TButton;
+    chkForceUnicode: TCheckBox;
     popupSessions: TPopupMenu;
     menuSave: TMenuItem;
     menuDelete: TMenuItem;
@@ -496,6 +497,7 @@ procedure Tconnform.btnSaveClick(Sender: TObject);
     Sess.LoginPrompt := chkLoginPrompt.Checked;
     Sess.WindowsAuth := chkWindowsAuth.Checked;
     Sess.CleartextPluginEnabled := chkCleartextPluginEnabled.Checked;
+    Sess.ForceUnicode := chkForceUnicode.Checked;
     Sess.Port := updownPort.Position;
     Sess.NetType := SelectedNetType;
     Sess.Compressed := chkCompressed.Checked;
@@ -725,6 +727,7 @@ function Tconnform.CurrentParams: TConnectionParameters;
     Result.LoginPrompt := chkLoginPrompt.Checked;
     Result.WindowsAuth := chkWindowsAuth.Checked;
     Result.CleartextPluginEnabled := chkCleartextPluginEnabled.Checked;
+    Result.ForceUnicode := chkForceUnicode.Checked;
     if updownPort.Enabled then
       Result.Port := updownPort.Position
     else
@@ -1036,6 +1039,7 @@ procedure Tconnform.ListSessionsFocusChanged(Sender: TBaseVirtualTree;
     chkLoginPrompt.Checked := Sess.LoginPrompt;
     chkWindowsAuth.Checked := Sess.WindowsAuth;
     chkCleartextPluginEnabled.Checked := Sess.CleartextPluginEnabled;
+    chkForceUnicode.Checked := Sess.ForceUnicode;
     updownPort.Position := Sess.Port;
     chkCompressed.Checked := Sess.Compressed;
     updownQueryTimeout.Position := Sess.QueryTimeout;
@@ -1462,6 +1466,7 @@ procedure Tconnform.Modification(Sender: TObject);
       or (Sess.LoginPrompt <> chkLoginPrompt.Checked)
       or (Sess.WindowsAuth <> chkWindowsAuth.Checked)
       or (Sess.CleartextPluginEnabled <> chkCleartextPluginEnabled.Checked)
+      or (Sess.ForceUnicode <> chkForceUnicode.Checked)
       or (Sess.Port <> updownPort.Position)
       or (Sess.Compressed <> chkCompressed.Checked)
       or (Sess.QueryTimeout <> updownQueryTimeout.Position)
@@ -1499,7 +1504,8 @@ procedure Tconnform.Modification(Sender: TObject);
     FSessionModified := FSessionModified or PasswordModified;
     if (Sender=editHost) or (Sender=editUsername) or (Sender=editPassword) or
       (Sender=comboNetType) or (Sender=chkWindowsAuth) or (Sender=editPort) or
-      (Sender=chkCleartextPluginEnabled) then begin
+      (Sender=chkCleartextPluginEnabled) or (Sender=chkForceUnicode)
+      then begin
       // Be sure to use the modified connection params next time the user clicks the "Databases" pulldown
       FreeAndNil(FPopupDatabases);
     end;
@@ -1616,6 +1622,15 @@ procedure Tconnform.ValidateControls;
       lblSSHLocalPort.Enabled := Params.SSHActive;
       editSSHlocalport.Enabled := Params.SSHActive;
       // Advanced tab:
+      lblQueryTimeout.Enabled := True;
+      editQueryTimeout.Enabled := lblQueryTimeout.Enabled;
+      updownQueryTimeout.Enabled := lblQueryTimeout.Enabled;
+      chkLocalTimeZone.Enabled := Params.NetTypeGroup = ngMySQL;
+      chkFullTableStatus.Enabled := (Params.NetTypeGroup in [ngMySQL, ngPgSQL, ngSQLite]) and (Params.NetType <> ntMySQL_ProxySQLAdmin);
+      chkCleartextPluginEnabled.Enabled := Params.NetTypeGroup = ngMySQL;
+      chkForceUnicode.Enabled := Params.NetTypeGroup = ngMySQL;
+      editLogFilePath.Enabled := Params.LogFileDdl or Params.LogFileDml;
+      // SSL tab:
       chkWantSSL.Enabled := Params.NetType in [ntMySQL_TCPIP, ntMySQL_SSHtunnel, ntMySQL_ProxySQLAdmin, ntMySQL_RDS, ntPgSQL_TCPIP, ntPgSQL_SSHtunnel];
       lblSSLPrivateKey.Enabled := Params.WantSSL;
       editSSLPrivateKey.Enabled := Params.WantSSL;
@@ -1627,13 +1642,6 @@ procedure Tconnform.ValidateControls;
       editSSLcipher.Enabled := Params.WantSSL;
       lblSSLVerification.Enabled := Params.WantSSL;
       comboSSLVerification.Enabled := Params.WantSSL;
-      lblQueryTimeout.Enabled := True;
-      editQueryTimeout.Enabled := lblQueryTimeout.Enabled;
-      updownQueryTimeout.Enabled := lblQueryTimeout.Enabled;
-      chkLocalTimeZone.Enabled := Params.NetTypeGroup = ngMySQL;
-      chkFullTableStatus.Enabled := (Params.NetTypeGroup in [ngMySQL, ngPgSQL, ngSQLite]) and (Params.NetType <> ntMySQL_ProxySQLAdmin);
-      chkCleartextPluginEnabled.Enabled := Params.NetTypeGroup = ngMySQL;
-      editLogFilePath.Enabled := Params.LogFileDdl or Params.LogFileDml;
 
       Params.Free;
     end;