paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-18 07:29:30 +02:00
Code Issues Packages Projects Releases Wiki Activity

Merged revision(s) 47481 #b9f3af4090 from trunk:

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

git-svn-id: branches/fixes_1_4@47487 -
This commit is contained in:
maxim 2015-01-22 22:05:55 +00:00
parent 72ed7acdb0
commit 4451f298b2
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;
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);