Amigos,
Estoy realizando un prueba de poder marcar dentro de un TPanel una linea
pero a nivel de Pixel, mejor dicho quiero dibujar algo a nivel de pixel
dentro, alguien tendra una idea como realizar ese marcado.
Por ejemplo, creo un form, de alli un tpanel y a nivel codigo creare una
linea pero pintando el pixel de color.
Espero se me entendida.
Gracias.
FG
In order for this site to work correctly we need to store a small file (called a cookie) on your computer. Most every site in the world does this, however since the 25th of May 2011, by law we have to get your permission first. Please abandon the forum if you disagree.
Para que este foro funcione correctamente es necesario guardar un pequeño fichero (llamado cookie) en su ordenador. La mayoría de los sitios de Internet lo hacen, no obstante desde el 25 de Marzo de 2011 y por ley, necesitamos de su permiso con antelación. Abandone este foro si no está conforme.
Para que este foro funcione correctamente es necesario guardar un pequeño fichero (llamado cookie) en su ordenador. La mayoría de los sitios de Internet lo hacen, no obstante desde el 25 de Marzo de 2011 y por ley, necesitamos de su permiso con antelación. Abandone este foro si no está conforme.
Pintar pixel sobre un TPanel
-
Fredy Gonzales
- Mensajes: 56
- Registrado: Jue Ene 08, 2009 5:40 pm
Pintar pixel sobre un TPanel
Fredy,
> Por ejemplo, creo un form, de alli un tpanel y a nivel codigo creare una
> linea pero pintando el pixel de color.
Añade este código al evento OnClick de un botón:
METHOD Button1Click( oSender ) CLASS ...
LOCAL hDC := GetDC( ::oPanel1:Handle )
LOCAL nY := ::oPanel1:nHeight / 2
LOCAL hPen := CreatePen( PS_SOLID, 1, clRed )
SelectObject( hDC, hPen )
MoveTo( hDC, 0, nY )
LineTo( hDC, ::oPanel1:nWidth, nY )
ReleaseDC( ::oPanel1:Handle, hDC )
RETURN Nil
Esto dibujará (no lo he probado) una línea roja horizontal en medio del panel.
Debes tener en cuenta una cosa, tal como está hecho el ejemplo si pones
otro formulario encima la línea desaparecerá.
Saludos,
José Lalín
> Por ejemplo, creo un form, de alli un tpanel y a nivel codigo creare una
> linea pero pintando el pixel de color.
Añade este código al evento OnClick de un botón:
METHOD Button1Click( oSender ) CLASS ...
LOCAL hDC := GetDC( ::oPanel1:Handle )
LOCAL nY := ::oPanel1:nHeight / 2
LOCAL hPen := CreatePen( PS_SOLID, 1, clRed )
SelectObject( hDC, hPen )
MoveTo( hDC, 0, nY )
LineTo( hDC, ::oPanel1:nWidth, nY )
ReleaseDC( ::oPanel1:Handle, hDC )
RETURN Nil
Esto dibujará (no lo he probado) una línea roja horizontal en medio del panel.
Debes tener en cuenta una cosa, tal como está hecho el ejemplo si pones
otro formulario encima la línea desaparecerá.
Saludos,
José Lalín