FMX TPaintBox

[ScharfeMietze]

Ich habe in FMX
In einer TMultiview ein TLayout darin ein TImage mit einer TPaintbox
In diesem Minigame soll ein Kreis gezeichnet werden.
Nur erscheint der Kreis nicht dort wo der Nuzer den Bildschim berührt..
Hier der Code

Delphi-Quellcode:

procedure THeaderFooterForm.pb1Paint(Sender: TObject; Canvas: TCanvas);
begin
  Canvas.DrawBitmap(img1.Bitmap, RectF(0, 0, img1.Bitmap.Width, img1.Bitmap.Height),
    RectF(0, 0, pb1.Width, pb1.Height), 1);
end;


procedure THeaderFooterForm.pb1MouseDown(Sender: TObject; Button: TMouseButton;Shift: TShiftState; X, Y: Single);
var
  Canvas: TCanvas;
  BitmapPos: TPointF;
begin
  Canvas := img1.Bitmap.Canvas;
  Canvas.BeginScene;
  try
    Canvas.Stroke.Color := TAlphaColorRec.Green;
    Canvas.Fill.Color := TAlphaColorRec.Green;
    Canvas.DrawEllipse(RectF(X - 5, Y - 5, X + 5, Y + 5), 1);
  finally
    Canvas.EndScene;
  end;
  pb1.Repaint;
end;

Diverse Versuche mit
img1.ScreenToLocal(TRectF.Create(x,y); haben nicht den erwünschten Erfolg gebracht...
Was muss ich tun damit der Kreis genau unter dem Finger des Users erscheint?
Mit Dank vorab
Mietze

[Sherlock]

Kurze Frage...erscheint der Kreis da wo mit der Maus geklickt wurde? Wenn ja, dann müsste man versuchen herauszufinden, wie der Touchscreen die Eingabe weitergibt, wenn nein, dann wird das Testen zumindest einfacher... Ansetzen könnte man da bei der Bildschirmauflösung, bzw. Skalierung. Ist die bei etwas anderem als 100%?

Sherlock

[ScharfeMietze]

Zitat von Sherlock:

Kurze Frage...erscheint der Kreis da wo mit der Maus geklickt wurde? Wenn ja, dann müsste man versuchen herauszufinden, wie der Touchscreen die Eingabe weitergibt, wenn nein, dann wird das Testen zumindest einfacher... Ansetzen könnte man da bei der Bildschirmauflösung, bzw. Skalierung. Ist die bei etwas anderem als 100%?

Sherlock

Ich habe mir den Spaß gemacht und es die Plattform Windows 64 Hinzugefügt. Es ist auch dort so genau das Gleiche der Kreis erscheint NICHT beim MausKlick..
Ich habe nicht bewusst an Skalierungen gedreht. Auf dem Foto habe ich auf die ersten 3 Symbole geklickt. Die Kreise erscheinen alle unten drunter und rechts wobei sich auch die Abstände "willkürlich" zu vergrößern scheinen

Wo müsste ich den wenn nach welcher Skalierung suchen?

[KodeZwerg]

So in etwa besser?

Delphi-Quellcode:

var
  newPos: TPoint;
begin
  newPos := ScreenToClient(Mouse.CursorPos);

[himitsu]

Wie ist denn Windows/Desktop/Monitor eingestellt?
> Desktop > Konextmenü > Anzeigeeinstellungen > Skalierung und Anordnung

Und was hast du dazu in den Projektoptionen angegeben?
> Projektoptionen > Anwendung > Manifest > DPI-Unterstüzung (natürlich für die Windows-Configs)

@KodeZwerg
Wenn, dann natürlich pb1.ScreenToClient, denn Self.ScreenToClient wird nicht ganz passen.
Und eventuell sicherheitshalber auch nochmal von pb1 zu img1 umrechnen, also pb1.ConvertLocalPointTo(img1,...) oder img1.ConvertLocalPointFrom(pb1,...),
oder gleich direkt img1.ScreenToClient verwenden, falls die Beiden unterschiedlich skallieren.

Und dann noch der Spaß, falls auch noch das Bitmap in TImage gestrecht/scaliert wird.
z.B. in der VCL ändert sich die Größe des Bitmaps nicht, wenn sich die Größe des TImages ändert, nachdem das erste Mal auf das Bitmap zugegriffen (es generiert) wurde. Und hier vermutlich auch nicht.

[ScharfeMietze]

Zitat von himitsu:

Wie ist denn Windows/Desktop/Monitor eingestellt?
> Desktop > Konextmenü > Anzeigeeinstellungen > Skalierung und Anordnung

Und was hast du dazu in den Projektoptionen angegeben?
> Projektoptionen > Anwendung > Manifest > DPI-Unterstüzung (natürlich für die Windows-Configs)

@KodeZwerg
Wenn, dann natürlich pb1.ScreenToClient, denn Self.ScreenToClient wird nicht ganz passen.
Und eventuell sicherheitshalber auch nochmal von pb1 zu img1 umrechnen, also pb1.ConvertLocalPointTo(img1,...) oder img1.ConvertLocalPointFrom(pb1,...),
oder gleich direkt img1.ScreenToClient verwenden, falls die Beiden unterschiedlich skallieren.

Und dann noch der Spaß, falls auch noch das Bitmap in TImage gestrecht/scaliert wird.
z.B. in der VCL ändert sich die Größe des Bitmaps nicht, wenn sich die Größe des TImages ändert, nachdem das erste Mal auf das Bitmap zugegriffen (es generiert) wurde. Und hier vermutlich auch nicht.

Unter Windows war nur kurz zu Testzwecken und ist sofort wieder runter geflogen.
Diese screen to Client geschichten habe ich unter FMX in Android nicht...

Delphi-Quellcode:

procedure THeaderFooterForm.pb1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Single);
var
  Canvas: TCanvas;
  BitmapPos: TPointF;
