Forum: Programmieren allgemein
Delphi
by ScharfeMietze,
10. Feb 2023
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...
Forum: Programmieren allgemein
Delphi
by ScharfeMietze,
9. Feb 2023
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...
procedure THeaderFooterForm.pb1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Single);
var
Canvas: TCanvas;
BitmapPos: TPointF;
begin
//BitmapPos:= PointF(X, Y); // <-- Zeichnet nicht
Forum: Programmieren allgemein
Delphi
by ScharfeMietze,
9. Feb 2023
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...
Forum: Programmieren allgemein
Delphi
by ScharfeMietze,
9. Feb 2023
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
procedure THeaderFooterForm.pb1Paint(Sender: TObject; Canvas: TCanvas);
begin
Canvas.DrawBitmap(img1.Bitmap, RectF(0, 0, img1.Bitmap.Width, img1.Bitmap.Height),
...