Changeset 218 for Docking/CoolDocking/UCDConjoinForm.pas

Timestamp:

Mar 23, 2011, 12:22:26 PM (13 years ago)

Author:

george

Message:

• Fixed: Parent manager tabs switching.

File:

• Docking/CoolDocking/UCDConjoinForm.pas (modified) (3 diffs)

Docking/CoolDocking/UCDConjoinForm.pas

@@ -14 +14 @@
   public
     CoolDockClient: TCDClientBase;
+    UpdateCaptionEnable: Boolean;
     procedure UpdateCaption;
     procedure FormShow(Sender : TObject);
@@ -36 +37 @@
   I: Integer;
 begin
-  NewCaption := '';
-  for I := 0 to DockClientCount - 1 do begin
-    //if DockClients[I] is TCDConjoinForm then
-    //  TCDConjoinForm(DockClients[I]).UpdateCaption;
-    NewCaption := NewCaption + DockClients[I].Caption + ', ';
+  if UpdateCaptionEnable then begin
+    NewCaption := '';
+    for I := 0 to DockClientCount - 1 do begin
+      //if DockClients[I] is TCDConjoinForm then
+      //  TCDConjoinForm(DockClients[I]).UpdateCaption;
+      NewCaption := NewCaption + DockClients[I].Caption + ', ';
+    end;
+    Caption := Copy(NewCaption, 1, Length(NewCaption) - 2);
+
+    if Assigned(HostDockSite) and (HostDockSite is TCDConjoinForm) then
+      TCDConjoinForm(HostDockSite).UpdateCaption;
   end;
-  Caption := Copy(NewCaption, 1, Length(NewCaption) - 2);
-
-  if Assigned(HostDockSite) and (HostDockSite is TCDConjoinForm) then
-    TCDConjoinForm(HostDockSite).UpdateCaption;
 end;
 
@@ -68 +71 @@
   OnShow := FormShow;
   OnHide := FormHide;
+  UpdateCaptionEnable := True;
 end;