掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
条件によりイメージを変える (ID:25189)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
条件によりImage1〜Image4までの画像をImage0に 描画したいんですよね。 こんな感じでいかがでしょう？ procedure Tform1.DrawImage(sbp,smk :integer); var Graph :TGraphic; begin Graph :=nil; //初期化 if (sbp <110) and (smk = 0) then Graph :=Image1.Picture.Graphic else if (sbp > 250) and (smk = 0) then Graph :=Image2.Picture.Graphic else if (sbp <110) and (smk = 1) then Graph :=Image3.Picture.Graphic else if (sbp > 250) and (smk = 1) then Graph :=Image4.Picture.Graphic; Image0.Canvas.Draw(10,10,Graph); end; 透過に関してはどうでしょう。 イージーな回答ですみませんが、TImageは左下のピクセルを 透過色とするのでそこが別の色で埋まっているとか？
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.