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

Qt: fixed range check errors under 64bit

Browse Source 
git-svn-id: trunk@38935 -
This commit is contained in:
zeljko 2012-10-01 08:51:03 +00:00
parent d21e04d8f9
commit 457cf17356
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lcl/interfaces/qt/qtwinapi.inc
View File

@ -6029,7 +6029,7 @@ var
ScrollBar.setMinimum(ScrollInfo.nMin);
// we must recount ScrollBar.Max since invalid value raises AV
iRecountMax := ScrollInfo.nMax - ScrollInfo.nPage;
iRecountMax := ScrollInfo.nMax - Integer(ScrollInfo.nPage);
if iRecountMax < ScrollInfo.nMin then
iRecountMax := ScrollInfo.nMin;
@ -6041,7 +6041,7 @@ var
// segfaults if we don't check Enabled property
if ScrollBar.getEnabled then
begin
ScrollBar.setPageStep(ScrollInfo.nPage);
ScrollBar.setPageStep(Integer(ScrollInfo.nPage));
WheelLines := QApplication_wheelScrollLines();
with Scrollbar do
begin