Dibujar cuadrado y linea

Dibujar cuadrado y linea

Postby jacgsoft » Fri Jun 22, 2007 3:14 pm

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
User avatar
jacgsoft
 
Posts: 105
Joined: Fri Nov 24, 2006 9:03 pm
Location: Lima - Peru

Postby Armando » Fri Jun 22, 2007 6:13 pm

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
SOI, s.a. de c.v.
estbucarm@gmail.com
http://www.soisa.mex.tl/
http://sqlcmd.blogspot.com/
Tel. (722) 174 44 45
Carpe diem quam minimum credula postero
User avatar
Armando
 
Posts: 3235
Joined: Fri Oct 07, 2005 8:20 pm
Location: Toluca, México

Postby Armando » Fri Jun 22, 2007 6:19 pm

Jaime:

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

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

Saludos
SOI, s.a. de c.v.
estbucarm@gmail.com
http://www.soisa.mex.tl/
http://sqlcmd.blogspot.com/
Tel. (722) 174 44 45
Carpe diem quam minimum credula postero
User avatar
Armando
 
Posts: 3235
Joined: Fri Oct 07, 2005 8:20 pm
Location: Toluca, México

Postby antolin » Sat Jun 23, 2007 9:45 am

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
antolin
 
Posts: 498
Joined: Thu May 10, 2007 8:30 pm
Location: Sevilla


Return to FiveWin para Harbour/xHarbour

Who is online

Users browsing this forum: gmart1, Google [Bot] and 67 guests