From e3404ff5640f614c03104c1e7a901d32d9059e4e Mon Sep 17 00:00:00 2001
From: wp <wp.no-reply@lazarus-ide-org>
Date: Wed, 6 Jun 2018 05:03:21 +0000
Subject: [PATCH] LCL: Fix compilation of TControlBar.OnBandPaint event handler
 in objfpc mode.
 (https://forum.lazarus.freepascal.org/index.php/topic,41504.msg288037)

git-svn-id: trunk@58149 -
---
 lcl/extctrls.pp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lcl/extctrls.pp b/lcl/extctrls.pp
index aae604cc25..79035fabb1 100644
--- a/lcl/extctrls.pp
+++ b/lcl/extctrls.pp
@@ -1397,7 +1397,7 @@ type
   TBandInfoEvent = procedure (Sender: TObject; Control: TControl;
     var Insets: TRect; var PreferredSize, RowCount: Integer) 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;
 
   TRowSize = 1..MaxInt;