Position Elemente in TImage ???

[juniorA]

aktuell bin ich bei folgender Variante

Delphi-Quellcode:

unit zf;

interface

uses
  System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants,
  FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs, FMX.StdCtrls,
  FMX.Controls.Presentation, FMX.Objects;

type
  Tzeichnung = class(TForm)
    Image1   : TImage;
    Panel1   : TPanel;
    Button1  : TButton;
    procedure Button1Click(Sender: TObject);

  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  zeichnung: Tzeichnung;

implementation

{$R *.fmx}

procedure Tzeichnung.Button1Click(Sender: TObject);
var MyBitmap: TBitmap;
    MyRect  : TRectF;
begin
  MyBitmap := TBitmap.Create(0, 0);
  try
    MyRect.Create(50, 30, 150, 200); // A record on the stack, does not Free
    MyBitmap.Assign(Image1.Bitmap);
    MyBitmap.Canvas.BeginScene;
    MyBitmap.Canvas.Stroke.Kind      := TBrushKind.Solid;
    MyBitmap.Canvas.Stroke.Color     := TAlphaColors.Black;
    MyBitmap.Canvas.Stroke.Thickness := 4;
    MyBitmap.Canvas.DrawRect(MyRect, 20, 20, AllCorners, 1.0);
    MyBitmap.Canvas.EndScene;

    // Display the result
    Image1.Bitmap := MyBitmap;
  finally
    MyBitmap.Free;
  end;
 end;
end.

leider endet die mit einer Fehlermeldung "Kein Eigentümer der Obejektsperre gefunden"

[Harry Stahl]

Ja, die FMX-Objekte selber haben nicht jeweils einen eigenen Canvas, sondern teilen sich den Anzeigebereich mit der Form.

Es ist der falsche Ansatz, von außen auf die Anzeige-Elemente zeichnend zuzugreifen (also hier im Button-Click-Event), da diese sich ja auch selbst zeichnen müssen, wenn man ein anderes Formular über das Anzeige-Element schiebt.

Daher besser das Painting-Event des Controls verwenden, da erhält man auch direkt den Anzeigebereich übergeben.

So funktioniert es (mit Deinem ersten Ansatz):

Delphi-Quellcode:

procedure TForm33.Image1Painting(Sender: TObject; Canvas: TCanvas; const ARect: TRectF);
var
  MyRect: TRectF;
  c : Tcanvas;
begin
  MyRect.Create(1, 1, 150, 200);
  c := canvas; //Image1.Canvas;
  c.BeginScene;
  c.Stroke.Kind := TBrushKind.Solid;
  c.Stroke.Color := TAlphaColors.Blue;
  c.Stroke.Thickness := 2;
  c.DrawRect(MyRect, 10, 10, AllCorners, 1.0);
  c.EndScene;
end;

[juniorA]

Es funktioniert. Jugend forscht lernt nie aus. Danke für die Hilfe.