TControlBar, duplicate CANVAS with BandPaint event
lazarus / 31-LCL

----------------------------------------------------------------------
jamie · 2018-06-06 01:58

The TControlBar.OnBandPaint when created via the OI generates a
definition that can't be compiled.
Code: Pascal  [Select][+][-]window.onload = function(){var x1 =
document.getElementById("main_content_section"); if (x1) { var x =
document.getElementsByClassName("geshi");for (var i = 0; i    
procedure ControlBar1BandPaint(Sender: TObject; Control: TControl;   
 Canvas: TCanvas; var ARect: TRect; var Options: TBandPaintOptions); 
 // ^^^^^ 
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

----------------------------------------------------------------------
wp · 2018-06-06 05:05

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