FMX vs. VCL canvas.DrawPolygon

[Uwe Raabe]

Und wie wär's damit?

Delphi-Quellcode:

{$IFDEF Framework_VCL}

type TPolygon = array of TPoint;

{$ENDIF}

var MyPolygon : TPolygon ;



{$IFDEF Framework_VCL}

  bmp.Canvas.polygon(MyPolygon);

{$ENDIF}
{$IFDEF Framework_FMX}

  bmp.Canvas.Drawpolygon(MyPolygom,50);

{$ENDIF}