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

名前

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

本文 igyさん 度々ありがとうございます >(引数のCanvasを使ってDrawLineで線を引いています。) ソースは指示通りにしてましたがやはりフォーム上に描画されます。 私なりに色々いじってみたのですが procedure TForm3.Button1Click(Sender: TObject); begin PaintBox1.Canvas.BeginScene; PaintBox1.Canvas.DrawLine(PointF(0,0),PointF(100,100),1); PaintBox1.Canvas.EndScene; ShowMessage(IntToStr(PaintBox1.Canvas.Width)+'X'+IntToStr (PaintBox1.Canvas.Width)); end; とし、PaintBox1.CanvasのWidthとWidthを見たらPaintBox1の値ではなく Formの値となってます。 又、実行ファイルをXPと7でそれぞれ実行したら XP フォームにも線は書かれない 7 フォーム上に線が引かれる (それぞれメッセージの値はFormの値) となります。 まだヘルプも充実してないみたいなので、時期を見て再度検証してみたいと思います。