Page 1 of 1

Dibujar cuadrado y linea

Posted: Fri Jun 22, 2007 3:14 pm
by 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

Posted: Fri Jun 22, 2007 6:13 pm
by 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

Posted: Fri Jun 22, 2007 6:19 pm
by Armando
Jaime:

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

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

Saludos

Posted: Sat Jun 23, 2007 9:45 am
by 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