Firemonkey : Image.Bitmap.DrawLine이 ipad에 표시되지 않습니다.

Question

IOS 용 DelphiXE2 firemonkey로 앱을 제작하고 있습니다. Xcode IPAD Simulator의 Mac에서 테스트 한 결과,이 버튼을 보았습니다. 그러나 버튼을 클릭하면 선이 표시되지 않습니다. 왜?

코드 : (폼에 버튼과 이미지)

unit Unit3; 

interface 

uses 
    SysUtils, Types, UITypes, Classes, Variants, FMX_Types, FMX_Controls, FMX_Forms, 
    FMX_Dialogs, FMX_Objects; 

type 
    TForm3 = class(TForm) 
    Image1: TImage; 
    Button1: TButton; 
    procedure Button1Click(Sender: TObject); 
    procedure FormCreate(Sender: TObject); 
    private 
    { Private-Deklarationen } 
    public 
    { Public-Deklarationen } 
    end; 

var 
    Form3: TForm3; 

implementation 

{$R *.lfm} 

procedure TForm3.Button1Click(Sender: TObject); 
var pt0,pt1 : TPointF; 
begin 
    pt0.Create(0,0); 
    pt1.Create(200,200); 
    with Image1.Bitmap do begin 
    Canvas.Stroke.Color := $ffff0000 ; // Red 
    Canvas.BeginScene; 

    Canvas.DrawLine(pt0,pt1,1); 
    BitmapChanged; // without this, no output 
    Canvas.EndScene; 
    end; 

end; 


procedure TForm3.FormCreate(Sender: TObject); 
begin 
    Image1.Bitmap := TBitmap.Create(200,200); 
end; 
end. 

Answer 1

나는 그것을해야한다고 생각 :

pt0 := TPointF.Create(0, 0); 

Answer 2

이

pt0.X:=X; 
    pt0.Y:=Y; 
    pt1.X:=X+4; 
    pt1.Y:=Y+4; 
    with Image1.Bitmap do begin 
    Canvas.Stroke.Color := $ffff0000 ; // Red 
    Canvas.Stroke.Kind := TBrushKind.bkSolid; 
    Canvas.StrokeThickness:= 10; 
    Canvas.BeginScene; 
    Canvas.DrawLine(pt0,pt1,100); 
    Canvas.EndScene; 
    end;