Apply just modified session color to opened connection(s) after save. C…

…loses #745
HeidiSQL · Dec 11, 2019 · 7e25664 · 7e25664
1 parent a40fd22
commit 7e25664
Showing 1 changed file with 9 additions and 0 deletions.
diff --git a/source/connections.pas b/source/connections.pas
@@ -376,6 +376,7 @@ procedure Tconnform.btnOpenClick(Sender: TObject);
 procedure Tconnform.btnSaveClick(Sender: TObject);
 var
   Sess: PConnectionParameters;
+  Conn: TDBConnection;
 begin
   // Overtake edited values for current parameter object and save to registry
   Sess := ListSessions.GetNodeData(ListSessions.FocusedNode);
@@ -415,6 +416,14 @@ procedure Tconnform.btnSaveClick(Sender: TObject);
   FSessionModified := False;
   ListSessions.Invalidate;
   ValidateControls;
+
+  // Apply session color (and othher settings) to opened connection(s)
+  for Conn in MainForm.Connections do begin
+    if Conn.Parameters.SessionPath = Sess.SessionPath then begin
+      Conn.Parameters.SessionColor := Sess.SessionColor;
+      MainForm.DBtree.Repaint;
+    end;
+  end;
 end;