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
Como realizar varios Rectangulos
Como realizar varios Rectangulos
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.
Carlos Blas Fernández Domínguez
Tlfo: 645847093
E-Mail: carlos@colthop.es
Nunca se termina de aprender, por eso necesito siempre ayuda.
Re: Como realizar varios Rectangulos
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
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
Impresion de todos los formularios del Seniat, Dian
alex_patino74@hotmail.com
whatsapp 57+3214777217