Page 1 of 1
Ventana Maximidada
Posted: Tue Oct 26, 2010 3:18 pm
by MarioG
Gente;
Tengo una ventana definida así:
DEFINE WINDOW soWnd MDI ICON soIco ;
STYLE nOR( WS_SYSMENU, , WS_MINIMIZEBOX )
ACTIVATE WINDOW soWnd MAXIMIZED
De esta manera al ventana ocupa toda la dimensión de la pantalla. Lo que pretendo es que no tape la barra de Inicio de Windows
Como lo hago?
muchas gracias
Re: Ventana Maximidada
Posted: Tue Oct 26, 2010 5:39 pm
by FranciscoA
Mario, si le omites la linea de STYLE(... te funciona.
Saludos.
Re: Ventana Maximidada
Posted: Tue Oct 26, 2010 7:39 pm
by acuellar
Mario Intenta asi:
Code: Select all
local aCoor:= GetCoors( GetDesktopWindow() )
local nDWTop:= aCoor[1], nDWLeft:= aCoor[2], nDWBottom:= aCoor[3], nDWRight:= aCoor[4]
IF aCoor[3] > 480
nDWBottom:= aCoor[3] - 30
ENDif
DEFINE WINDOW oWnd FROM nDWTop, nDWLeft TO nDWBottom, nDWRight PIXEL TITLE "Maximizada"
...
ACTIVATE WINDOW oWnd
Saludos,
Adhemar
Re: Ventana Maximidada
Posted: Tue Oct 26, 2010 9:09 pm
by MarioG
Francisco:
Si omito el Style no tengo el efecto que pretendo, que el boton Restaurar aparezca deshabilitado.
Como verás estoy dando solo la opción de minimizar y, como recordarás dias pasados preguntaba como inhibir el boton cerrar [X], que lo haré deasde el valid, como me sugirió Antonio.
Adhemar:
buena propuesta
Saludos y gracias a ambos
Re: Ventana Maximidada
Posted: Tue Oct 26, 2010 11:43 pm
by FranciscoA
Mario, también puedes intentarlo así:
#define SM_CXSCREEN 0
#define SM_CYSCREEN 1
//----------------
Function Main()
local nWidthRes := GetSysMetrics(SM_CXSCREEN)
local nHeightRes := GetSysMetrics(SM_CYSCREEN)
DEFINE WINDOW oWnd MDI ;
STYLE nOR( WS_SYSMENU, , WS_MINIMIZEBOX )
ACTIVATE WINDOW oWnd MAXIMIZED ;
ON INIT ( oWnd:SetSize(nWidthRes,nHeightRes) )
Saludos.
return nil
Re: Ventana Maximidada
Posted: Tue Oct 26, 2010 11:49 pm
by MarioG
gracias Francisco
Re: Ventana Maximidada
Posted: Tue Oct 26, 2010 11:50 pm
by FranciscoA
Mario, corrijo... úsalo en ON PAINT
Saludos.
Re: Ventana Maximidada
Posted: Wed Oct 27, 2010 12:01 am
by MarioG
OK
Re: Ventana Maximidada
Posted: Wed Oct 27, 2010 12:54 am
by jrestojeda
Hola amigo...
No se si es lo que querés hacer....
Pero de esa forma obtengo este resultado.
Code: Select all
DEFINE WINDOW oWnd1 MDICHILD OF oWnd BRUSH oBrush1 ICON "A_ICONO1";
TITLE "Ingreso manual de comprobantes";
BORDER NONE NOMAXIMIZE
ACTIVATE WINDOW oWnd1;
VALID(.f.)
Esta ventana no responde al boton de cerrar [X], es decir, se puede precionar pero no hace nada.
Como dije antes, no se si es lo que necesitas hacer.
Espero te sirva.
Re: Ventana Maximidada
Posted: Wed Oct 27, 2010 1:35 am
by MarioG
Hola Esteban
Todo sirve, lo voy a probar (aunque en principio pretendo una ventana que ocupe todo la pantalla, excepto, como dije antes, la barra de Inicio de Win)
gracias
Re: Ventana Maximidada
Posted: Wed Oct 27, 2010 7:22 am
by SantaCroya
Intentalo de esta forma
Code: Select all
Local aCoors := GetCoors( FindWindow("Shell_TrayWnd","") ) // Saber la Posicion de la Barra de Tareas
DEFINE WINDOW oWnd TITLE "RibbonBar Test " + FWVERSION ;
FROM 0, 0 TO aCoors[1]-1, aCoors[4] PIXEL ;
MDI MENU oMenu