Abrir maximizado

[celo.michels]

Como faço para a ao abrir o sistema a tela principal ficar maximizada?

Hoje a tela ja abre maximizada mas quando monto o menu e faço
:run(,,.t.)
a tela é restaurada.
isso com a WvwTools

[Luciano Bonfim]

Amigo ,

esse assunto já foi muito debatido por aqui, vai em busca!!!

[celo.michels]

ja fiz isso mas só me listou 3 topicos relacionados para xharbour e nesses ou fala GTwvw ou diz que a solução é a mesma que estou fazendo.
e tb nao que que minha tela seja redimencionada para o tamanho comose estivesse maximizada. O Negocio é maximizar de verdade.

[celo.michels]

Resolvido o Problema assim no TWindows.prg

Código: Selecionar todos

METHOD Activate( lCycle, lNoKeys, alGetList ) CLASS WvW_tWindow
//****
   LOCAL nKey
   DEFAULT lCycle TO .T., lNoKeys TO .F.
   //
   ::Create()
   SetColor( ::ColorSpec )
   ::SetCursor( .F. )
   //
   ::lQuitWindow := .F.
   IF ( ::hContextMenu != NIL )
      WvW_SetPopupMenu( ::nHandle, ::hContextMenu )
   ENDIF
   ::DrawGuiObjects()
   ::DrawStatusBar()

   IF ( ::lMainWin )
      Wvw_maximize(0) // Esse é o cara que faz a Tela abrir Maximizada.
      F_VKEYBOARD( VK_MENU, 0x080 )
      WHILE ! ::lQuitWindow
         nSEL := 1         
         ::ApplyKey( nKey := Inkey( 0.150 ) )
         //F_VKEYBOARD( VK_MENU, 0x080 )
      ENDDO
   ELSE
      IF     ! EMPTY( ::GetList )
         WvW_ReadModal( ::GetList, ::nObject,, lCycle, ;
               lNoKeys, ::aKeys, ::bWhenBlock, ::bValidBlock, ::bCheckBlock, ::nTimeOut,,self )
      ELSEIF HB_ISARRAY( alGetList )
         WvW_ReadModal( alGetList, ::nObject,, lCycle, ;
               lNoKeys, ::aKeys, ::bWhenBlock, ::bValidBlock, ::bCheckBlock, ::nTimeOut,,self )
      ELSEIF ! EMPTY( GetList )
         WvW_ReadModal( GetList, ::nObject,, lCycle, ;
               lNoKeys, ::aKeys, ::bWhenBlock, ::bValidBlock, ::bCheckBlock, ::nTimeOut,,self )
      ENDIF
   ENDIF
   //
   RETURN Self

[matrix]

só incremenando um pouco, digamos que eu use:
wvw_SetWindowCentre(0,.T.) // Centraliza telas do Windows
wvw_SetCodePage(,255)
wvw_SetFont( "Courier",30,24) // ("tp. letra",lin,col)
wvw_enablemaximize(0, .T.) // (nr. da janela, habilita botão maximizar)

pra 800x600 blz, funciona legal, mas e pra mudar pra 1024 já fica nn canto o sistema dentro da jaela,

como fazer???

[sygecom]

Matrix, não seria o caso de vereficar a resolução antes e depois ajustar o tamanho da fonte !!!

[matrix]

pois é, existe um comando/função que faça essa verificação pra depois poder definir o tamanho da fonte etc....

[sygecom]

Exemplo abaixo:

Código: Selecionar todos

#include "GTINFO.ch"

do case  // Identifica a resolucao do video
   case Gtinfo(GTI_DESKTOPWIDTH) > 1023
        Gtinfo(GTI_FONTWIDTH, 12) 
        Gtinfo(GTI_FONTSIZE, 27)  
   case Gtinfo(GTI_DESKTOPWIDTH) > 799
        Gtinfo(GTI_FONTWIDTH, 10 ) 
        Gtinfo(GTI_FONTSIZE, 22 )  
   otherwise
        Gtinfo(GTI_FONTWIDTH, 8)
        Gtinfo(GTI_FONTSIZE, 17)
endcase

[matrix]

pra essas duas resoluções funcionando blza,

abração.