[Lazarus] Canvas.PolyBezier parameter

AlexeyT aaa5500 at ya.ru
Fri Dec 13 21:20:15 CET 2019


lcl/graphics.pp

     procedure PolyBezier(Points: PPoint; NumPts: Integer;
                          Filled: boolean = False;
                          Continuous: boolean = False); virtual; {$IFDEF 
HasFPCanvas1}reintroduce;{$ENDIF}
     procedure PolyBezier(const Points: array of TPoint;
                          Filled: boolean = False;
                          Continuous: boolean = False); {$IFDEF 
HasFPCanvas1}reintroduce;{$ENDIF}

def of Cotinuous is False! Seems it's wrong? Because Delphi don't have 
Continuous param at all and by default it paints continuous curve, ie it 
needs 4 points for the 1st curve and 3 points per next curves.

http://docwiki.embarcadero.com/Libraries/Rio/en/Vcl.Graphics.TCanvas.PolyBezier

so LCL must change def of Continuous to True?


-- 
Regards,
Alexey



More information about the lazarus mailing list