掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
ＢＭＰ画像を使ってＩｍａｇｅ上に再び描画するには？ (ID：6632)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
Halbowさん、 Mr.XRAYさん、ありがとうございます。 どちらのプログラムも作ってみることができ、Pixelsのことが少しは わかってきた気がします。 しつこいようですが、下のようなプログラムは作ることができないんでしょうか。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; for j:=0 to 200 do begin if (Cell1[i,j]=1) and (Cell1[i,j+1]=0) then er[i]:=j; end; Data1[i].x:=i; Data1[i].y:=er[i]; Memo1.Lines.Add(InttoStr(i)+' → '+InttoStr(er[i])); Sigma1:=Sigma1+er[i]; end;
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.