Fórum Colorir uma imagem em várias partes (com TImage) #349541
23/11/2007
0
Gostaria de colorir uma imagem, usando o TImage, com diversas cores, clicando em um botão e abrindo um ColorDialog, seguindo o esquema abaixo:
Situação 1
[img:ef467560a2]http://img216.imageshack.us/img216/4267/forumdevmedianew3axi4.png[/img:ef467560a2]
Situação 2
[img:ef467560a2]http://img215.imageshack.us/img215/2914/forumdevmedianew3bcf4.png[/img:ef467560a2]
Situação 1
[img:ef467560a2]http://img216.imageshack.us/img216/4267/forumdevmedianew3axi4.png[/img:ef467560a2]
Situação 2
[img:ef467560a2]http://img215.imageshack.us/img215/2914/forumdevmedianew3bcf4.png[/img:ef467560a2]
Lucas.bernieri
Curtir tópico
+ 0
Responder
Posts
23/11/2007
Abadia
var
X, Y: Integer;
PixColor: TColor;
begin
for X := 0 to Image1.Width - 1 do
for Y := 0 to Image1.Height - 1 do
begin
PixColor := TBitmap(Image1.Picture.Graphic).Canvas.Pixels[X, Y];
if PixColor = clBlack then
PixColor := ColorBox1.Selected;
TBitmap(Image2.Picture.Graphic).Canvas.Pixels[X, Y] := PixColor;
end;
Coloque no image1 e image2 a imagem original
no if clBlack é a cor que será trocada na imagem original ao ser copiada para Image2
é um método simples que funciona bem para imagens pequenas e com cores sólidas.
Responder
Gostei + 0
23/11/2007
Abadia
só faltou em END pra finalizar
Responder
Gostei + 0
23/11/2007
Lucas.bernieri
Eu encontrei antes de você responder, o código, que é igual esse.
Mas mesmo assim: muito obrigado.
Já tinha perguntado isso e você foi quem deu melhor resposta!!! :lol:
Mas mesmo assim: muito obrigado.
Já tinha perguntado isso e você foi quem deu melhor resposta!!! :lol:
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)