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

Apply changes of commit 50994 #b62ac13515 to WinCE

Browse Source 
git-svn-id: trunk@51010 -
This commit is contained in:
wassim 2015-12-23 18:55:20 +00:00
parent fc5f053bc6
commit 117af4aac8
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lcl/interfaces/wince/wincewscontrols.pp
View File

@ -453,7 +453,7 @@ end;
class procedure TWinCEWSWinControl.ScrollBy(const AWinControl: TWinControl; class procedure TWinCEWSWinControl.ScrollBy(const AWinControl: TWinControl;
DeltaX, DeltaY: integer); DeltaX, DeltaY: integer);
begin begin
if Windows.IsWindowVisible(AWinControl.Handle) then if AWinControl.HandleAllocated then
ScrollWindowEx(AWinControl.Handle, DeltaX, DeltaY, nil, nil, 0, nil, ScrollWindowEx(AWinControl.Handle, DeltaX, DeltaY, nil, nil, 0, nil,
SW_INVALIDATE or SW_ERASE or SW_SCROLLCHILDREN); SW_INVALIDATE or SW_ERASE or SW_SCROLLCHILDREN);
end; end;