MrChez

Churc, obrigado pela atenção, mas não entendi muito bem o seu código.... o código é bem avançado e eu preciso algo + simples, tvz por isso não consegui entender! pelo que entendi, você tem todos os valores juntos, mas eu preciso do valor de cada item, um para cada cor. não sei c fui bem claro.... Abraço Churc, dá uma olhada nisso: procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); var msg : string; begin msg := ''; msg := 'Red: ' + IntToStr(GetRValue(Image1.Canvas.Pixels[X,Y])); msg := msg + ' || Green: ' + IntToStr(GetGValue(Image1.Canvas.Pixels[X,Y])); msg := msg + ' || Blue: ' + IntToStr(GetBValue(Image1.Canvas.Pixels[X,Y])); form1.caption := msg; end; É um TImage que carrega uma imagem. Coloqei os valores no título do form só pra ver eles mudando. C algum dia alguém + precisar d algo parecido, tá aí uma contribuição pro fórum ;) Agora preciso transformar esses valores em hexadecimal. E depois alterar o valor do pixel da imagem. C tiver alguma coisa que possa me ajudar, fico agradecido! Abraço

Boa tarde Pessoal! Preciso "pegar" os valores RGB de um pixel em determinada imagem, mas atualmente apenas consigo o valor em números. Tentei usar canvas, mas não obtive o resultado esperado! Tem alguma forma para obter esses valores separados? Tem como alterar esses valores depois? Pois tenho que mudar a cor do pixel conforme pedido do usuário! muito obrigado!