Changeset 60 for Docking/CoolDocking/UCoolDocking.pas

Timestamp:

Sep 24, 2010, 10:13:50 AM (14 years ago)

Author:

george

Message:

• Opraveno: Aktualizace ikony při ukotvení nové záložky.
• Opraveno: Obsluha události OnMouseDown pro záložky a opětovné umožnění uchopení oken přes záložky.

File:

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

Docking/CoolDocking/UCoolDocking.pas

@@ -95 +95 @@
     FDockPanels: TObjectList; // of TCoolDockClientPanel
     function FindControlInPanels(Control: TControl): TCoolDockClientPanel;
+    function GetDockSite: TWinControl;
     procedure InsertControlPanel(Control: TControl; InsertAt: TAlign;
       DropCtl: TControl);
@@ -148 +149 @@
     property TabsPos: THeaderPos read FTabsPos write SetTabsPos;
     property Master: TCoolDockMaster read FMaster write SetMaster;
+    property DockSite: TWinControl read GetDockSite;
   end;
 
@@ -186 +188 @@
   private
     FDockable: Boolean;
+    FFloatable: Boolean;
     FMaster: TCoolDockMaster;
     FPanel: TPanel;
     procedure SetDockable(const AValue: Boolean);
+    procedure SetFloatable(const AValue: Boolean);
     procedure SetMaster(const AValue: TCoolDockMaster);
     constructor Create(AOwner: TComponent); override;
@@ -196 +200 @@
     property Dockable: Boolean read FDockable
       write SetDockable default True;
+    property Floatable: Boolean read FFloatable
+      write SetFloatable default True;
     property Master: TCoolDockMaster read FMaster
       write SetMaster;
@@ -247 +253 @@
   SCustomize = 'Customize...';
   SWrongOwner = 'Owner of TCoolDockClient have to be TForm';
+  SEnterNewWindowName = 'Enter new window name';
+  SRenameWindow = 'Rename window';
 
 procedure Register;
@@ -269 +277 @@
   if I < FDockPanels.Count then Result := TCoolDockClientPanel(FDockPanels[I])
     else Result := nil;
+end;
+
+function TCoolDockManager.GetDockSite: TWinControl;
+begin
+  Result := FDockSite;
 end;
 
@@ -429 +442 @@
     OnChange := TabControlChange;
     PopupMenu := PopupMenuTabs;
-    OnMouseDown := TabControlMouseDown;
+    //OnMouseDown := TabControlMouseDown;
+    TTabControlNoteBookStrings(Tabs).NoteBook.OnMouseDown := TabControlMouseDown;
     Images := TabImageList;
   end;
@@ -518 +532 @@
     if DockStyle = dsTabs then begin
       TabControl.Tabs.Add(Control.Caption);
+      TabImageList.Add(NewPanel.Header.Icon.Picture.Bitmap, nil);
       if Assigned(NewPanel.Splitter) then
         NewPanel.Splitter.Visible := False;
@@ -820 +835 @@
 
 procedure TCoolDockManager.PopupMenuRenameClick(Sender: TObject);
-begin
-
+var
+  Value: string;
+begin
+  Value := DockSite.Parent.Caption;
+  if InputQuery(SRenameWindow, SEnterNewWindowName, False, Value) then
+    DockSite.Parent.Caption := Value;
 end;
 
@@ -850 +869 @@
 
 procedure TCoolDockManager.PopupMenuUndockClick(Sender: TObject);
-begin
-
+var
+  Control: TControl;
+begin
+
+  //Control.ManualFloat(Control.BoundsRect);
 end;
 
@@ -1330 +1352 @@
   if FDockable = AValue then Exit;
   FDockable := AValue;
-  if not (Owner is TForm) then
+  if (Owner is TForm) then
   with (Owner as TForm) do
   if AValue then begin
@@ -1339 +1361 @@
     DragMode := dmManual;
   end;
+end;
+
+procedure TCoolDockClient.SetFloatable(const AValue: Boolean);
+begin
+  if FFloatable = AValue then Exit;
+  FFloatable := AValue;
 end;