Ventana Maximidada

[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

[FranciscoA]

Mario, si le omites la linea de STYLE(... te funciona.
Saludos.

[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

[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

[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

[MarioG]

gracias Francisco

[FranciscoA]

Mario, corrijo... úsalo en ON PAINT
Saludos.

[MarioG]

OK

[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.

[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

[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