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

LCL: Workaround a bug in FPC trunk that causes Arithmetic overflow in TControlbar with type TRowSize = 1..MaxInt;. Issue #27167.

Browse Source 
git-svn-id: trunk@47202 -
This commit is contained in:
juha 2014-12-15 10:17:05 +00:00
parent 890e8de7d4
commit 8a48485cac
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lcl/extctrls.pp
View File

@ -1195,7 +1195,7 @@ type
TBandPaintEvent = procedure (Sender: TObject; Control: TControl; Canvas: TCanvas; TBandPaintEvent = procedure (Sender: TObject; Control: TControl; Canvas: TCanvas;
var ARect: TRect; var Options: TBandPaintOptions) of object; var ARect: TRect; var Options: TBandPaintOptions) of object;
TRowSize = 1..MaxInt; TRowSize = Integer; // was 1..MaxInt; which causes SIGFPE on Windows with 32-bit FPC2.7.1
TBandMove = (bmNone, bmReady, bmMoving); TBandMove = (bmNone, bmReady, bmMoving);
TCursorDesign = (cdDefault, cdGrabber, cdRestricted); TCursorDesign = (cdDefault, cdGrabber, cdRestricted);