paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-11-06 23:09:35 +01: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

7
components/ideintf/objectinspector.pp
View File

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