begin
  //BitmapPos:= PointF(X, Y); // <-- Zeichnet  nicht
  //BitmapPos:= pb1.ScreenToLocal(PointF(X, Y));  // Zeichnet aber versetzt
  BitmapPos:= pb1.LocalToScreen (PointF(X, Y));  // <-- Zeichnet  nicht
//        pb1.ConvertLocalPointTo(img1,TPointF.Create(X, Y));

  Canvas := img1.Bitmap.Canvas;
  Canvas.BeginScene;
  try
    Canvas.Stroke.Color := TAlphaColorRec.Green;
    Canvas.Fill.Color := TAlphaColorRec.Green;
    // Canvas.DrawEllipse(RectF(X - 10, Y - 10, X + 10, Y + 10), 1); // Zeichnet aber versetzt
    Canvas.DrawEllipse(RectF(BitmapPos.X - 10, BitmapPos.Y - 10, X + 10, BitmapPos.Y + 10), 1); 
  finally
    Canvas.EndScene;
  end;
  pb1.Repaint;
end;

Das sind die Sachen die ich erfolglos ausprobiert habe.... Ev. ist nur irgendwo die Syntax falsch?

[himitsu]

LocalToScreen kann doch fast nur außerhalb des sichtbaren Bereichs malen, wenn du die Screen-Koordinaten dann für das viel kleinere Bitmap benutzt.

Warum nicht erstmal einfach und diese Koordinaten/Zahlen in ein Label schreiben?
Oder an Position 0:0 als Text ins Bitmap.
Oder mal im Debugger nachsehn, was da drin steht?

plus die Eingangswete, Zwischenschritte usw.,
gegenüber img1.Width, img1.Bitmap.Width und Height.

Delphi-Quellcode:

BitmapPos := pb1.LocalToScreen(PointF(X, Y));
BitmapPos := img1.ScreenToLocal(BitmapPos);

?

[ScharfeMietze]

Zitat von himitsu:

LocalToScreen kann doch fast nur außerhalb des sichtbaren Bereichs malen, wenn du die Screen-Koordinaten dann für das viel kleinere Bitmap benutzt.

Warum nicht erstmal einfach und diese Koordinaten/Zahlen in ein Label schreiben?
Oder an Position 0:0 als Text ins Bitmap.
Oder mal im Debugger nachsehn, was da drin steht?

plus die Eingangswete, Zwischenschritte usw.,
gegenüber img1.Width, img1.Bitmap.Width und Height.

Delphi-Quellcode:

BitmapPos := pb1.LocalToScreen(PointF(X, Y));
BitmapPos := img1.ScreenToLocal(BitmapPos);

?

Nach Stunden des probierens habe ich nur rausgefunden das wenn ich oben Links genau ins eck klicke
mit dieser Zeile
Canvas.DrawEllipse(RectF(X - 10, Y - 10, X + 10, Y + 10), 1); ohne Bitmap pos: setzt er den "1/4" Kreis genau. Je weiter ich oben links weg gehe desto weiter (exponentiell) entfernt sich der Kreis.
Ich habe das Image auch in die "Hauptform" gezogen um
Multiview und TLayout als Fehlerquelle auszuschließen.
Das ist wirklich zum verzweifeln. Ich hoffe Ihr habt noch Ideen..

[KodeZwerg]

Kannst Du Dein Projekt teilen um selbst herum-zu-experimentieren?