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;
这样可以吗/
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;
这样可以吗/