HMGS não gera o menu com o Underline
Enviado: 11 Jun 2015 14:17
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:
Formulário:
Obrigado
Rubens
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
test.rar- (779 Bytes) Baixado 49 vezes
Rubens