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

LCL, Win32: Refactor DoMsgMouseUpDownClick out of TWindowProcHelper.DoWindowProc.

Browse Source 
git-svn-id: trunk@47454 -
This commit is contained in:
juha 2015-01-21 00:13:32 +00:00
parent 9b733ae400
commit 3f0ee85fc8
1 changed files with 21 additions and 84 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

105
lcl/interfaces/win32/win32callback.inc
View File

@ -409,6 +409,7 @@ type
procedure DoMsgLButtonCommon;
procedure DoMsgLButtonDoubleClick;
procedure DoMsgLButtonDown;
procedure DoMsgMouseUpDownClick(aMsg: Cardinal);
function GetPopMenuItemObject: TObject;
function GetMenuItemObject(ByPosition: Boolean): TObject;
procedure SendPaintMessage(ControlDC: HDC);
@ -1574,6 +1575,19 @@ begin
DoMsgLButtonCommon;
end;
procedure TWindowProcHelper.DoMsgMouseUpDownClick(aMsg: Cardinal);
begin
NotifyUserInput := True;
PLMsg := @LMMouse;
with LMMouse Do
begin
Msg := aMsg;
XPos := GET_X_LPARAM(LParam);
YPos := GET_Y_LPARAM(LParam);
Keys := WParam;
end;
end;
// This is called from the actual WindowProc.
function TWindowProcHelper.DoWindowProc: LResult;
@ -1838,90 +1852,13 @@ begin
//TODO:LM_KILLCHAR,LM_KILLWORD,LM_KILLLINE
WM_LBUTTONDBLCLK: DoMsgLButtonDoubleClick;
WM_LBUTTONDOWN: DoMsgLButtonDown;
WM_LBUTTONUP:
begin
NotifyUserInput := True;
PLMsg:=@LMMouse;
with LMMouse Do
begin
Msg := LM_LBUTTONUP;
XPos := GET_X_LPARAM(LParam);
YPos := GET_Y_LPARAM(LParam);
Keys := WParam;
end;
end;
WM_MBUTTONDBLCLK:
begin
NotifyUserInput := True;
PLMsg:=@LMMouse;
with LMMouse Do
begin
Msg := LM_MBUTTONDBLCLK;
XPos := GET_X_LPARAM(LParam);
YPos := GET_Y_LPARAM(LParam);
Keys := WParam;
end;
end;
WM_MBUTTONDOWN:
begin
NotifyUserInput := True;
PLMsg:=@LMMouse;
with LMMouse Do
begin
Msg := LM_MBUTTONDOWN;
XPos := GET_X_LPARAM(LParam);
YPos := GET_Y_LPARAM(LParam);
Keys := WParam;
end;
end;
WM_MBUTTONUP:
begin
NotifyUserInput := True;
PLMsg:=@LMMouse;
with LMMouse Do
begin
Msg := LM_MBUTTONUP;
XPos := GET_X_LPARAM(LParam);
YPos := GET_Y_LPARAM(LParam);
Keys := WParam;
end;
end;
WM_XBUTTONDBLCLK:
begin
NotifyUserInput := True;
PLMsg:=@LMMouse;
with LMMouse Do
begin
Msg := LM_XBUTTONDBLCLK;
XPos := GET_X_LPARAM(LParam);
YPos := GET_Y_LPARAM(LParam);
Keys := WParam;
end;
end;
WM_XBUTTONDOWN:
begin
NotifyUserInput := True;
PLMsg:=@LMMouse;
with LMMouse Do
begin
Msg := LM_XBUTTONDOWN;
XPos := GET_X_LPARAM(LParam);
YPos := GET_Y_LPARAM(LParam);
Keys := WParam;
end;
end;
WM_XBUTTONUP:
begin
NotifyUserInput := True;
PLMsg:=@LMMouse;
with LMMouse Do
begin
Msg := LM_XBUTTONUP;
XPos := GET_X_LPARAM(LParam);
YPos := GET_Y_LPARAM(LParam);
Keys := WParam;
end;
end;
WM_LBUTTONUP: DoMsgMouseUpDownClick(LM_LBUTTONUP);
WM_MBUTTONDBLCLK: DoMsgMouseUpDownClick(LM_MBUTTONDBLCLK);
WM_MBUTTONDOWN: DoMsgMouseUpDownClick(LM_MBUTTONDOWN);
WM_MBUTTONUP: DoMsgMouseUpDownClick(LM_MBUTTONUP);
WM_XBUTTONDBLCLK: DoMsgMouseUpDownClick(LM_XBUTTONDBLCLK);
WM_XBUTTONDOWN: DoMsgMouseUpDownClick(LM_XBUTTONDOWN);
WM_XBUTTONUP: DoMsgMouseUpDownClick(LM_XBUTTONUP);
WM_MOUSEHOVER:
begin
NotifyUserInput := True;