Problem mit FMX.TImage

[Kai_in_HH]

Guten Abend zusammen,

ich arbeite mich gerade in die Erstellung "geräteunabhängiger Anwendungen" ein um am Ende mal eine Android App erstellen zu können. Soweit klappt das auch recht gut, aber die Komponenten TImage (Firemonkey, nicht VCL) gibt mir dann doch Rätsel auf.

Ich habe in meinem Form ein TImage mit 337 Höhe und 329 Breite.

Wenn ich nun aber zwei Punkte definiere und eine Linie zeichne, erscheint das "Gemalte" unglaublich gezoomt.

Delphi-Quellcode:

  Image1.Bitmap.Canvas.BeginScene;
  p1 := TPointF.Create(1,1);
  p2 := TPointF.Create(10,1);
  Image1.Bitmap.Canvas.DrawLine(p1, p2, 1);
  p1 := TPointF.Create(30,30);
  p2 := TPointF.Create(30,100);
  Image1.Bitmap.Canvas.DrawLine(p1, p2, 1);

Obiger Code gibt mir zwei Linien aus und die zweite dürfte niemals über die Mitte hinaus gehen. Tut sie aber, wie man am Bild sieht.
FMXTImage.jpg

Ich habe schon http://docwiki.embarcadero.com/ durchgewühlt, finde aber keinen Ansatz dafür.

Vermutlich irgendein Denkfehler meinerseits (da neu in Firemonkey).

Danke schon mal.

Kai