掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
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の値) となります。 まだヘルプも充実してないみたいなので、時期を見て再度検証してみたいと思います。
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.