TWin32WSScrollingWinControl.ScrollBy uses deprecated ScrollWindow
Original Reporter info from Mantis: Martin @martin_frb
-
Reporter name: Martin Friebe
Original Reporter info from Mantis: Martin @martin_frb
- Reporter name: Martin Friebe
Description:
See http://msdn.microsoft.com/en-us/library/windows/desktop/bb787591%28v=vs.85%29.aspx
It should use ScrollWindowEx instead
lcl\interfaces\win32\win32wsforms.pp
line 215
function ScrollWindowPtr(hWnd:HWND; XAmount:longint; YAmount:longint; lpRect: pointer; lpClipRect: pointer):WINBOOL; stdcall; external 'user32' name 'ScrollWindow';
class procedure TWin32WSScrollingWinControl.ScrollBy(const AWinControl: TScrollingWinControl;
const DeltaX, DeltaY: integer);
begin
if Windows.IsWindowVisible(AWinControl.Handle) then
ScrollWindowPtr(AWinControl.Handle, DeltaX, DeltaY, nil, nil);
end;
Mantis conversion info:
- Mantis ID: 26086
- OS: win
- OS Build: vista
- Platform: w32
- Version: 1.3 (SVN)
- Fixed in revision: r50558 (#9f61b39b)