Dibujar cuadrado y linea

[jacgsoft]

Alguien sabe la funcion que me permita dibujar un cuadrado o rectangulo dentro de un Dialog o Window, y tambien como dibujar una linea o separador?

Alguien tiene un ejemplo?


Att.

Jaime

[Armando]

Jaime:

Dale una mirada a estas funciones

Rectangle( oDlg:hDC, nTop,nLeft,nBottom,nRight)
MoveTo(oDlg:hDC, nLeft, nTop - 6)
LineTo(oDlg:hDC, nLeft + nWidth, nTop - 6)

Saludos

[Armando]

Jaime:

Aquí tienes una imagen para ver si es lo que necesitas

http://www.mediafire.com/imageview.php? ... gu&thumb=4

Saludos

[antolin]

Para dibujar lineas, rectángulos, etc. Lo mejor es meterlos en una function a la que llames con oDlg:bPainted := { |hDc| MiFuncion(hDc,...) }
El hDc es fundamental, si no lo llamas desde el bPainted debes activarlo/desactivarlo con oDlG:GetDc() / oDlg:ReleaseDc().
Espero te sea de ayuda.
Saludos