Efeitos em Imagens

Question

Eu gostaria de saber se � possivel aplicar pequenos efeitos em algumas imagens no delphi;Como inverter as cores.Efeito Preto e branco,inverter e mudar a tonalidade da imagem...

Joel Rodrigues · Answer

Cara, vou te passar um algor�timo que fiz e testei para deixar a imagem em tom de cinza, mas aqui s� deu certo com bitmaps.
Primeiramente vou tentar explicar o algor�tmo:
um tom de cinza � uma cor onde as tr�s componentes possuem valores iguais (R=G=B). Ent�o varri toda a imagem (pixel a pixel), peguei os valores R, G e B de cada pixel e verifiquei qual o maior deles, passando para uma vari�vel Tom. Encontrando o valor de Tom, definir que aquele pixel teria uma cor onde R=G=B=Tom, ou seja, RGB(Tom, Tom, Tom).

Agora o c�digo:
---------------------------------------------------------
var
i, j:integer; //vari�veis para loop
R, G, B:Integer; //valores Red, Green e Blue de cada pixel da imagem
Tom :Integer; //receber� o valor da maior componente (R, G ou B)
begin
for i := 0 to Image1.Width do
begin
for j := 0 to Image1.Width do
begin
R := GetRValue(ColorToRGB(Image1.Picture.Bitmap.Canvas.Pixels[i,j]));
G := GetGValue(ColorToRGB(Image1.Picture.Bitmap.Canvas.Pixels[i,j]));
B := GetBValue(ColorToRGB(Image1.Picture.Bitmap.Canvas.Pixels[i,j]));
if R > G then
begin
if R > B then
Tom := R
else
Tom := B;
end
else
begin
if G > B then
Tom := G
else
Tom := B;
end;
Image1.Picture.Bitmap.Canvas.Pixels[i,j] := RGB(Tom, Tom, Tom);
end;
end;
end;
---------------------------------------------------------

Sim, esse processo pode demorar, mas veja que o Delphi n�o � um editor de imagem. Esse algor�tmo funciona, s� acho que n�o vale a pena implementar em sua aplica��o. Mas fia a seu crit�rio.

Boa sorte.

Joel Rodrigues · Answer

Cara, vou te passar um algor�timo que fiz e testei para deixar a imagem em tom de cinza, mas aqui s� deu certo com bitmaps.
Primeiramente vou tentar explicar o algor�tmo:
um tom de cinza � uma cor onde as tr�s componentes possuem valores iguais (R=G=B). Ent�o varri toda a imagem (pixel a pixel), peguei os valores R, G e B de cada pixel e verifiquei qual o maior deles, passando para uma vari�vel Tom. Encontrando o valor de Tom, definir que aquele pixel teria uma cor onde R=G=B=Tom, ou seja, RGB(Tom, Tom, Tom).

Agora o c�digo:
---------------------------------------------------------
var
i, j:integer; //vari�veis para loop
R, G, B:Integer; //valores Red, Green e Blue de cada pixel da imagem
Tom :Integer; //receber� o valor da maior componente (R, G ou B)
begin
for i := 0 to Image1.Width do
begin
for j := 0 to Image1.Width do
begin
R := GetRValue(ColorToRGB(Image1.Picture.Bitmap.Canvas.Pixels[i,j]));
G := GetGValue(ColorToRGB(Image1.Picture.Bitmap.Canvas.Pixels[i,j]));
B := GetBValue(ColorToRGB(Image1.Picture.Bitmap.Canvas.Pixels[i,j]));
if R > G then
begin
if R > B then
Tom := R
else
Tom := B;
end
else
begin
if G > B then
Tom := G
else
Tom := B;
end;
Image1.Picture.Bitmap.Canvas.Pixels[i,j] := RGB(Tom, Tom, Tom);
end;
end;
end;
---------------------------------------------------------

