paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-14 06:59:14 +02:00
Code Issues Packages Projects Releases Wiki Activity

lcl: rename TDockManager.MouseMessage to TDockManager.MessageHandler to allow handling of more messages

Browse Source 
git-svn-id: trunk@20058 -
This commit is contained in:
paul 2009-05-20 02:19:28 +00:00
parent a533bd1614
commit fe8960bd81
4 changed files with 9 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lcl/controls.pp
View File

@ -492,7 +492,7 @@ type
DropCtl: TControl); virtual; abstract; DropCtl: TControl); virtual; abstract;
procedure LoadFromStream(Stream: TStream); virtual; abstract; procedure LoadFromStream(Stream: TStream); virtual; abstract;
procedure PaintSite(DC: HDC); 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(ADockObject: TDragDockObject); virtual; overload;
procedure PositionDockRect(Client, DropCtl: TControl; DropAlign: TAlign; procedure PositionDockRect(Client, DropCtl: TControl; DropAlign: TAlign;
var DockRect: TRect); virtual; abstract; overload; var DockRect: TRect); virtual; abstract; overload;
@ -2144,7 +2144,7 @@ type
procedure InsertControl(AControl: TControl; InsertAt: TAlign; procedure InsertControl(AControl: TControl; InsertAt: TAlign;
DropControl: TControl); override; DropControl: TControl); override;
procedure LoadFromStream(SrcStream: TStream); 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; procedure PositionDockRect(AClient, DropCtl: TControl; DropAlign: TAlign;
var DockRect: TRect); override; var DockRect: TRect); override;
procedure RemoveControl(AControl: TControl); override; procedure RemoveControl(AControl: TControl); override;

2
lcl/include/docktree.inc
View File

@ -99,7 +99,7 @@ begin
// ToDo // ToDo
end; end;
procedure TDockTree.MouseMessage(var Message: TLMessage); procedure TDockTree.MessageHandler(var Message: TLMessage);
begin begin
// ToDo // ToDo
end; end;

4
lcl/include/wincontrol.inc
View File

@ -4780,7 +4780,7 @@ begin
else else
begin begin
if FDockSite and FUseDockManager and Assigned(DockManager) then if FDockSite and FUseDockManager and Assigned(DockManager) then
DockManager.MouseMessage(Message); DockManager.MessageHandler(Message);
end; end;
{$IFDEF VerboseMouseBugfix} {$IFDEF VerboseMouseBugfix}
DebugLn('TWinControl.WndPRoc B ',Name,':',ClassName); DebugLn('TWinControl.WndPRoc B ',Name,':',ClassName);
@ -4799,7 +4799,7 @@ begin
CM_MOUSELEAVE: CM_MOUSELEAVE:
begin begin
if FDockSite and FUseDockManager and Assigned(DockManager) then if FDockSite and FUseDockManager and Assigned(DockManager) then
DockManager.MouseMessage(Message); DockManager.MessageHandler(Message);
end; end;
end; end;

8
lcl/ldocktree.pas
View File

@ -100,7 +100,7 @@ type
function GetAnchorControl(Zone: TLazDockZone; Side: TAnchorKind; function GetAnchorControl(Zone: TLazDockZone; Side: TAnchorKind;
OutSide: boolean): TControl; OutSide: boolean): TControl;
procedure PaintSite(DC: HDC); override; procedure PaintSite(DC: HDC); override;
procedure MouseMessage(var Message: TLMessage); override; procedure MessageHandler(var Message: TLMessage); override;
procedure DumpLayout(FileName: String); override; procedure DumpLayout(FileName: String); override;
public public
property AutoFreeDockSite: boolean read FAutoFreeDockSite write FAutoFreeDockSite; property AutoFreeDockSite: boolean read FAutoFreeDockSite write FAutoFreeDockSite;
@ -258,7 +258,7 @@ type
procedure UpdateTitlePosition(Control: TControl); procedure UpdateTitlePosition(Control: TControl);
procedure PaintSite(DC: HDC); override; 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; procedure PositionDockRect(Client, DropCtl: TControl; DropAlign: TAlign;
var DockRect: TRect); override;// not implemented var DockRect: TRect); override;// not implemented
procedure ResetBounds(Force: Boolean); override;// not implemented procedure ResetBounds(Force: Boolean); override;// not implemented
@ -1550,7 +1550,7 @@ begin
end; end;
end; end;
procedure TLazDockTree.MouseMessage(var Message: TLMessage); procedure TLazDockTree.MessageHandler(var Message: TLMessage);
procedure CheckNeedRedraw(AControl: TControl; ARect: TRect; APart: TLazDockHeaderPart); procedure CheckNeedRedraw(AControl: TControl; ARect: TRect; APart: TLazDockHeaderPart);
var var
@ -2856,7 +2856,7 @@ begin
RaiseGDBException('TCustomAnchoredDockManager.SetReplacingControl TODO'); RaiseGDBException('TCustomAnchoredDockManager.SetReplacingControl TODO');
end; end;
procedure TCustomAnchoredDockManager.MouseMessage(var Message: TLMessage); procedure TCustomAnchoredDockManager.MessageHandler(var Message: TLMessage);
begin begin
end; end;