Firemonkey Bild Perspektivisch zeichnen

[Uwe Raabe]

Die Perspektivkoordinaten sind relativ zum Image2 gemeint:

Delphi-Quellcode:

  image2.BoundsRect := dropzone(0.067, 0.2275, 0.457, 0.6655, w, h);

  w := Round(Image2.Width);
  h := Round(Image2.Height);

  with PerspectiveTransformEffect1 do
  begin
    BottomLeft := fixpoint(PointF(0.186, 0.04), w, h);
    BottomRight := fixpoint(PointF(1.0, 0.0), w, h);
    TopLeft := fixpoint(PointF(0.0, 0.995), w, h);
    TopRight := fixpoint(PointF(0.823, 0.733), w, h);
    Enabled := true;
  end;

Vielleicht die Hilfsroutingen gleich von Integer auf Single umstellen, dann spart man sich das Runden.