Changeset 42 for DockManager/Lazarus/UCustomDockManager.pas

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í.

File:

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

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;