paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-04 20:00:27 +02:00
Code Issues Packages Projects Releases Wiki Activity

lcl: controlscrollbar: set scroll message result as handled if position changed.

Browse Source 
git-svn-id: trunk@52426 -
This commit is contained in:
ondrej 2016-06-02 16:28:55 +00:00
parent e0169fef8e
commit f3d729dee2
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
lcl/include/controlscrollbar.inc
View File

@ -312,8 +312,12 @@ begin
NewPos := 0; NewPos := 0;
if NewPos > FRange then if NewPos > FRange then
NewPos := FRange; NewPos := FRange;
InvalidateScrollInfo; if NewPos<>FPosition then
SetPosition(NewPos); begin
InvalidateScrollInfo;
SetPosition(NewPos);
Message.Result := 1;
end;
end; end;
procedure TControlScrollBar.ControlUpdateScrollBars; procedure TControlScrollBar.ControlUpdateScrollBars;