Changeset 216 for Docking/CoolDocking/UCDConjoinForm.pas

Timestamp:

Mar 22, 2011, 9:49:17 AM (14 years ago)

Author:

george

Message:

• Added: ConjoinForms caption update.
• Fixed: Docking new clients to TCDManagerRegions in different direction create new sub conjoin form.

File:

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

Docking/CoolDocking/UCDConjoinForm.pas

@@ -14 +14 @@
   public
     CoolDockClient: TCDClientBase;
+    procedure UpdateCaption;
     procedure FormShow(Sender : TObject);
     procedure FormHide(Sender : TObject);
@@ -29 +30 @@
 
 { TCDConjoinForm }
+
+procedure TCDConjoinForm.UpdateCaption;
+var
+  NewCaption: string;
+  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 + ', ';
+  end;
+  Caption := Copy(NewCaption, 1, Length(NewCaption) - 2);
+
+  if Assigned(HostDockSite) and (HostDockSite is TCDConjoinForm) then
+    TCDConjoinForm(HostDockSite).UpdateCaption;
+end;
 
 procedure TCDConjoinForm.FormShow(Sender: TObject);