Talvez sirva, extraida de dtdelphi2.8
771 - Transforma a imagem em negativo de fotografia
procedure ColorToNegative(ABmp: TBitmap);
//
// Transforma a imagem em negativo de fotografia
//
// Use-o assim:
//
// var x: TBitmap;
// begin
//
// x := TBitmap.create;
// x.LoadFromFile('c:\MVC-267S.bmp');
// ColorToNegative(x);
// image1.Picture.Assign(x);
// end;
//
//
const
_high = 255;
var
c: TCursor;
x, y: Integer;
ColorRGB: LongInt;
begin
c := Screen.Cursor;
Screen.Cursor := crHourGlass;
for y := 0 to (ABmp.Height - 1) do
for x := 0 to (ABmp.Width - 1) do
begin
ColorRGB := ColorToRGB(ABmp.Canvas.Pixels[x, y]);
ABmp.Canvas.Pixels[x, y] := PaletteRGB(_high - GetRValue(ColorRGB),_high -
GetGValue(ColorRGB), _high - GetBValue(ColorRGB));
end;
Screen.Cursor := c;
end;
----- Original Message -----
From: futurodelphi
To: delphi-br@yahoogrupos.com.br
Sent: Friday, March 09, 2007 1:46 AM
Subject: [delphi-br] Como Clarear/Escurecer Imagem??
Procurei no histórico das mensagens e não encontrei!!!
Encontrei apenas uma mensagem dizendo que no www.torry.net tinha, mas
não encontrei!!
Por acaso alguém tem uma função ou qualquer coisa que faça isso???
Grato pela atenção,
Guilherme Augusto
[As partes desta mensagem que não continham texto foram removidas]
