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
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