Recent

Author Topic: TControlBar, duplicate CANVAS with BandPaint event  (Read 1066 times)

jamie

  • Hero Member
  • *****
  • Posts: 976
TControlBar, duplicate CANVAS with BandPaint event
« 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

wp

  • Hero Member
  • *****
  • Posts: 5135
Re: TControlBar, duplicate CANVAS with BandPaint event
« Reply #1 on: June 06, 2018, 07:05:49 am »
Fixed in Laz trunk r58149 (will be backported to Laz 1.8.6)
Lazarus trunk / fpc 3.0.4 / all 32-bit on Win-10