ScanLineで色（RGB)を取得してその色を加工塗布 (ID:40500)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 これでわかるかな？ TRGB = packed record Blue : Byte; Green : Byte; Red : Byte; end; TRGBArray = array[0..0] of TRGB; PRGBArray = ^TRGBarray; var SrcRow : pRGBArray; for Y:=0 to H-1 do begin SrcRow := Bmp.ScanLine[Y]; for X:=0 to W-1 do begin R := SrcRow[X].Red; G := SrcRow[X].Green; B := SrcRow[X].Blue; end; end;