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

ObjectInspector: prevent range check error in some rare situations.

Browse Source 
git-svn-id: trunk@40905 -
This commit is contained in:
juha 2013-04-28 11:06:08 +00:00
parent 7865022093
commit c256dea046
1 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
components/ideintf/objectinspector.pp
View File

@ -985,9 +985,12 @@ begin
ScrollInfo.nMin := 0;
ScrollInfo.nTrackPos := 0;
ScrollInfo.nMax := ATopMax+ClientHeight-1;
ScrollInfo.nPage := ClientHeight-1;
if ScrollInfo.nPage<1 then ScrollInfo.nPage:=1;
if TopY > ATopMax then TopY:=ATopMax;
if ClientHeight < 2 then
ScrollInfo.nPage := 1
else
ScrollInfo.nPage := ClientHeight-1;
if TopY > ATopMax then
TopY := ATopMax;
ScrollInfo.nPos := TopY;
ShowScrollBar(Handle, SB_VERT, True);
SetScrollInfo(Handle, SB_VERT, ScrollInfo, True);