ventanas en 2d
Posted: Mon Jun 12, 2006 11:23 am
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
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