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

LCL: Revert a workaround for FPC bug that causes Arithmetic overflow in TControlbar. Fixed in FPC trunk. Issue #27167.

Browse Source 
git-svn-id: trunk@47481 -
This commit is contained in:
juha 2015-01-21 16:43:38 +00:00
parent 8ce981a3c5
commit b9f3af4090
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 = Integer; // was 1..MaxInt; which causes SIGFPE on Windows with 32-bit FPC2.7.1 TRowSize = 1..MaxInt;
TBandMove = (bmNone, bmReady, bmMoving); TBandMove = (bmNone, bmReady, bmMoving);
TCursorDesign = (cdDefault, cdGrabber, cdRestricted); TCursorDesign = (cdDefault, cdGrabber, cdRestricted);