掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
Jpegの上にペンで線を引くには (ID：784)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
こちらではうまくいってしまいます(Delphi5) Delphi6から仕様が変わったんでしょうか。 再現させるには、 Form2.Image1.Picture.Bitmap := Bmp ; を、 Form2.Image1.Picture.Bitmap := Jp ; { JPEGをそのままアサイン } とすれば、Delphi5でも再現しました。 回避策は、 Bmp.Assign(jp) ; を、 bmp.Width := jp.width; bmp.Height := jp.Height; bmp.Canvas.Draw(0, 0, jp); Image1.Picture.Assign(bmp); とすれば何とかうまくいきます。 # 色の設定等もコピーする必要があるかもしれません。
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.