Changeset 49 for DockManager/Lazarus/UCustomDockManager.pas

Timestamp:

Sep 17, 2010, 4:16:15 PM (14 years ago)

Author:

george

Message:

• Přidáno: Částečná podpora pro volitelné umístění záložek.
• Přidáno: Částečná podpora pro vysouvatelná okna v záložkách.

File:

• DockManager/Lazarus/UCustomDockManager.pas (modified) (14 diffs)

DockManager/Lazarus/UCustomDockManager.pas

@@ -33 +33 @@
   TDockClientPanel = class(TPanel)
   private
+    FAutoHide: Boolean;
+    FHeaderPos: THeaderPos;
     FShowHeader: Boolean;
+    procedure SetAutoHide(const AValue: Boolean);
+    procedure SetHeaderPos(const AValue: THeaderPos);
     procedure SetShowHeader(const AValue: Boolean);
   public
@@ -50 +54 @@
     procedure ResizeExecute(Sender: TObject);
     property ShowHeader: Boolean read FShowHeader write SetShowHeader;
+    property AutoHide: Boolean read FAutoHide write SetAutoHide;
+    property HeaderPos: THeaderPos read FHeaderPos write SetHeaderPos;
   end;
 
@@ -56 +62 @@
   TCustomDockManager = class(TDockManager)
   private
+    FMoveDuration: Integer;
+    FTabsPos: THeaderPos;
+    Timer1: TTimer;
     PopupMenu1: TPopupMenu;
     FDockStyle: TDockStyle;
@@ -66 +75 @@
       DropCtl: TControl);
     procedure SetDockStyle(const AValue: TDockStyle);
+    procedure SetMoveDuration(const AValue: Integer);
+    procedure SetTabsPos(const AValue: THeaderPos);
     procedure UpdateClientSize;
     procedure TabControlChange(Sender: TObject);
     procedure PopupMenuListClick(Sender: TObject);
     procedure PopupMenuTabsClick(Sender: TObject);
+    procedure PopupMenuCloseClick(Sender: TObject);
+    procedure PopupMenuRenameClick(Sender: TObject);
+    procedure Timer1Timer(Sender: TObject);
   public
     constructor Create(ADockSite: TWinControl); override;
@@ -95 +109 @@
     function CreateContainer(InsertAt: TAlign): TConjoinDockForm;
     property DockStyle: TDockStyle read FDockStyle write SetDockStyle;
+    property MoveDuration: Integer read FMoveDuration write SetMoveDuration;
+    property TabsPos: THeaderPos read FTabsPos write SetTabsPos;
   end;
 
@@ -119 +135 @@
 implementation
 
+resourcestring
+  SDockStyle = 'Style';
+  SDockList = 'List';
+  SDockTabs = 'Tabs';
+  SCloseForm = 'Close';
+  SRenameForm = 'Rename';
+
+
 procedure Register;
 begin
@@ -142 +166 @@
 var
   NewMenuItem: TMenuItem;
+  NewMenuItem2: TMenuItem;
 begin
   inherited Create(ADockSite);
@@ -147 +172 @@
   FDockPanels := TObjectList.Create;
   PopupMenu1 := TPopupMenu.Create(FDockSite);
+
+  Timer1 := TTimer.Create(nil);
+  Timer1.Enabled := False;
+  Timer1.OnTimer := Timer1Timer;
+
   NewMenuItem := TMenuItem.Create(PopupMenu1);
-  NewMenuItem.Caption := 'List';
+  NewMenuItem.Caption := SDockStyle;
   PopupMenu1.Items.Add(NewMenuItem);
-  NewMenuItem.OnClick := PopupMenuListClick;
+
+  NewMenuItem2 := TMenuItem.Create(NewMenuItem);
+  NewMenuItem2.Caption := SDockList;
+  NewMenuItem2.OnClick := PopupMenuListClick;
+  NewMenuItem.Add(NewMenuItem2);
+
+  NewMenuItem2 := TMenuItem.Create(NewMenuItem);
+  NewMenuItem2.Caption := SDockTabs;
+  NewMenuItem2.OnClick := PopupMenuTabsClick;
+  NewMenuItem.Add(NewMenuItem2);
+
   NewMenuItem := TMenuItem.Create(PopupMenu1);
