From b9f3af409027e400976b19ad368f0ea0e7343fd5 Mon Sep 17 00:00:00 2001 From: juha Date: Wed, 21 Jan 2015 16:43:38 +0000 Subject: [PATCH] LCL: Revert a workaround for FPC bug that causes Arithmetic overflow in TControlbar. Fixed in FPC trunk. Issue #27167. git-svn-id: trunk@47481 - --- lcl/extctrls.pp | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/lcl/extctrls.pp b/lcl/extctrls.pp index 42a68c63e6..5323a03f7f 100644 --- a/lcl/extctrls.pp +++ b/lcl/extctrls.pp @@ -1195,7 +1195,7 @@ type TBandPaintEvent = procedure (Sender: TObject; Control: TControl; Canvas: TCanvas; 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); TCursorDesign = (cdDefault, cdGrabber, cdRestricted);