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

LCL: Fix compilation of TControlBar.OnBandPaint event handler in objfpc mode. (https://forum.lazarus.freepascal.org/index.php/topic,41504.msg288037)

Browse Source 
git-svn-id: trunk@58149 -
This commit is contained in:
wp 2018-06-06 05:03:21 +00:00
parent 28ff72d0c2
commit e3404ff564
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

@ -1397,7 +1397,7 @@ type
TBandInfoEvent = procedure (Sender: TObject; Control: TControl; TBandInfoEvent = procedure (Sender: TObject; Control: TControl;
var Insets: TRect; var PreferredSize, RowCount: Integer) of object; var Insets: TRect; var PreferredSize, RowCount: Integer) of object;
TBandMoveEvent = procedure (Sender: TObject; Control: TControl; var ARect: TRect) of object; TBandMoveEvent = procedure (Sender: TObject; Control: TControl; var ARect: TRect) of object;
TBandPaintEvent = procedure (Sender: TObject; Control: TControl; Canvas: TCanvas; TBandPaintEvent = procedure (Sender: TObject; Control: TControl; ACanvas: TCanvas;
var ARect: TRect; var Options: TBandPaintOptions) of object; var ARect: TRect; var Options: TBandPaintOptions) of object;
TRowSize = 1..MaxInt; TRowSize = 1..MaxInt;