FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin para Harbour/xHarbour Como realizar varios Rectangulos
Posts: 505
Joined: Sat Apr 22, 2006 09:09 AM
Como realizar varios Rectangulos
Posted: Fri May 08, 2009 10:13 AM

Hola amigos:

Quiero pintar varios rectangulos en una ventana y he conseguido pintar uno con:

oDlgw:bPainted := { |hDc| rectangle (hDC, 50, 50, 200, 200,oPen)}

y defino oPen con

DEFINE PEN oPen COLOR RGB (0,0,255)

Pero no consigo que cambie el color del rectagulo y cuando pinto dos el unico que se ve es el Ășltimo.

Me podeis ayudar y decirme como puedo cambiar de color y como pintar dos rectangulos en la ventana.

Un saludo

Carlos

Colt Hop ED, S.L.
Carlos Blas FernĂĄndez DomĂ­nguez
Tlfo: 645847093
E-Mail: carlos@colthop.es

Nunca se termina de aprender, por eso necesito siempre ayuda.
Posts: 364
Joined: Tue Oct 25, 2005 07:06 PM
Re: Como realizar varios Rectangulos
Posted: Mon May 11, 2009 02:51 PM

saludos, busca la clase tsline, creo viene con tsbutton, existe varias funciones utiles sin tener que definir pen, etc

ejemplo

@ 1,1 WHITE BOX SIZE 25,25 OF oDlg PIXEL COLORS CLR_BLUE, CLR_BLUE

Software especializado para oficinas contables con grandes volumenes de Informacion
Impresion de todos los formularios del Seniat, Dian

alex_patino74@hotmail.com
whatsapp 57+3214777217

Continue the discussion