Jak odwrócić kolory w Image

CooBek

Dodajemy na formę komponenty TImage oraz TButton.
Ważne, aby Picture komponentu Image był Bitmapą, bo JPEGów ten trik nie dotyczy!! :(

procedure TForm1.Button1Click(Sender: TObject);
var
  R: TRect;
 begin
   with Image1.Picture.Bitmap do
   begin
     R := Rect(0, 0, Width, Height);
     InvertRect(Canvas.Handle, R);
   end;
   Image1.Invalidate;
end;

1 komentarz

A jak to zrobić jpeg?