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

LCL-Win: Revert from ScrollWindowEx back to ScrollWindow. Issue #26086.

Browse Source 
git-svn-id: trunk@50553 -
This commit is contained in:
juha 2015-12-01 15:21:28 +00:00
parent 6dda8fcee0
commit 3f3c25959f
1 changed files with 9 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
lcl/interfaces/win32/win32wscontrols.pp
View File

@ -587,11 +587,19 @@ begin
SWP_NOSIZE or SWP_NOMOVE or SWP_NOZORDER or SWP_NOACTIVATE or VisibilityToFlag[AWinControl.HandleObjectShouldBeVisible])
end;
function ScrollWindowPtr(hWnd: HWND; XAmount: longint; YAmount: longint; lpRect: pointer;
lpClipRect: pointer): WINBOOL; stdcall; external 'user32' name 'ScrollWindow';
//function ScrollWindowPtr(hWnd: HWND; dx: longint; dy: longint;
// prcScroll: pointer; prcClip: pointer; hrgnUpdate: HRGN; prcUpdate: LPRECT;
// flags: UINT): WINBOOL; stdcall; external 'user32' name 'ScrollWindowEx';
class procedure TWin32WSWinControl.ScrollBy(const AWinControl: TWinControl;
DeltaX, DeltaY: integer);
begin
if Windows.IsWindowVisible(AWinControl.Handle) then
ScrollWindowEx(AWinControl.Handle, DeltaX, DeltaY, nil, nil, 0, nil, SW_INVALIDATE or SW_ERASE);
ScrollWindowPtr(AWinControl.Handle, DeltaX, DeltaY, nil, nil);
// ScrollWindowEx does not work here for some reason.
//ScrollWindowPtr(AWinControl.Handle, DeltaX, DeltaY, nil, nil, 0, nil, SW_INVALIDATE or SW_ERASE);
end;
{ TWin32WSDragImageList }