FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin para Harbour/xHarbour Dibujar cuadrado y linea
Posts: 114
Joined: Fri Nov 24, 2006 09:03 PM
Dibujar cuadrado y linea
Posted: Fri Jun 22, 2007 03: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

Posts: 3358
Joined: Fri Oct 07, 2005 08:20 PM
Dibujar cuadrado y linea
Posted: Fri Jun 22, 2007 06: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
Posts: 3358
Joined: Fri Oct 07, 2005 08:20 PM
Dibujar cuadrado y linea
Posted: Fri Jun 22, 2007 06:19 PM

Jaime:

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

http://www.mediafire.com/imageview.php? ... guthumb=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
Posts: 498
Joined: Thu May 10, 2007 08:30 PM
Dibujar cuadrado y linea
Posted: Sat Jun 23, 2007 09: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

Peaaaaaso de foro...

FWH 2007 - xHarbour - BCC55

Continue the discussion