mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-08-13 09:49:22 +02:00
lcl: rename TDockManager.MouseMessage to TDockManager.MessageHandler to allow handling of more messages
git-svn-id: trunk@20058 -
This commit is contained in:
parent
a533bd1614
commit
fe8960bd81
@ -492,7 +492,7 @@ type
|
||||
DropCtl: TControl); virtual; abstract;
|
||||
procedure LoadFromStream(Stream: TStream); virtual; abstract;
|
||||
procedure PaintSite(DC: HDC); virtual; abstract;
|
||||
procedure MouseMessage(var Message: TLMessage); virtual; abstract;
|
||||
procedure MessageHandler(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 MouseMessage(var Message: TLMessage); override;
|
||||
procedure MessageHandler(var Message: TLMessage); override;
|
||||
procedure PositionDockRect(AClient, DropCtl: TControl; DropAlign: TAlign;
|
||||
var DockRect: TRect); override;
|
||||
procedure RemoveControl(AControl: TControl); override;
|
||||
|
@ -99,7 +99,7 @@ begin
|
||||
// ToDo
|
||||
end;
|
||||
|
||||
procedure TDockTree.MouseMessage(var Message: TLMessage);
|
||||
procedure TDockTree.MessageHandler(var Message: TLMessage);
|
||||
begin
|
||||
// ToDo
|
||||
end;
|
||||
|
@ -4780,7 +4780,7 @@ begin
|
||||
else
|
||||
begin
|
||||
if FDockSite and FUseDockManager and Assigned(DockManager) then
|
||||
DockManager.MouseMessage(Message);
|
||||
DockManager.MessageHandler(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.MouseMessage(Message);
|
||||
DockManager.MessageHandler(Message);
|
||||
end;
|
||||
end;
|
||||
|
||||
|
@ -100,7 +100,7 @@ type
|
||||
function GetAnchorControl(Zone: TLazDockZone; Side: TAnchorKind;
|
||||
OutSide: boolean): TControl;
|
||||
procedure PaintSite(DC: HDC); override;
|
||||
procedure MouseMessage(var Message: TLMessage); override;
|
||||
procedure MessageHandler(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 MouseMessage(var Message: TLMessage); override;// not implemented
|
||||
procedure MessageHandler(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.MouseMessage(var Message: TLMessage);
|
||||
procedure TLazDockTree.MessageHandler(var Message: TLMessage);
|
||||
|
||||
procedure CheckNeedRedraw(AControl: TControl; ARect: TRect; APart: TLazDockHeaderPart);
|
||||
var
|
||||
@ -2856,7 +2856,7 @@ begin
|
||||
RaiseGDBException('TCustomAnchoredDockManager.SetReplacingControl TODO');
|
||||
end;
|
||||
|
||||
procedure TCustomAnchoredDockManager.MouseMessage(var Message: TLMessage);
|
||||
procedure TCustomAnchoredDockManager.MessageHandler(var Message: TLMessage);
|
||||
begin
|
||||
|
||||
end;
|
||||
|
Loading…
Reference in New Issue
Block a user