// Hiermit kann man das Negativ von einem Bitmap erzeugen.

// Getestet mit D4 unter WinME

procedure TForm1.Button2Click(Sender: TObject);
var bmp:TBitmap;
begin
bmp:=TBitmap.create;
bmp.loadfromfile('d:\bilder\corel001sw.bmp');
   InvertRect(bmp.canvas.handle,rect(0,0,bmp.width,bmp.height));
canvas.draw(100,10,bmp);
// z.B.
bmp.free;
end;
 


Zugriffe seit 6.9.2001 auf Delphi-Ecke