Canvas.Polygon, border is missing

Issue #143 new
Paul TOTH
created an issue

Tried with Tokyo 10.2.2 with CrossVCL 0.99i for Ubuntu 16.04 LTS under VirtualBox

the Red border is missing

works under OSX 10.13

procedure TForm1.FormPaint(Sender: TObject);
var
 p: array[0..2] of TPoint;
begin
  with Canvas do
  begin
    p[0].X := 250;
    p[0].Y := 50;
    p[1].X := 350;
    p[1].Y := 50;
    p[2].X := 300;
    p[2].Y := 150;
    Brush.Color := clYellow;
    Pen.Color := clRed;
    Polygon(P);
  end;
end;

Comments (0)

  1. Log in to comment