掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
Image1.Picture.Bitmap.Canvasへ線を追加するには？ (ID:43855)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
こんにちは。 先ほどImage1に線が描けると知りました。 ありがとうございました。 さて、このようにすることで線を描けますが、 >begin > Image1.Picture.Bitmap.Canvas.Brush.Style := bsClear; > Image1.Picture.Bitmap.SetSize(Image1.Width,Image1.Height); > Image1.Picture.Bitmap.Canvas.Pen.Width :=2; > Image1.Picture.Bitmap.Canvas.Pen.Color :=clBlue; > MoveToEx(Image1.Picture.Bitmap.Canvas.Handle,10,20,nil); > LineTo(Image1.Picture.Bitmap.Canvas.Handle,100,150); >end; さらに線を追加しようと、こうしてみましたところ、 >procedure TForm1.Button2Click(Sender: TObject); >begin > Image1.Picture.Bitmap.Canvas.Pen.Width :=2; > Image1.Picture.Bitmap.Canvas.Pen.Color :=clRed; > MoveToEx(Image1.Picture.Bitmap.Canvas.Handle,20,30,nil); > LineTo(Image1.Picture.Bitmap.Canvas.Handle,120,130); >end; 線は描かれません。 これは何がいけないのでしょう？ 線の追加は不可なのか、それとも描く相手を捕まえられていないのか、 よくわかりません。 よろしくお願いいたします。
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.