F�rum C�digo da Cores #283578

01/06/2005

Camaradas
Voc� pode especificar uma cor digitando o c�digo em hexa ou rgb no delphi. Minha quest�o � a seguinte:
Imaginem que eu tenha uma imagem em tons de cinza com as 256 varia��es, algu�m tem alguma id�a de como eu posso fazer para converter cada um dos tons de cinza em porcentagem de preto que ela cont�m atrav�s de um algoritmo.
Eu selecionaria um pixel da imagem e retornaria a porcentagem de preto.
com em rgb os tons de cinza tem os mesmos valores para r,g e b, por exemplo um cinza a 50� rgb(128,128,128) se eu descobrisse como se obtem o valor de uma das cores isso j� possibilitaria fazer esta conves�o.
Valeu pela for�a,

:[

Morcego

Curtir t�pico

+ 0

Responder

Post mais votado

01/06/2005

Para obter o valor das componentes R, G e B de um TColor, use as fun��es GetRValue, GetGValue e GetBValue da API do Windows:

var
  R, G, B: Byte;
  C: TColor;
...
  R := GetRValue(C);
  G := GetGValue(C);
  B := GetBValue(C);

Usando sua sugest�o, a porcentagem de preto seria...

function PorcentagemPreto(C: TColor): Double;
var
  R: Byte;
begin
  R := GetRValue(C);
  Result := 100 * (255 - R) / 255;
end;

Lembrando que preto = TColor(0).

Massuda

Responder

Gostei + 1