掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
ＢＭＰ画像を使ってＩｍａｇｅ上に再び描画するには？ (ID:6623)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
TCanvas クラスの Pixels[x,y] プロパティを調べてみました。 すると、このように使うのかのかなと思い組み立ててみたのですが、 これでは色を読み取ることができませんでした。 どうしたらそのPixelsの色を読み取って数値を与えることができるのでしょうか。 （Image上には画像を取り込んでからです） for i:=0 to 400 do begin for j:=0 to 200 do begin if (Canvas.Pixels[i,j]=clBlack) then begin Cell1[Data1[i].x,j]:=1; end else begin Cell1[Data1[i].x,j]:=0; end; end; for j:=0 to 200 do begin if (Cell1[Data1[i].x,j]=1) and (Cell1[Data1[i].x,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]));
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.