Changeset 42 for DockManager/Lazarus

Timestamp:

Sep 16, 2010, 10:18:35 AM (14 years ago)

Author:

george

Message:

• Opraveno: Překreslování při odebírání a přidávání.

Location:

DockManager/Lazarus

Files:

• Demo (modified) (1 prop)
• Demo/UMainForm.lfm (modified) (1 diff)
• UCustomDockManager.pas (modified) (4 diffs)

DockManager/Lazarus/Demo

@@ -1 +1 @@
 lib
+Demo.exe

@@ -1 +1 @@
 lib
+Demo.exe

DockManager/Lazarus/Demo/UMainForm.lfm

@@ -20 +20 @@
   end
   object Panel1: TPanel
-    Left = 20
-    Height = 179
-    Top = 45
-    Width = 292
+    Left = 0
+    Height = 200
+    Top = 40
+    Width = 320
+    Align = alBottom
     Anchors = [akTop, akLeft, akRight, akBottom]
+    BevelOuter = bvNone
     DockSite = True
     TabOrder = 1

DockManager/Lazarus/UCustomDockManager.pas

@@ -91 +91 @@
   R: TRect;
 begin
-  for I := 0 to FDockSite.ControlCount - 1 do
-          begin
-            Control := FDockSite.Controls[I];
-            if Control.Visible and (Control.HostDockSite = FDockSite) then
-            begin
-              R := Control.BoundsRect;
-              //Control.SetBounds(0, GrabberSize, FDockSite.Width - Control.Left,
-              //  FDockSite.Height - Control.Top);
-              //Canvas.FillRect(R);
-              DrawGrabber(FDockPanel.Canvas, Control);
-            end;
-          end;
+  CloseButton.Visible := FDockSite.DockClientCount > 0;
+  for I := 0 to FDockSite.DockClientCount - 1 do begin
+    Control := FDockSite.DockClients[I];
+    if Control.Visible and (Control.HostDockSite = FDockSite) then
+    begin
+      R := Control.BoundsRect;
+      //Control.SetBounds(0, GrabberSize, FDockSite.Width - Control.Left,
+      //  FDockSite.Height - Control.Top);
+      //Canvas.FillRect(R);
+      DrawGrabber(FDockPanel.Canvas, Control);
+    end;
+  end;
 end;
 
@@ -168 +168 @@
 begin
   inherited InsertControl(ADockObject);
+  FDockPanel.Repaint;
 end;
 
@@ -173 +174 @@
   DropCtl: TControl);
 begin
+  inherited;
 end;
 
@@ -239 +241 @@
 procedure TCustomDockManager.RemoveControl(Control: TControl);
 begin
+  inherited;
+  //FDockPanel.Invalidate;
+  FDockSite.Invalidate;
 end;
 

@@ -1 +1 @@
 lib
+Demo.exe