图像的反白???(0分)

  • 主题发起人 主题发起人 Laird
  • 开始时间 开始时间
L

Laird

Unregistered / Unconfirmed
GUEST, unregistred user!
procedure TForm1.BitBtn1Click(Sender: TObject);
var
x,y:integer;
begin
x:= Image1.Height ;
y:= Image1.Width ;
for x:=0 to x do
for y:=0 to y do
Image1.Canvas.Pixels[x,y]:= clWhite- Image1.Canvas.Pixels[x,y];
end;
这样可以吗/
 
可以,但是一定很慢;)

一个 API 就可以了: PatBlt,你看看帮助吧,最后一个参数需要指明
 
Palblt不知道怎么用。最后一个指明什么
 
指明是按位反操作呀,具体怎么拼写的不记得了,我现在在网吧
 
是不是只能修改位图
 
接受答案了.
 
后退
顶部