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
Mario, si le omites la linea de STYLE(... te funciona.
Saludos.
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 oWndFrancisco:
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
Mario, también puedes intentarlo así:
//----------------
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
gracias Francisco
Mario, corrijo... úsalo en ON PAINT
Saludos.
OK
DEFINE WINDOW oWnd1 MDICHILD OF oWnd BRUSH oBrush1 ICON "A_ICONO1";
TITLE "Ingreso manual de comprobantes";
BORDER NONE NOMAXIMIZE
ACTIVATE WINDOW oWnd1;
VALID(.f.)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
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