|
|
| Tutoriaux
- Graphique - Negatif |
Voici l'exemple en Delphi pour créer
un effet negatif dans une image.
Ajouter un
composant TImage. Charger une image bitmap.
procedure
TForm1.Button1Click (Sender : TObject);
Var ARect: TRect;
begin
Image1.Canvas.CopyMode:=cmpatInvert;
ARect:=Image1.Canvas.Rect(0,0,Image1.Width, Image1.Height);
Image1.Canvas.CopyRect(ARect, Image1.Canvas, ARect);
Image1.Canvas.CopyMode:=cmSrcCopy;
end; |
|
|
