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

LCL: use ScrollWindowEx instead of ScrollWindow. Issue #26086

Browse Source 
git-svn-id: trunk@50558 -
This commit is contained in:
ondrej 2015-12-02 07:51:56 +00:00
parent 8fae307e89
commit 9f61b39bd4
1 changed files with 1 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -587,19 +587,11 @@ 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
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);
ScrollWindowEx(AWinControl.Handle, DeltaX, DeltaY, nil, nil, 0, nil, SW_INVALIDATE or SW_ERASE or SW_SCROLLCHILDREN);
end;
{ TWin32WSDragImageList }