Form1.Canvas.BeginScene;
  Form1.Canvas.Fill.Kind := TBrushKind.bkSolid;
  Form1.Canvas.Fill.Color :=  TAlphaColorRec.Red;
  form1.Canvas.FillRect(fs,0,0,AllCorners,1);
  Form1.Canvas.EndScene;

Просто ничего не отрисовывается. В чём может быть причина? 

Прикрепляют также тестовый проект, вдруг на какой-то версии он нормально работает. 

Test.rar

Есть ли функционал определения вектора (x,y,z) на примитиве, который соответствует текущей 2D проекции (x, y) экрана, и наоборот?

Или только самому высчитывать? Как определить перспективу сцены?

unit Unit1;

interface

uses
  System.SysUtils, System.Types, System.UITypes, System.Classes,
  System.Variants,
  FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs, FMX.Objects,
  FMX.Controls.Presentation, FMX.StdCtrls;

type
  TForm1 = class(TForm)
    Switch: TSwitch;
    Rectangle: TRectangle;
    Selection: TSelection;
    procedure SwitchSwitch(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.fmx}

procedure TForm1.SwitchSwitch(Sender: TObject);
begin
  { (Sender as TSelection).HideSelection := not(Sender as TSelection).HideSelection;
    (Sender as TSelection).HitTest := not(Sender as TSelection).HitTest;
    (Sender as TRectangle).HitTest := not(Sender as TRectangle).HitTest; }

  if Switch.IsChecked = true then
  begin
    (Sender as TSelection).HideSelection := false;
    (Sender as TSelection).HitTest := true;
    (Sender as TRectangle).HitTest := false;
  end
  else
  begin
    (Sender as TSelection).HideSelection := true;
    (Sender as TSelection).HitTest := false;
    (Sender as TRectangle).HitTest := true;
  end;
end;

end.

Новая папка.zip

start=-90; end=350; thickness=20;

На windows красота, но на андроиде.... чем больше вкруг, тем он кривее! а на 360 вообще не сходятся края  возможно его выпрямить?

var
  MyRect: TRectF;
  ABrush: TStrokeBrush;
begin
  Image1.Bitmap.SetSize(Round(Image1.Width), Round(Image1.Height));

  ABrush := TStrokeBrush.Create(TBrushKind.Solid, TAlphaColors.Red);
  MyRect := TRectF.Create(10, 10, 30, 30);

  Image1.Bitmap.Canvas.BeginScene;
  Image1.Bitmap.Canvas.DrawEllipse(MyRect, 1, ABrush);
  Image1.Bitmap.Canvas.EndScene;

Также вложил пример.

Test.zip

Есть проблема с закрашиванием полигона каким-либо цветом. Скриншот прилагается:

Не пойму, в чем причина появления лучей от начальной точки. Цвет заливки определяется кодом:

with canvas do begin
    beginscene; 
    fill.Kind:=tbrushkind.Solid; stroke.Kind:=tbrushkind.None;
    fill.Color:=MakeColor(0,0,200,180); 
    FillPolygon(pol,1);
    endscene;
end;

Где в pol (TPolygon) заданы координаты точек, начиная с той, от которой на рисунке идут лучи, далее по рисунку вправо, и заканчивая двумя точками - нижним правым и нижним левым углами рисунка.

Какие ещё могут быть варианты?