PC Toledo

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.)

Código: Selecionar todos

Main.bt1_menu2.Enabled := .F.