Inverser un Bitmap

function InvertBmp(SourceBmp:Tbitmap): TBitMap;
var
i,j :longint;
tmp : TBitMap;
Red, Green, Blue: Byte;
PixelColor: Longint;
begin
tmp := TBitmap.Create;
tmp.width := SourceBmp.width;
tmp.height := SourceBmp.height;
for i := 0 to SourceBmp.width-1 do
begin
for j := 0 to SourceBmp.height-1 do
begin
PixelColor := ColorToRGB(SourceBmp.Canvas.Pixels[i,j]);
Red := PixelColor;
Green := PixelColor shr 8;
Blue := PixelColor shr 16;
red := 255-red;
green := 255-green;
blue := 255-blue;
tmp.canvas.pixels[i,j] := (red shl 8+green) shl 8+blue;
end;
end;
Result := tmp;
end;
Ajouter un commentaire
Pseudo
Adresse email
Site internet (optionnel)
Votre commentaire
Fiche de l'article
Mise a jour16/11/2001
VisualisationVu 1562 fois
PublicInternaute zz
CategorieDelphi - Trucs et astuces - Graphisme
Auteur de l'article
GIS L.L.C.,2000 GIS L.L.C.,2000
connecté le 02/11/2011
1 articles dans la section
Contacter l'auteur