Inverze barev bitmapy

K dalším běžným funkcím programů pracujících s obrázky patří funkce invertování obrázku neboli vytvoření negativu. Ukážeme si velmi jednoduchý postup:
procedure TForm1.Button1Click(Sender: TObject);
var
R: TRect;
Bmp: TBitmap;
begin
if Form1.OpenPictureDialog1.Execute then
begin
Bmp := TBitmap.Create;
Bmp.LoadFromFile(Form1.OpenPictureDialog1.FileName);
with Bmp do
begin
R := Rect(0, 0, Width, Height);
InvertRect(Canvas.Handle, R);
end;
Bmp.SaveToFile('inverze.bmp');
Bmp.Free;
end;
end;