Recent

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

jamie

  • Hero Member
  • *****
  • Posts: 3114
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
The only true wisdom is knowing you know nothing

wp

  • Hero Member
  • *****
  • Posts: 7235
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

 

TinyPortal © 2005-2018