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

win32: simpler fix for r50526 #c87a82364e. Issue #26086

Browse Source 
git-svn-id: trunk@50529 -
This commit is contained in:
ondrej 2015-11-29 23:06:36 +00:00
parent 5b5452bed2
commit f6e592f167
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

@ -589,17 +589,9 @@ end;
class procedure TWin32WSWinControl.ScrollBy(const AWinControl: TWinControl;
DeltaX, DeltaY: integer);
var
ScrollArea, ClipArea: TRect;
ScrollFlags: Integer;
begin
if Windows.IsWindowVisible(AWinControl.Handle) then
begin
ScrollArea := AWinControl.ClientRect; // the whole area -> client rect
ClipArea := AWinControl.ClientRect; // the scroll area without fixed items (e.g. the header row in grids etc.) - currently not supported by the LCL
ScrollFlags := SW_INVALIDATE or SW_ERASE;
ScrollWindowEx(AWinControl.Handle, DeltaX, DeltaY, @ScrollArea, @ClipArea, 0, nil, ScrollFlags);
end;
ScrollWindowEx(AWinControl.Handle, DeltaX, DeltaY, nil, nil, 0, nil, SW_INVALIDATE or SW_ERASE);
end;
{ TWin32WSDragImageList }