CJC Delphi 技巧馆's Archiver

cjc Posted at 2018-9-20 10:39

Firemonkey Bitmap 设定像素颜色 Pixel (XE, 2014.11.3)

Firemonkey Bitmap 设定像素颜色 Pixel

VCL 和 Firemonkey 的 Bitmap 处理像素的方式不相同,下例为将图片内不是「白色」的像素全部改成「黑色」:

复制代码
procedure TForm1.Button1Click(Sender: TObject);
var x, y: Integer;
    vBitMapData: TBitmapData;
begin
     if Image1.Bitmap.Map(TMapAccess.maWrite, vBitMapData) then
     begin
          for x:=0 to Image1.Bitmap.Width - 1 do
              for y:=0 to Image1.Bitmap.Height - 1 do
                  if vBitMapData.GetPixel(x, y) <> TAlphaColors.White then
                     vBitMapData.SetPixel(x, y, TAlphaColors.Black);
          Image1.Bitmap.Unmap(vBitMapData);
     end;
end;

Page: [1]
CJC好玩背单词最新版本 - 是目前最好的背单词软件,游戏好玩,功能强大,词库众多,还有真人语音,免费下载,免费试用 !

Powered by Discuz! Archiver 6.1.0  © 2001-2007 Comsenz Inc.