Hola ultimamente he estado investigando sobre la api getpixel pero casi no encuentro informacion y ejemplos ps alguien me podria ayudar con algun ejemplo o un codigo simple de dibujar en la pantlla. Un ejemplo: dibujar un texto en una X coordenada.
Seria una gran ayuda y avanze,Saludos.
Dibujar pantalla con GetPixel
Comenzado por
BrainDeath
, dic 28 2009 11:52
3 respuestas en este tema
#1
Escrito 28 diciembre 2009 - 11:52
#2
Escrito 29 diciembre 2009 - 06:08
Realmente GetPixel no sirve para pintar un texto, sólo devuelve el color de un pixel de un determinado hDC. El hDC es mas o menos el equivalente al Canvas pero desde el punto de vista de la API.
Para dibujar un texto puedes usar TexOut, como en este ejemplo que dibuja un texto en la pantalla en las coordenadas (0, 0).
Saludos.
Para dibujar un texto puedes usar TexOut, como en este ejemplo que dibuja un texto en la pantalla en las coordenadas (0, 0).
delphi
program PruebaTextOut; uses SysUtils, windows; var hDC: Thandle; begin hDC:= GetDC(0); TextOut(hDC, 0, 0, 'TextOut', 7); ReleaseDC(0, hDC); Sleep(3000); end.
Saludos.
#3
Escrito 29 diciembre 2009 - 12:02
Realmente GetPixel no sirve para pintar un texto, sólo devuelve el color de un pixel de un determinado hDC. El hDC es mas o menos el equivalente al Canvas pero desde el punto de vista de la API.
Para dibujar un texto puedes usar TexOut, como en este ejemplo que dibuja un texto en la pantalla en las coordenadas (0, 0).
delphi
program PruebaTextOut; uses SysUtils, windows; var hDC: Thandle; begin hDC:= GetDC(0); TextOut(hDC, 0, 0, 'TextOut', 7); ReleaseDC(0, hDC); Sleep(3000); end.
Saludos.
Muchas Gracias me ha funcionado de maravilla ya me he dado cuenta que la api tiene varias propiedades y una de esas es TextOut pero una ultima duda como le puedo cambiar sus propiedades al texto como su tamaño,color etc..
#4
Escrito 29 diciembre 2009 - 06:29
..pero una ultima duda como le puedo cambiar sus propiedades al texto como su tamaño,color etc..
Aquí tienes otro ejemplo sólo con API:
delphi
program PruebaTextOut2; uses SysUtils, Graphics, Windows; var hDC: Thandle; begin hDC:= GetDC(0); SetBkColor(hDC, ColorToRGB(clYellow)); SetTextColor(hDC, ColorToRGB(clRed)); SelectObject(hDC, CreateFont(20,20, 0,0,FW_NORMAL,0,0,0, ANSI_CHARSET,0,0,0,DEFAULT_PITCH, nil)); TextOut(hDC, 0, 0, 'TextOut', 7); ReleaseDC(0, hDC); Sleep(3000); end.
Saludos.