Changeset 58 for Docking/CoolDocking/UCoolDocking.pas

Timestamp:

Sep 23, 2010, 11:41:59 AM (14 years ago)

Author:

george

Message:

• Upraveno: Systém inicializace ukotvení přepracován z ručního na automatický pomocí použití komponenty TCoolDockClient. Zrušeno nastavení globální třídy výchozího správce ukotvení.

File:

• Docking/CoolDocking/UCoolDocking.pas (modified) (17 diffs)

Docking/CoolDocking/UCoolDocking.pas

@@ -22 +22 @@
   TCoolDockClientPanel = class;
   TCoolDockCustomize = class;
+  TCoolDockClient = class;
 
   { TCoolDockConjoinForm }
@@ -27 +28 @@
   TCoolDockConjoinForm = class(TForm)
     Panel: TPanel;
+    CoolDockClient: TCoolDockClient;
     constructor Create(TheOwner: TComponent); override;
   end;
@@ -86 +88 @@
     FDockStyle: TDockStyle;
     TabControl: TTabControl;
+    TabImageList: TImageList;
     FDockDirection: TDockDirection;
     FDockSite: TWinControl;
@@ -149 +152 @@
     FCoolDockCustomize: TCoolDockCustomize;
     FDefaultHeaderPos: THeaderPos;
+    FShowIcons: Boolean;
     FTabsEnabled: Boolean;
+    FClients: TObjectList;
+    function GetClient(Index: Integer): TCoolDockClient;
     procedure SetCustomize(const AValue: TCoolDockCustomize);
+    procedure SetShowIcons(const AValue: Boolean);
     procedure SetTabsEnabled(const AValue: Boolean);
   public
@@ -157 +164 @@
     procedure SaveLayoutToFile(FileName: string);
     procedure LoadLayoutFromFile(FileName: string);
+    constructor Create(AOwner: TComponent); override;
     destructor Destroy; override;
+    procedure RegisterClient(Client: TCoolDockClient);
+    procedure UnRegisterClient(Client: TCoolDockClient);
+    property Clients[Index: Integer]: TCoolDockClient read GetClient;
   published
     property TabsEnabled: Boolean read FTabsEnabled write SetTabsEnabled;
@@ -164 +175 @@
     property Customize: TCoolDockCustomize read FCoolDockCustomize
       write SetCustomize;
+    property ShowIcons: Boolean read FShowIcons
+      write SetShowIcons;
+  end;
+
+  TCoolDockClient = class(TComponent)
+  private
+    FMaster: TCoolDockMaster;
+    FPanel: TPanel;
+    procedure SetMaster(const AValue: TCoolDockMaster);
+    constructor Create(AOwner: TComponent); override;
+    destructor Destroy; override;
+    procedure SetPanel(const AValue: TPanel);
+  published
+    property Master: TCoolDockMaster read FMaster
+      write SetMaster;
+    property Panel: TPanel read FPanel
+      write SetPanel;
   end;
 
@@ -210 +238 @@
   SUndock = 'Undock';
   SCustomize = 'Customize...';
+  SWrongOwner = 'Owner of TCoolDockClient have to be TForm';
 
 procedure Register;
 begin
   RegisterComponents('CoolDocking', [TCoolDockMaster]);
+  RegisterComponents('CoolDocking', [TCoolDockClient]);
   RegisterComponents('CoolDocking', [TCoolDockCustomize]);
   RegisterComponents('CoolDocking', [TCoolDockWindowList]);
@@ -380 +410 @@
   PopupMenuHeader.Items.Add(NewMenuItem);
 
+  TabImageList := TImageList.Create(FDockSite);
+  with TabImageList do begin
+  end;
   TabControl := TTabControl.Create(FDockSite);
   with TabControl do begin
@@ -389 +422 @@
     PopupMenu := PopupMenuTabs;
     OnMouseDown := TabControlMouseDown;
+    Images := TabImageList;
   end;
   TabsPos := hpTop;
@@ -646 +680 @@
     TabControl.Visible := True;
     TabControl.Tabs.Clear;
+    TabImageList.Clear;
     for I := 0 to FDockPanels.Count - 1 do begin
       TabControl.Tabs.Add(TCoolDockClientPanel(FDockPanels[I]).Control.Caption);
