Changeset 182 for Docking/CoolDocking/UCoolDockStyleTabs.pas

Timestamp:

Mar 9, 2011, 2:11:40 PM (14 years ago)

Author:

george

Message:

• Added: Default layout initialization in Demo IDE.
• Fixed: Tab position switching through popup menu.

File:

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

Docking/CoolDocking/UCoolDockStyleTabs.pas

@@ -7 +7 @@
 uses
   Classes, Controls, ExtCtrls, ComCtrls, SysUtils, Dialogs,
-  Menus, UCoolDockStyle, Forms, UCoolDockClientPanel;
+  Menus, UCoolDockStyle, Forms, UCoolDockClientPanel, UCoolDockCommon;
 
 type
@@ -33 +33 @@
       AControl: TControl; InsertAt: TAlign);
   public
-    constructor Create(AManager: TObject);
+    constructor Create(AManager: TCoolDockManagerBase);
     procedure SetVisible(const AValue: Boolean); override;
     destructor Destroy; override;
@@ -78 +78 @@
     then
     begin
-      TCoolDockClientPanel(DockPanels[I]).Control.Tag := 1;
+      TCoolDockClientPanel(DockPanels[I]).Control.Tag := Integer(dhtTemporal);
       TCoolDockClientPanel(DockPanels[I]).Control.Hide;
       TCoolDockClientPanel(DockPanels[I]).ClientAreaPanel.Hide;
@@ -138 +138 @@
 end;
 
-constructor TCoolDockStyleTabs.Create(AManager: TObject);
+constructor TCoolDockStyleTabs.Create(AManager: TCoolDockManagerBase);
 var
   NewMenuItem: TMenuItem;
@@ -243 +243 @@
       with TCoolDockClientPanel(DockPanels[PageControl.TabIndex]) do begin
         //Show;
-        if AValue and (not Control.Visible) and (Control.Tag = 1)  then begin
+        //ShowMessage(IntToStr(Control.Tag));
+        if AValue and (not Control.Visible) and (Control.Tag = Integer(dhtTemporal))  then begin
           Control.Show;
-          Control.Tag := 0;
+          Control.Tag := Integer(dhtPermanent);
         end;
         //TabControl.Show;
@@ -273 +274 @@
 
         I := DockPanels.IndexOf(FindControlInPanels(Control));
-        if Control.Tag = 0 then
+        if Control.Tag = Integer(dhtPermanent) then
         if I <> -1 then
   //        Control.Hide;
           PageControl.Page[I].TabVisible := False;
-        Control.Tag := 0;
+        //Control.Tag := 0;
 //      end;
     end;