Zeichnen auf Canvas unter Firemonkey

[Matima]

Ich habe das Linienzeichnen jetzt in der OnPaint Methode gemacht.
Jetzt bleibt die Linie!

procedure TForm4.PaintBox1Paint(Sender: TObject; Canvas: TCanvas);
var Brush: TStrokeBrush;
begin
Brush := TStrokeBrush.Create(TBrushKind.Solid, TAlphaColors.Black);

PaintBox1.Canvas.BeginScene;
PaintBox1.Canvas.Stroke.Kind := TBrushKind.bkSolid;
PaintBox1.Canvas.Stroke.Color := TAlphaColorRec.Red;
PaintBox1.Canvas.Stroke.Thickness := 1.0;
PaintBox1.Canvas.DrawLine(PointF(1, 1), PointF(PaintBox1.Width, PaintBox1.Height), 50);

PaintBox1.Canvas.EndScene;
end;

Aber wie kann ich das Zeichnen in einem Button Click Ereignis bewirken?
Gibt es eine Möglichkeit die OnPaint Methode von außerhalb aufzurufen?
Sorry, aber ich mache gerade erst meine ersten Schritte.....

[himitsu]

Indem du dort irgendwo speicherst, dass es dann in OnPaint gemacht werden soll,
wo du Dieses dann prüfst und es dort machst.

[Matima]

Kannst du bitte ein Beispielcode senden?

Vielen Dank

[Matima]

Ich habe das Problem gelöst.
Es geht über das Bitmap von Image:

procedure TForm5.Button2Click(Sender: TObject);
var
BMP: TBitmap;
MyRect: TRectF;
begin
BMP := TBitmap.Create;
BMP.SetSize(400, 400);
MyRect := TRectF.Create(150, 150, 200, 200);
try
BMP.Clear(TAlphaColorRec.Yellow);
BMP.Canvas.BeginScene;

//R.Create(10, 10, 390, 390);
//BMP.Canvas.Font.Size := 36;
//BMP.Canvas.Font.Style:=[TFontStyle.fsbold];
//lWidth := BMP.Canvas.TextWidth(lTextOut);
//bWordWrap := (lwidth > 380);
//BMP.Canvas.FillText(R, lTextOut, bWordWrap, 1, [TFillTextFlag.RightToLeft], TTextAlign.Center, TTextAlign.Center);

BMP.Canvas.Stroke.Kind := TBrushKind.bkSolid;
BMP.Canvas.Stroke.Color := TAlphaColorRec.Brown;
BMP.Canvas.Stroke.Thickness := 5.0;
BMP.Canvas.DrawLine(PointF(1,1),PointF(BMP.Width,B MP.Height),100);
BMP.Canvas.Stroke.Color := TAlphaColorRec.Green;
BMP.Canvas.DrawEllipse(MyRect,100);
BMP.Canvas.EndScene;
Image1.Bitmap.Assign(BMP);
finally
FreeAndNil(BMP);
end;
end;