掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
ＢＭＰ画像を使ってＩｍａｇｅ上に再び描画するには？ (ID：6633)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
Halbow です。 > 下のようなプログラムは作ることができないんでしょうか。IntToHex関数がStringのため > これは実行できないのですが、このように 00000000 か 00FFFFFF かで1か0をCellに与え > たいのですがどうしたらよいのでしょうか。 > よろしくお願いします。 > > Sigma1:=0; > for i:=0 to 400 do begin > for j:=0 to 200 do begin > if (IntToHex(Image1.Canvas.Pixels[i,j],8)=00000000) then > begin Cell1[i,j]:=1; > end > else > begin Cell1[i,j]:=0; > end; > end; > (IntToHex(Image1.Canvas.Pixels[i,j],8)=00000000) ここの部分は Image1.Canvas.Pixels[i,j] = clWhite でいいんじゃないですか？ 実際に白が 00000000 であることを確認したのですよね。
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.