Lazarus

Programming => LCL => Topic started by: jamie on June 06, 2018, 03:58:54 am

Title: TControlBar, duplicate CANVAS with BandPaint event
Post by: jamie on June 06, 2018, 03:58:54 am

The TControlBar.OnBandPaint when created via the OI generates a definition that can't be compiled.

Code: Pascal  [Select][+][-]

1.     procedure ControlBar1BandPaint(Sender: TObject; Control: TControl;
2.       Canvas: TCanvas; var ARect: TRect; var Options: TBandPaintOptions);
3.     // ^^^^^
4.  

If I rename "CANVAS" to aCANVAS then it compiles otherwise it complains about the duplicate "CANVAS" found in
CONTROLS unit..

This is with 1.8.4-Laz Windows 10-64bit

Title: Re: TControlBar, duplicate CANVAS with BandPaint event
Post by: wp on June 06, 2018, 07:05:49 am

Fixed in Laz trunk r58149 (will be backported to Laz 1.8.6)