Page 1 of 1

ventanas en 2d

Posted: Mon Jun 12, 2006 11:23 am
by colthop
Hola amigos y gracias por los consejos que me disteis en mi última pregunta.

La presente difilcutad es la siguiente, pongo el comando set _3DLOOK on al principio de la aplicación para que aparezca en 3D. Las ventanas que aparecen con comandos MSGinfo y similares si aparecen en 3D pero las WINDOWS y los DIALOG no aparecen en 2D o planas sin ese pequeño relieve que le hace más atractivo a la vista.
Por si os sirve las declaro asi.

DEFINE WINDOW oDlgw MDICHILD OF oVentPrinc FROM 0, 0 TO 20,99 TITLE "Gestión de Empresas" COLOR RGB (0,0,255), RGB (225,225,225) MENU menuempr() NOICONIZE NOMAXIMIZE STYLE WS_BORDER

...
...

ACTIVATE WINDOW oDlgw NORMAL

DEFINE DIALOG ModiCu OF oDlgw FROM 0,0 TO 8,28 TITLE titucuen COLOR RGB (255,0,0), RGB (225,225,225) STYLE WS_BORDER

...
...

ACTIVATE DIALOG ModiCu CENTER

Si alguien puede ayudarme para que estas tambien salga en relieve les agradecería la ayuda.

Carlos

Posted: Wed Jun 14, 2006 7:42 am
by Antonio Linares
Carlos,

No uses la cláusula STYLE WS_BORDER al crear el diálogo. Debería verse bien.

Si los diálogos los creas desde recursos, añádele el valor 4 al estilo.

Posted: Thu Jun 15, 2006 9:00 pm
by manuramos
Si quieres seguir con el STYLE tiene que poner STYLE nOr(WS_BORDER)