Tamanho da Fonte

[Hasse]

Boa tarde colegas.

Na MiniGui, e PRG abaixo (ver perguntas abaixo do PRG):

Código: Selecionar todos

   DEFINE WINDOW Form_1 ;
      AT 0,0 ;
      WIDTH 640 HEIGHT 480 ;
      TITLE 'MiniGUI Browse1 Demo' ;
      MAIN NOMAXIMIZE ;
      ON INIT OpenTables() ;
      ON RELEASE CloseTables()

      DEFINE MAIN MENU 
         POPUP 'File'
            ITEM 'Set Browse Value' ACTION Form_1.Browse_1.Value := Val ( InputBox ('Set Browse Value','') )
            ITEM 'Get Browse Value' ACTION MsgInfo ( Str ( Form_1.Browse_1.Value ) )
            ITEM 'Refresh Browse'   ACTION Form_1.Browse_1.Refresh
            SEPARATOR
            ITEM 'Exit'    ACTION Form_1.Release
         END POPUP
         POPUP 'Help'
            ITEM 'About'      ACTION MsgInfo ("MiniGUI Browse Demo") 
         END POPUP
      END MENU

      DEFINE STATUSBAR
         STATUSITEM ''
      END STATUSBAR

      DEFINE TAB Tab_1 ;
         AT 0,10 ;
         WIDTH 600 ;
         HEIGHT 400 ;
         VALUE 1 ;
         TOOLTIP 'Tab Control' ;
            ON CHANGE ( DoMethod ( 'Form_1' , 'Browse_' + Ltrim( Str( Form_1.Tab_1.Value ) ) , 'SetFocus' ), ;
            DoMethod ( 'Form_1' , 'Browse_' + Ltrim( Str( Form_1.Tab_1.Value ) ) , 'Refresh' ) , ChangeTest() )

         PAGE 'Page 1'

            @ 40,20 BROWSE Browse_1 ;
               WIDTH 560 ;
               HEIGHT 340 ;  
               HEADERS { 'Code' , 'First Name' , 'Last Name', 'Birth Date', 'Married' , 'Biography' } ;
               WIDTHS { 150 , 150 , 150 , 150 , 150 , 150 } ;
               WORKAREA &var ;
               FIELDS { 'Test->Code' , 'Test->First' , 'Test->Last' , 'Test->Birth' , 'Test->Married' , 'Test->Bio' } ;
               TOOLTIP 'Browse Test' ;
               ON CHANGE ChangeTest() ;
               JUSTIFY { BROWSE_JTFY_LEFT,BROWSE_JTFY_CENTER, BROWSE_JTFY_CENTER, BROWSE_JTFY_CENTER,BROWSE_JTFY_CENTER,BROWSE_JTFY_CENTER} ;
               DELETE ;
               LOCK ;
               EDIT INPLACE 
         END PAGE

1-Como se seta a fonte e seu tamanho somente para o título da janela (neste caso 'MiniGUI Browse1 Demo' ) ?

2-Idem para as opções de menu (neste caso "File" e "Help") ?

3-Idem para STATUSBAR ?

4-Idem para o título das abas (neste caso, "Tab_1")"?

5-Idem para o header do browse (neste caso, { 'Code' , 'First Name' , 'Last Name', 'Birth Date', 'Married' , 'Biography' }) ?

6-Idem para o texto dos diversos TOOLTIP ?

Tentei várias opções com FONT "cFonte" SIZE nFonte, mas sempre o resultado era de forma global e nunca de forma individual.

[JAIR RANGEL]

Olá, Hasse !

Tente o seguinte: Carregue a IDE MiniGUI. Em seguida crie um FORM.
Verifique as propriedades existentes para configuração do FORM.
Lá vc vai encontrar os nomes de todas as propriedades disponíveis para o FORM.
Veja também a guia EVENTOS. Com todos os EVENTOS possíveis para o FORM.

Espero ter ajudado !

Jair Rangel
Harbour+MiniGUI

[Hasse]

Bom dia Jair.

Vou verificar, e no caso de qualquer dúvida volto ao contato.

Obrigado.

[Hasse]

Boa tarde colegas, especialmente para o Jair.

Fiz exaustivos testes, porém não consegui modificar o tamanho da fonte do menu principal. Veja o exemplo:

Código: Selecionar todos

DEFINE WINDOW TEMPLATE AT 170 , 234 WIDTH 745 HEIGHT 489 TITLE "Hello" FONT "Tahoma" SIZE 14

Está definida a Fonte e o seu tamanho. Estes valores só aparacem nos itens seguintes ao menu, como TEXTBOX, BUTTONEX, LABEL e outros.

Não tive êxito na mudança da fonte e tamanho do Menu Principal, e mesmo nos seus popup's.

Eventualmente isto poderia ser feito no PRG que "chama" o FMG com o DEFINE WINDOW TEMPLATE ? Se for assim, não descobri ainda como se faz isto.

Alguém tem uma idéia