+      TabImageList.Add(TCoolDockClientPanel(FDockPanels[I]).Header.Icon.Picture.Bitmap, nil);
       if Assigned(TCoolDockClientPanel(FDockPanels[I]).Splitter) then
         TCoolDockClientPanel(FDockPanels[I]).Splitter.Visible := False;
@@ -846 +882 @@
 procedure TCoolDockClientPanel.VisibleChange(Sender: TObject);
 begin
-(*  if Assigned(Control) then begin
-    //OwnerDockManager.FDockPanels.Remove(Self);
+  if Assigned(Control) then begin
     if Assigned(ClientAreaPanel) then
       ClientAreaPanel.Visible := Control.Visible;
@@ -853 +888 @@
       Splitter.Visible := Control.Visible;
     OwnerDockManager.UpdateClientSize;
-  end;*)
+  end;
 end;
 
@@ -963 +998 @@
   //  Color := clYellow;
   end;
-  DragKind := dkDock;
-  DragMode := dmAutomatic;
+  CoolDockClient := TCoolDockClient.Create(Self);
+  with CoolDockClient do begin
+    Panel := Self.Panel;
+  end;
 end;
 
@@ -988 +1025 @@
     OldCustomize.Master := nil;
   end;
+end;
+
+function TCoolDockMaster.GetClient(Index: Integer): TCoolDockClient;
+begin
+  Result := TCoolDockClient(FClients[Index]);
+end;
+
+procedure TCoolDockMaster.SetShowIcons(const AValue: Boolean);
+begin
+  if FShowIcons = AValue then Exit;
+  FShowIcons := AValue;
 end;
 
@@ -1093 +1141 @@
 end;
 
+constructor TCoolDockMaster.Create(AOwner: TComponent);
+begin
+  inherited Create(AOwner);
+  FClients := TObjectList.Create;
+  FClients.OwnsObjects := False;
+end;
+
 destructor TCoolDockMaster.Destroy;
 begin
+  FClients.Free;
   Customize := nil;
   inherited Destroy;
+end;
+
+procedure TCoolDockMaster.RegisterClient(Client: TCoolDockClient);
+begin
+  if Assigned(Client) then
+    if FClients.IndexOf(Client) <> -1 then begin
+      FClients.Add(Client);
+      Client.Master := Self;
+    end;
+end;
+
+procedure TCoolDockMaster.UnRegisterClient(Client: TCoolDockClient);
+begin
+  if Assigned(Client) then begin
+    Client.Master := nil;
+    FClients.Remove(Client);
+  end;
 end;
 
@@ -1140 +1213 @@
     Parent := Self;
     Left := 4;
-    Top := 3;
+    Top := 2;
     Visible := True;
   end;
@@ -1223 +1296 @@
 end;
 
-initialization
-  DefaultDockManagerClass := TCoolDockManager;
+{ TCoolDockClient }
+
+procedure TCoolDockClient.SetMaster(const AValue: TCoolDockMaster);
+var
+  FOldMaster: TCoolDockMaster;
+begin
+  if FMaster = AValue then Exit;
+  FOldMaster := FMaster;
+  FMaster := AValue;
+  if Assigned(FOldMaster) then
+    FOldMaster.UnregisterClient(Self);
+  if Assigned(FMaster) then
+    FMaster.RegisterClient(Self);
+end;
+
+constructor TCoolDockClient.Create(AOwner: TComponent);
+begin
+  inherited Create(AOwner);
+  if not (AOwner is TForm) then
+    raise Exception.Create(SWrongOwner);
+  with (AOwner as TForm) do begin
+    if not (csDesigning in ComponentState) then begin
+      DragKind := dkDock;
+      DragMode := dmAutomatic;
+      DockSite := True;
+      UseDockManager := True;
+      DockManager := TCoolDockManager.Create(TWinControl(AOwner));
+    end;
+  end;
+end;
+
+destructor TCoolDockClient.Destroy;
+begin
+  inherited Destroy;
+  Master := nil;
+end;
+
+procedure TCoolDockClient.SetPanel(const AValue: TPanel);
+var
+  OldPanel: TPanel;
+begin
+  if FPanel = AValue then exit;
+  OldPanel := FPanel;
+  FPanel := AValue;
+  if not (csDesigning in ComponentState) then begin
+    if Assigned(FPanel) then
+    with FPanel do begin
+      DockSite := True;
+      UseDockManager := True;
+      DockManager := TCoolDockManager.Create(FPanel);
+    end else begin
+      OldPanel.DockSite := False;
+    end;
+  end;
+end;
 
 end.