Xailer & OZ Software

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

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