Como realizar varios Rectangulos

[colthop]

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

[QAZWSX2K]

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