HMGS não gera o menu com o Underline

Projeto MiniGui - Biblioteca visual para Harbour/xHarbour

Moderador: Moderadores

Avatar do usuário
rubens
Colaborador
Colaborador
Mensagens: 1520
Registrado em: 16 Ago 2003 09:05
Localização: Nova Xavantina - MT

HMGS não gera o menu com o Underline

Mensagem por rubens »

Olá...

Quando gero um menu no formulário a HMGS não gera o menu com o underline. Mas quando é gerado direto no código gera normalmente.
Como fazer para gerar via formulário...?
O Formulário em questão está no projeto da pasta: C:\MiniGUI\IDE\SAMPLES\MENU

Formulário com o & para selecionar a letra em destaque na opção do menu:

Código: Selecionar todos

*MiniGUI-IDE - experimental MiniGui Ide (form designer/code generator/builder)
*Revised/Extended version based upon HMGS-MINIGUI-IDE by Walter Formigoni 
*------------------------------------------------------------------------
DEFINE WINDOW TEMPLATE AT 190 , 423 WIDTH 507 HEIGHT 374 TITLE "Menu Test" MAIN NOMAXIMIZE NOSIZE

DEFINE MAIN MENU
        DEFINE POPUP "&File"                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                            
            MENUITEM "&Open" ACTION MsgInfo("Open") IMAGE "info.bmp"                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                    
            MENUITEM "&Save" ACTION MsgInfo("Save") IMAGE "free.bmp"                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                    
            SEPARATOR                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                   
            MENUITEM "&Exit" ACTION ThisWIndow.Release IMAGE "exit.bmp"                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
        END POPUP                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                       
        DEFINE POPUP "Help"                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                             
            MENUITEM "About" ACTION MsgInfo("HMG IDE - Menu Designer")                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                  
        END POPUP                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                       
    END MENU                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                            

     DEFINE BUTTON Button_1
            ROW    260
            COL    140
            WIDTH  100
            HEIGHT 28
            CAPTION "Button_1"
     END BUTTON  

     DEFINE BUTTON Button_2
            ROW    260
            COL    250
            WIDTH  100
            HEIGHT 28
            CAPTION "Button_2"
     END BUTTON  

     DEFINE DATEPICKER DatePicker_1
            ROW    40
            COL    360
            WIDTH  120
            HEIGHT 24
            VALUE CTOD(" / / ")
     END DATEPICKER 

     DEFINE LABEL Label_1
            ROW    20
            COL    40
            WIDTH  120
            HEIGHT 24
            VALUE "Label_1"
     END LABEL  

     DEFINE BROWSE Browse_1
            ROW    70
            COL    50
            WIDTH  120
            HEIGHT 120
            WIDTHS {0}
            HEADERS {''}
            WORKAREA NIL
            FIELDS {''}
     END BROWSE  

END WINDOW
Formulário:
test.rar
(779 Bytes) Baixado 48 vezes
Obrigado
Rubens
"Eu e minha casa servimos ao Senhor e você ???"
Avatar do usuário
Toledo
Administrador
Administrador
Mensagens: 3133
Registrado em: 22 Jul 2003 18:39
Localização: Araçatuba - SP
Contato:

HMGS não gera o menu com o Underline

Mensagem por Toledo »

Olá Rubens, abri o projeto MENU na IDE e inclui o & nas opções do menu, depois compilei e funcionou certinho.
menu_underline.jpg
menu_underline.jpg (13.69 KiB) Exibido 504 vezes
Qual é a versão da sua MiniGui?

Testei aqui com a MiniGui Extended 2.4.6

Abraços,
Toledo - Clipper On Line
toledo@pctoledo.com.br
Harbour 3.2/MiniGui/HwGui
Faça uma doação para o fórum, clique neste link: http://www.pctoledo.com.br/doacao
Avatar do usuário
rubens
Colaborador
Colaborador
Mensagens: 1520
Registrado em: 16 Ago 2003 09:05
Localização: Nova Xavantina - MT

HMGS não gera o menu com o Underline

Mensagem por rubens »

Bom dia Toledo...

Mas você só compilou o código ou gerou ele como um formulário?
Porque quando compilo como código aparece também... mas quando jogo esse código em formulário ele não aparece o underline...

Rubens
"Eu e minha casa servimos ao Senhor e você ???"
Avatar do usuário
Toledo
Administrador
Administrador
Mensagens: 3133
Registrado em: 22 Jul 2003 18:39
Localização: Araçatuba - SP
Contato:

HMGS não gera o menu com o Underline

Mensagem por Toledo »

rubens escreveu:Mas você só compilou o código ou gerou ele como um formulário?
O que eu fiz foi o seguinte:

1 - Executei a IDE da MiniGui, depois abri o projeto que está em C:\MiniGUI\IDE\SAMPLES\MENU
2 - Selecionei na Aba "Builders" e clique no botão "Main Menu builder" e coloquei o & nas opções do menu.
3 - Depois pelo prompt do DOS, entrei na pasta C:\MiniGUI\IDE\SAMPLES\MENU e compilei o projeto, digitei:

\MiniGui\Batch\Compile test
rubens escreveu:quando jogo esse código em formulário
Não entendi esta parte, o que você quer dizer em jogar o código em formulário? Como você faz isto?

Abraços,
Toledo - Clipper On Line
toledo@pctoledo.com.br
Harbour 3.2/MiniGui/HwGui
Faça uma doação para o fórum, clique neste link: http://www.pctoledo.com.br/doacao
Avatar do usuário
rubens
Colaborador
Colaborador
Mensagens: 1520
Registrado em: 16 Ago 2003 09:05
Localização: Nova Xavantina - MT

HMGS não gera o menu com o Underline

Mensagem por rubens »

Então Toledo...
Fiz o mesmo procedimento...
Só na hora de compilar que compilei pela IDE mesmo clicando no botão
batch.jpg
batch.jpg (4.6 KiB) Exibido 480 vezes
Veja que tô inserindo o & certinho em cada opção que quero que fique em destaque...
Menu.jpg
E não é problema da minigui porque quando gero só o programa(linha de código) sem criar o formulário e compilo via linha de código com o compíle.bat ele gera o underline normalmente...
menu correto.png
Então fico sem enteder o porque...

Rubens
"Eu e minha casa servimos ao Senhor e você ???"
Responder