Veja meu código:
Código: Selecionar todos
DEFINE WINDOW Main ;
AT 142 , 298 ;
WIDTH 1200 ;
HEIGHT 700 ;
TITLE "SGCE - Sistema de Gestão para Clínicas de Estética" ;
ICON "AppIcon" ;
ON INIT main_form_oninit() ;
ON RELEASE main_form_onrelease() ;
ON SIZE main_form_onsize() ;
ON MAXIMIZE main_form_onmaximize()
// BACKCOLOR {255,255,255}
DEFINE SPLITBOX
DEFINE TOOLBAR TooBar_1 BUTTONSIZE 45,40 IMAGESIZE 32,32 FONT "Arial" SIZE 8 FLAT
BUTTON Button_1 CAPTION "Sistema" PICTURE "recursos\logotipos\logoedi_32.jpg" AUTOSIZE WHOLEDROPDOWN
BUTTON Button_2 CAPTION "Cadastros" PICTURE "recursos\ico16x\application_cascade.png" AUTOSIZE
DEFINE DROPDOWN MENU BUTTON Button_1
ITEM 'Item.1' ACTION MsgInfo ("ToolBar - Button_1 - ") NAME bt1_menu1 // <- Olha aqui o nome do componente menu dentro do botão "b1t'_menu1'
ITEM 'Item.2' ACTION MsgInfo ("ToolBar - Button_1 - Item.2") NAME bt1_menu2
SEPARATOR
ITEM 'Item.3' ACTION MsgInfo ("ToolBar - Button_1 - Item.3") NAME bt1_menu3
END MENU
END TOOLBAR
DEFINE TOOLBAR TooBar_2 BUTTONSIZE 45,40 IMAGESIZE 32,32 FONT "Arial" SIZE 8 FLAT
BUTTON Button_3 CAPTION "Sair" PICTURE "recursos\desligar\desligar_32.png" ACTION FecharSistema()
END TOOLBAR
END SPLITBOX
DEFINE STATUSBAR FONT "Arial" SIZE 9
STATUSITEM "Status" WIDTH 700
STATUSITEM "Aguardando login..." WIDTH 300
STATUSITEM "Conectando..." WIDTH 200
END STATUSBAR
END WINDOW
Main.SplitBox.TooBar_1.Button_1.bt1_menu2.Enabled := .F. // <<== Não funciona, dá pau na compilação "E0030 Syntax error...", não sei como apenas desabilitar o menu, não quero remover, apenas desabilitar
Main.SplitBox.TooBar_1.Button_1.bt1_menu3.Enabled := .F. // <<== Não funciona, não sei como apenas desabilitar o menu, não quero remover, apenas desabilitar
Main.SplitBox.TooBar_1.Button_2.Enabled := .F. // <<== Desabilitar um botão Funciona!!
ON KEY ESCAPE OF Main ACTION FecharSistema(.T.)
)
"