Issue #932: fix crash with new color setting when switching from quer…

…y tab to data tab
HeidiSQL · Jun 23, 2021 · 8d94957 · 8d94957
1 parent ff9c467
commit 8d94957
Showing 1 changed file with 7 additions and 5 deletions.
diff --git a/source/main.pas b/source/main.pas
@@ -6416,11 +6416,13 @@ procedure TMainForm.ValidateQueryControls(Sender: TObject);
   actCodeFoldingStartRegion.Enabled := InQueryTab;
   actCodeFoldingEndRegion.Enabled := InQueryTab;
   actCodeFoldingFoldSelection.Enabled := HasSelection;
-  if HasConnection and (Conn.Parameters.SessionColor <> clNone) then begin
-    Tab.Memo.Gutter.Color := Conn.Parameters.SessionColor;
-  end
-  else begin
-    Tab.Memo.Gutter.Color := clBtnFace;
+  if InQueryTab then begin
+    if HasConnection and (Conn.Parameters.SessionColor <> clNone) then begin
+      Tab.Memo.Gutter.Color := Conn.Parameters.SessionColor;
+    end
+    else begin
+      Tab.Memo.Gutter.Color := clBtnFace;
+    end;
   end;
 
 end;