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

win32: scroll fix from Martin Friebe (#0011768)

Browse Source 
git-svn-id: trunk@16528 -
This commit is contained in:
paul 2008-09-10 22:26:13 +00:00
parent c93c466bc0
commit 5d8c7c393a
1 changed files with 15 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

24
lcl/interfaces/win32/win32winapi.inc
View File

@ -166,6 +166,20 @@ var
if not TWinControl(Sender).HandleAllocated then
exit;
// why coords are client? - they must be screen
with TLMMouseEvent(Message) do
begin
Pos.X := X;
Pos.Y := Y;
end;
ClientToScreen(Handle, Pos);
WParam := Windows.WParam(Longint(PointToSmallPoint(Pos)));
with TLMMouseEvent(Message) do
begin
X := Pos.X;
Y := Pos.Y;
end;
with TLMessage(Message) do
begin
Result := CallDefaultWindowProc(Handle, Msg, WParam, LParam);
@ -179,15 +193,6 @@ var
ScrollInfo.fMask := SIF_PAGE or SIF_POS or SIF_RANGE;
// if mouse is over horizontal scrollbar, scroll horizontally
// why coords are client? - they must be screen
with TLMMouseEvent(Message) do
begin
Pos.X := X;
Pos.Y := Y;
end;
ClientToScreen(Handle, Pos);
WParam := Windows.WParam(Longint(PointToSmallPoint(Pos)));
if Windows.SendMessage(Handle, WM_NCHITTEST, 0, WParam) = HTHSCROLL then
begin
ScrollBar := SB_HORZ;
@ -3428,3 +3433,4 @@ end;