掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
Jpegの上にペンで線を引くには (ID:782)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
さっそくのお返事ありがとうございます if Button = mbLeft then begin Image1.Canvas.Pen.Color := clRed ; Image1.Canvas.Pen.Width := 3 ; if Form1.RadioButton1.Checked = True then begin if Hantei = 1 then ｛Hanteiが１のときはすでに始点が決まっている｝ Image1.Canvas.LineTo(X,Y) else begin Image1.Canvas.MoveTo(X,Y) ; Hantei := 1 ; end ; 上のようにして線を引いています。ちょっとごちゃごちゃしてますが基本的には Image1.Canvas.MoveTo(＊,＊); Image1.Canvas.LineTo(＊,＊); という形になってると思います。 環境はWin Me でDelphi6 Personalを使っています。
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.