11 respuestas en este tema

[seoane]

Obtener el color de un pixel de la pantalla:

delphi

function ColorPixel(P: TPoint): TColor;
var
  DC: HDC;
begin
  DC:= GetDC(0);
  Result:= GetPixel(DC,P.X,P.Y);
  ReleaseDC(0,DC);
end;

Por ejemplo:

delphi

var
  P: TPoint;
begin
  GetCursorPos(P);
  Color:= ColorPixel(P);
end;

[felipe]

Esta bueno, ¿se obtienen en hexadecimal, RGB...?


Saludos!

[seoane]

El valor que se obtiene es compatible con el tipo TColor de Delphi, es decir es un entero con el siguiente formato: 0x00bbggrr

[egostar]

Con tu permiso amigo seoane

delphi

var
  P: TPoint;
  R,G,B: integer;
begin
  GetCursorPos(P);
  Color:= ColorPixel(P);
  R := Color and $ff;
  G := (Color and $ff00) shr 8;
  B := (Color and $ff0000) shr 16;
  ShowMessage(format('(%d,%d,%d)',[R,G,B]));
end;

Código RGB obtenido de Delphi3000.com

Salud OS

[felipe]

Bien, ahora me queda mucho más claro


Saludos!

[Delphius]

Y digo yo... ¿para que "complicarse" con operaciones a nivel bits cuando ya hay una función que convierte TColor a RGB y además que puede descomponerse empleando de forma directa, una vez devuelto por GetPixel, con la API? 

Véase: ColorToRGB, GetRValue, GetGValue y GetBValue... que por cierto, no hay necesidad de añadir ninguna unidad... todo esto puede encontrarse en la misma unidad en donde está declarada GetDC y GetPixel: la unidad Windows que ya está por defecto añadida. 

Saludos,

[egostar]

Y digo yo... ¿para que "complicarse" con operaciones a nivel bits cuando ya hay una función que convierte TColor a RGB y además que puede descomponerse empleando de forma directa, una vez devuelto por GetPixel, con la API? 

Pues como para que..... para verme mas inteligente que los demás

Véase: ColorToRGB, GetRValue, GetGValue y GetBValue... que por cierto, no hay necesidad de añadir ninguna unidad... todo esto puede encontrarse en la misma unidad en donde está declarada GetDC y GetPixel: la unidad Windows que ya está por defecto añadida. 

Saludos,

Ya me estaba preparando para los golpes bajos , debía haber una función que lo hiciera, solo que por vago no la busqué

Salud OS

[Delphius]

Pues como para que..... para verme mas inteligente que los demás

Ya saltó el ego 

Ya me estaba preparando para los golpes bajos , debía haber una función que lo hiciera, solo que por vago no la busqué

Salud OS

Seguramente ya en una anterior ocasión habías utilizado las funciones GetXValue... y no recordabas su existencia.

Yo me las acuerdo porque las ví hace un tiempo cuando alguien comentó en CD y como que nunca abandoné lo de tratamiento de imagen y me gusta es que se me quedó en la cabeza. Lo que no recordaba bien era el tipo de dato del parámetro... siempre me confundo si es un TColor o un RGB.

Saludos,

[escafandra]

Me recuerda a una pregunta de otro foro en la que peían ayuda para conocer el color de un punto de una ventana y que contesté así: 

cpp

   TPoint P;
   GetCursorPos(&P);
   HWND hWnd = WindowFromPoint(P);
   ::ScreenToClient(hWnd, &P);
   HDC DC = GetDC(hWnd);
   COLORREF Color = GetPixel(DC, P.x, P.y);
   ReleaseDC(hWnd, DC);

Saludos.

[seoane]

Me recuerda a una pregunta de otro foro en la que peían ayuda para conocer el color de un punto de una ventana y que contesté así: 

Que casualidad 

Por cierto, ¿por qué usas en handle de una ventana en vez de usar el 0?

[escafandra]

Por cierto, ¿por qué usas en handle de una ventana en vez de usar el 0?

Porque preguntaban la localización del color de un pixel en una ventana. Aunque usando 0 para localizar el HDC es suficiente, preferí mostrar en el ejemplo como localizar la ventana con la posición del ratón y tras esto crear el HDC de esa ventana para entontrar el color del pixel.

El ejemplo se complica un poco pero muestra varias cosas. 

Saludos.

[egostar]

Por cierto, ¿por qué usas en handle de una ventana en vez de usar el 0?

Porque preguntaban la localización del color de un pixel en una ventana. Aunque usando 0 para localizar el HDC es suficiente, preferí mostrar en el ejemplo como localizar la ventana con la posición del ratón y tras esto crear el HDC de esa ventana para entontrar el color del pixel.

El ejemplo se complica un poco pero muestra varias cosas. 

Saludos.

Siempre es interesante y educativo leer discusiones de los que si saben

Salud OS