Changeset 430 for Docking/CoolDocking/UCDConjoinForm.pas

Timestamp:

Oct 17, 2012, 1:24:58 PM (12 years ago)

Author:

chronos

Message:

• Fixed: CoolDock show wrong tab focused if tab was invisible.

File:

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

Docking/CoolDocking/UCDConjoinForm.pas

@@ -12 +12 @@
 
   TCDConjoinForm = class(TCDConjoinFormBase)
+  protected
+    procedure SetName(const NewName: TComponentName); override;
   public
+    FreeIfEmpty: Boolean;
     CoolDockClient: TCDClientBase;
     UpdateCaptionEnable: Boolean;
@@ -20 +23 @@
     constructor Create(TheOwner: TComponent); override;
     destructor Destroy; override;
-  private
-    procedure SetName(const NewName: TComponentName); override;
   end;
 
@@ -48 +49 @@
     if Assigned(HostDockSite) and (HostDockSite is TCDConjoinForm) then
       TCDConjoinForm(HostDockSite).UpdateCaption;
+    //if Assigned(HostDockSite) and (HostDockSite is TCDConjoinForm) then
+      TCDManager(DockManager).Update;
   end;
 end;
@@ -57 +60 @@
 
 procedure TCDConjoinForm.FormHide(Sender: TObject);
-var
-  I: Integer;
 begin
   TCDManager(DockManager).Visible := False;
@@ -65 +66 @@
 constructor TCDConjoinForm.Create(TheOwner: TComponent);
 begin
-  inherited CreateNew(TheOwner);
+  inherited;
   CoolDockClient := TCDClient.Create(Self);
   with TCDClient(CoolDockClient) do begin
@@ -73 +74 @@
   OnHide := FormHide;
   UpdateCaptionEnable := True;
+  FreeIfEmpty := True;
 end;