-  NewMenuItem.Caption := 'Tabs';
-  NewMenuItem.OnClick := PopupMenuTabsClick;
+  NewMenuItem.Caption := SCloseForm;
+  NewMenuItem.OnClick := PopupMenuCloseClick;
   PopupMenu1.Items.Add(NewMenuItem);
+
+  NewMenuItem := TMenuItem.Create(PopupMenu1);
+  NewMenuItem.Caption := SRenameForm;
+  NewMenuItem.OnClick := PopupMenuRenameClick;
+  PopupMenu1.Items.Add(NewMenuItem);
+
   TabControl := TTabControl.Create(FDockSite);
   with TabControl do begin
@@ -164 +210 @@
     PopupMenu := PopupMenu1;
   end;
+  TabsPos := hpTop;
+  MoveDuration := 1000; // ms
 end;
 
 destructor TCustomDockManager.Destroy;
 begin
+  Timer1.Free;
   FDockPanels.Free;
   inherited Destroy;
@@ -431 +480 @@
 end;
 
+procedure TCustomDockManager.SetMoveDuration(const AValue: Integer);
+begin
+  if FMoveDuration=AValue then exit;
+  FMoveDuration := AValue;
+  //Timer1.Interval := AValue;
+end;
+
+procedure TCustomDockManager.SetTabsPos(const AValue: THeaderPos);
+begin
+  if FTabsPos=AValue then exit;
+  FTabsPos := AValue;
+  with TabControl do
+  case AValue of
+    hpAuto, hpTop: begin
+      Align := alTop;
+      TabPosition := tpTop;
+      Height := GrabberSize;
+    end;
+    hpLeft: begin
+      Align := alLeft;
+      TabPosition := tpLeft;
+      Width := GrabberSize;
+    end;
+    hpRight: begin
+      Align := alRight;
+      TabPosition := tpRight;
+      Width := GrabberSize;
+    end;
+    hpBottom: begin
+      Align := alBottom;
+      TabPosition := tpBottom;
+      Height := GrabberSize;
+    end;
+  end;
+end;
+
 procedure TCustomDockManager.UpdateClientSize;
 var
@@ -461 +546 @@
   end;
   if (TabControl.TabIndex <> -1) and (FDockPanels.Count > TabControl.TabIndex) then begin
-    with TDockClientPanel(FDockPanels[TabControl.TabIndex]).ClientAreaPanel do begin
-      Parent := FDockSite;
-      Visible := True;
-      UpdateClientSize;
+    with TDockClientPanel(FDockPanels[TabControl.TabIndex]), ClientAreaPanel do begin
+      if AutoHide then begin
+        Parent := nil;
+        Visible := True;
+        Width := 0;
+        //TimerMoveForm :=
+        //TimerIncrement := 1;
+        Timer1.Interval := MoveDuration div 10;
+        Timer1.Enabled := True;
+      end else begin
+        Parent := FDockSite;
+        Visible := True;
+        UpdateClientSize;
+      end;
     end;
 //  TDockClientPanel(FDockPanels[TabControl.TabIndex]).Visible := True;
@@ -473 +568 @@
 begin
   DockStyle := dsTabs;
+end;
+
+procedure TCustomDockManager.PopupMenuCloseClick(Sender: TObject);
+begin
+//  TForm(TCustomDockManager(TControl(Sender).Parent.Parent.Parent.DockManager).FDockSite).Close;
+end;
+
+procedure TCustomDockManager.PopupMenuRenameClick(Sender: TObject);
+begin
+
+end;
+
+procedure TCustomDockManager.Timer1Timer(Sender: TObject);
+begin
+//  TimerMoveForm.Width := TimerMoveForm.Width
 end;
 
@@ -487 +597 @@
   FShowHeader := AValue;
   DockPanelPaint(Self);
+end;
+
+procedure TDockClientPanel.SetAutoHide(const AValue: Boolean);
+begin
+  if FAutoHide=AValue then exit;
+  FAutoHide:=AValue;
+end;
+
+procedure TDockClientPanel.SetHeaderPos(const AValue: THeaderPos);
+begin
+  if FHeaderPos=AValue then exit;
+  FHeaderPos:=AValue;
 end;
 
@@ -527 +649 @@
   BevelOuter := bvNone;
   ShowHeader := True;
+  AutoHide := False;
+  HeaderPos := hpTop;
 end;