Sim, esse processo pode demorar, mas veja que o Delphi n�o � um editor de imagem. Esse algor�tmo funciona, s� acho que n�o vale a pena implementar em sua aplica��o. Mas fia a seu crit�rio.

Boa sorte.

Joel Rodrigues · Answer

Outro algor�tmo (melhor qualidade):var  i, j:integer;  R, G, B:Integer;  Lum:Integer;begin  Self.DoubleBuffered := True;  for i := 0 to Image1.Width do  begin    for j := 0 to Image1.Height do    begin      R := GetRValue(ColorToRGB(Image1.Picture.Bitmap.Canvas.Pixels[i,j]));      G := GetGValue(ColorToRGB(Image1.Picture.Bitmap.Canvas.Pixels[i,j]));      B := GetBValue(ColorToRGB(Image1.Picture.Bitmap.Canvas.Pixels[i,j]));      Lum := Round(R*0.3 + G*0.59 + B*0.11);      Image1.Picture.Bitmap.Canvas.Pixels[i,j] := RGB(Lum, Lum, Lum);    end;  end;...

Joel Rodrigues · Answer

Mais um algor�timo, este � para deixar preto e branco.

var
i, j:integer;
R, G, B:Integer;
Tom :Integer;
maior, med:Integer;
begin
Self.DoubleBuffered := True;
maior := 0;
for i := 0 to Image1.Width do
begin
for j := 0 to Image1.Height do
begin
R := GetRValue(ColorToRGB(Image1.Picture.Bitmap.Canvas.Pixels[i,j]));
G := GetGValue(ColorToRGB(Image1.Picture.Bitmap.Canvas.Pixels[i,j]));
B := GetBValue(ColorToRGB(Image1.Picture.Bitmap.Canvas.Pixels[i,j]));

if R > G then
begin
if R > B then
Tom := R
else
Tom := B;
end
else
begin
if G > B then
Tom := G
else
Tom := B;
end;

if Tom > maior then
maior := Tom;
end;
end;

med := Round(maior/2);

for i := 0 to Image1.Width do
begin
for j := 0 to Image1.Height do
begin
R := GetRValue(ColorToRGB(Image1.Picture.Bitmap.Canvas.Pixels[i,j]));
G := GetGValue(ColorToRGB(Image1.Picture.Bitmap.Canvas.Pixels[i,j]));
B := GetBValue(ColorToRGB(Image1.Picture.Bitmap.Canvas.Pixels[i,j]));

if R > G then
begin
if R > B then
Tom := R
else
Tom := B;
end
else
begin
if G > B then
Tom := G
else
Tom := B;
end;

if Tom < med then
Image1.Picture.Bitmap.Canvas.Pixels[i,j] := RGB(255, 255, 255)
else
Image1.Picture.Bitmap.Canvas.Pixels[i,j] := RGB(0, 0, 0);
end;
end
end;

Arthur Scarpelli · Answer

N�o consegui fazer funcionar quando eu coloco o seu algor�timo no evento click de um Button a imagem simplesmente some...

Joel Rodrigues · Answer

A imagem � BITMAP (.BMP)? Isso ocorreu aqui quando eu usava uma imagem em outro formato....

Deivison Melo · Answer

Verifique o componente (free): ImageEn (vers�o atual: 3.1.1 (ImageEn 3.1.1)).Pode baixe ele atrav�s do site://www.torry.net/quicksearchd.php?String=ImageEn+&Title=Yes...

Joel Rodrigues · Answer

Pronto, se esse componente fizer o que voc� precisa e voc� n�o se opuser ao uso, � bem melhor que ficar usando esses algor�tmos que mostre. Como falei, n�o acho vi�vel aplic�-los, mas mostrei como funciona o processo....

Arthur Scarpelli · Answer

Obrigado pela ajuda...

Joao Silva · Answer

ola galera, gostei muito dos exemplos dado aqui, os tres ultimos sao mais rapidos do q o primeiro exemplo!!!.mas so funciona com bitmaps....

F�rum Efeitos em Imagens #413454