FireMonkeyのPaintBox内に線を引きたい (ID:40997)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 こんにちは。解決済みのようですが、下のようなコードではどうですか？ procedure TForm1.Button1Click(Sender: TObject); begin PaintBox1.Canvas.BeginScene; PaintBox1.Canvas.SetMatrix(PaintBox1.AbsoluteMatrix); PaintBox1.Canvas.DrawLine(PointF(0,0),PointF(100,100),1); PaintBox1.Canvas.EndScene; end; ただし、MacやWinXPでも確実に動かそうとするならOnPaintイベントの中で描画したほうが良いです。(BitmapのCanvasへの描画はOnPaint以外でも大丈夫のようですが)