FireMonkey zeichnen auf Circle-Komponente...

[Thunder1968]

Hallo zusammen,

vielleicht kann mir jemand helfen oder einen Tip geben. Ich habe versucht auf einem FireMonkey Control (Circle1) eine Linie zu zeichnen. Leider funktioniert dieses unter XE3 nicht. Aber unter XE5 geht es. Dann habe ich mir die Trial von XE7 installiert. Auch unter XE7 funktioniert dieses nicht. Der folgende Code funktioniert aber unter XE5. Was mache ich falsch bzw. was muss ich beachten oder hat sich evtl. geändert???

Vielen Dank für eine hilfreiche Information...



procedure TForm1.CornerButton1Click(Sender: TObject);
var
Data : Single;
P1, P2 : TPointF;

begin
Circle1.Canvas.BeginScene;
P1.X:= Circle1.Height / 2;
P1.Y:= Circle1.Width / 2;
P2.X:= 0;
P2.Y:= 0;
Circle1.Canvas.Stroke.Color := claBlue;
Circle1.Canvas.StrokeDash := TStrokeDash.sdSolid;
Circle1.Canvas.Stroke.Kind:= TBrushKind.bkSolid;
Circle1.Canvas.StrokeThickness := 3.0;
Circle1.Canvas.DrawLine(P1, P2, 0);

P1.X:= 0;
P1.Y:= 0;
P2.X:= Circle1.Height;
P2.Y:= Circle1.Width;
Circle1.Canvas.Stroke.Color := claBlue;
Circle1.Canvas.StrokeDash := TStrokeDash.sdSolid;
Circle1.Canvas.Stroke.Kind:= TBrushKind.bkSolid;
Circle1.Canvas.StrokeThickness := 1.0;
Circle1.Canvas.DrawLine(P1, P2, 0);
Circle1.Canvas.EndScene;
end;