本文介绍了一种在Delphi中实现位图像素反色的方法。通过遍历位图的每一行，然后对每一行中的每个像素进行反色操作，最终实现了整个位图的反色效果。此方法适用于简单的图像处理任务。
procedure TBaseClass.SelectBmp(Aimage: TImage);
var
x,y : Integer;
P : PByteArray;
begin
with Aimage.Picture.Bitmap do
begin
for y := 0 to Height -1 do
begin
P := ScanLine[y];
for x := 0 to (Width * 3) -1 do
P[x] := not P[x];
end;
Aimage.Repaint;
end;
end;
var
x,y : Integer;
P : PByteArray;
begin
with Aimage.Picture.Bitmap do
begin
for y := 0 to Height -1 do
begin
P := ScanLine[y];
for x := 0 to (Width * 3) -1 do
P[x] := not P[x];
end;
Aimage.Repaint;
end;
end;
扫一扫
1054
被折叠的 条评论
为什么被折叠?
到【灌水乐园】发言
