[FMX]Auf Canvas zeichnen

[wurzelzwerg]

Also das hier funktioniert bei mir:

Delphi-Quellcode:

//Image1: TImage;
procedure TForm1.Button1Click(Sender: TObject);
begin
  Image1.Bitmap.Canvas.Stroke.Color := claBlue;
  Image1.Bitmap.Canvas.Stroke.Kind:= TBrushKind.bkSolid;
  Image1.Bitmap.Canvas.DrawRect(RectF(0,0,50,50),0,0,AllCorners,1);
  Image1.Repaint;
end;

Mausspur:

Delphi-Quellcode:

var
  Form1: TForm1;
  p: TPointF;

implementation

{$R *.lfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
  p.X:= 0;
  p.Y:= 0;
  Image1.Bitmap.Canvas.Stroke.Color := claBlue;
  Image1.Bitmap.Canvas.Stroke.Kind:= TBrushKind.bkSolid;
end;

procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Single);
var p2: TPointF;
begin
  p2.X:= X;
  p2.Y:= Y;
  Image1.Bitmap.Canvas.DrawLine(p, p2, 1);
  p:= p2;
  Image1.Repaint;
end;