From 7f29518b5292550fa86a750740a73edc23a639a0 Mon Sep 17 00:00:00 2001
From: paul <paul@lazarus-ide.org>
Date: Wed, 20 May 2009 02:22:52 +0000
Subject: [PATCH] lcl: add Sender argument to TDockManager.MessageHandler

git-svn-id: trunk@20059 -
---
 lcl/controls.pp            | 4 ++--
 lcl/include/docktree.inc   | 2 +-
 lcl/include/wincontrol.inc | 4 ++--
 lcl/ldocktree.pas          | 8 ++++----
 4 files changed, 9 insertions(+), 9 deletions(-)

diff --git a/lcl/controls.pp b/lcl/controls.pp
index 83f04b2a8e..cf85798239 100644
--- a/lcl/controls.pp
+++ b/lcl/controls.pp
@@ -492,7 +492,7 @@ type
                             DropCtl: TControl); virtual; abstract;
     procedure LoadFromStream(Stream: TStream); virtual; abstract;
     procedure PaintSite(DC: HDC); virtual; abstract;
-    procedure MessageHandler(var Message: TLMessage); virtual; abstract;
+    procedure MessageHandler(Sender: TControl; var Message: TLMessage); virtual; abstract;
     procedure PositionDockRect(ADockObject: TDragDockObject); virtual; overload;
     procedure PositionDockRect(Client, DropCtl: TControl; DropAlign: TAlign;
                                var DockRect: TRect); virtual; abstract; overload;
@@ -2144,7 +2144,7 @@ type
     procedure InsertControl(AControl: TControl; InsertAt: TAlign;
                             DropControl: TControl); override;
     procedure LoadFromStream(SrcStream: TStream); override;
-    procedure MessageHandler(var Message: TLMessage); override;
+    procedure MessageHandler(Sender: TControl; var Message: TLMessage); override;
     procedure PositionDockRect(AClient, DropCtl: TControl; DropAlign: TAlign;
                                var DockRect: TRect); override;
     procedure RemoveControl(AControl: TControl); override;
diff --git a/lcl/include/docktree.inc b/lcl/include/docktree.inc
index 15a55f32cf..0d7bb9614f 100644
--- a/lcl/include/docktree.inc
+++ b/lcl/include/docktree.inc
@@ -99,7 +99,7 @@ begin
   // ToDo
 end;
 
-procedure TDockTree.MessageHandler(var Message: TLMessage);
+procedure TDockTree.MessageHandler(Sender: TControl; var Message: TLMessage);
 begin
   // ToDo
 end;
diff --git a/lcl/include/wincontrol.inc b/lcl/include/wincontrol.inc
index 6000ed5148..90ff52c1d9 100644
--- a/lcl/include/wincontrol.inc
+++ b/lcl/include/wincontrol.inc
@@ -4780,7 +4780,7 @@ begin
          else
          begin
            if FDockSite and FUseDockManager and Assigned(DockManager) then
-             DockManager.MessageHandler(Message);
+             DockManager.MessageHandler(Self, Message);
          end;
          {$IFDEF VerboseMouseBugfix}
          DebugLn('TWinControl.WndPRoc B ',Name,':',ClassName);
@@ -4799,7 +4799,7 @@ begin
     CM_MOUSELEAVE:
       begin
         if FDockSite and FUseDockManager and Assigned(DockManager) then
-          DockManager.MessageHandler(Message);
+          DockManager.MessageHandler(Self, Message);
       end;
   end;
 
diff --git a/lcl/ldocktree.pas b/lcl/ldocktree.pas
index d3c8901276..7c9d7c23cd 100644
--- a/lcl/ldocktree.pas
+++ b/lcl/ldocktree.pas
@@ -100,7 +100,7 @@ type
     function GetAnchorControl(Zone: TLazDockZone; Side: TAnchorKind;
                               OutSide: boolean): TControl;
     procedure PaintSite(DC: HDC); override;
-    procedure MessageHandler(var Message: TLMessage); override;
+    procedure MessageHandler(Sender: TControl; var Message: TLMessage); override;
     procedure DumpLayout(FileName: String); override;
   public
     property AutoFreeDockSite: boolean read FAutoFreeDockSite write FAutoFreeDockSite;
@@ -258,7 +258,7 @@ type
     procedure UpdateTitlePosition(Control: TControl);
 
     procedure PaintSite(DC: HDC); override;
-    procedure MessageHandler(var Message: TLMessage); override;// not implemented
+    procedure MessageHandler(Sender: TControl; var Message: TLMessage); override;// not implemented
     procedure PositionDockRect(Client, DropCtl: TControl; DropAlign: TAlign;
                                var DockRect: TRect); override;// not implemented
     procedure ResetBounds(Force: Boolean); override;// not implemented
@@ -1550,7 +1550,7 @@ begin
   end;
 end;
 
-procedure TLazDockTree.MessageHandler(var Message: TLMessage);
+procedure TLazDockTree.MessageHandler(Sender: TControl; var Message: TLMessage);
 
   procedure CheckNeedRedraw(AControl: TControl; ARect: TRect; APart: TLazDockHeaderPart);
   var
@@ -2856,7 +2856,7 @@ begin
   RaiseGDBException('TCustomAnchoredDockManager.SetReplacingControl TODO');
 end;
 
-procedure TCustomAnchoredDockManager.MessageHandler(var Message: TLMessage);
+procedure TCustomAnchoredDockManager.MessageHandler(Sender: TControl; var Message: TLMessage);
 begin
 
 end;