Clipper On Line • Ver Tópico - DESABILITAR DROPDOWN MENU BUTTON

DESABILITAR DROPDOWN MENU BUTTON

Projeto MiniGui - Biblioteca visual para Harbour/xHarbour

Moderador: Moderadores

 

DESABILITAR DROPDOWN MENU BUTTON

Mensagempor NiltonGM » 12 Jun 2018 12:14

Como faço para desabilitar um MENU (ITEM ou MENUITEM) dentro de um DROPDOWN MENU BUTTON?
Veja meu código:

         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.)
Nilton Medeiros
nilton@sistrom.com.br
Avatar de usuário

NiltonGM
Usuário Nível 3

Usuário Nível 3
 
Mensagens: 393
Data de registro: 05 Jun 2014 23:47
Cidade/Estado: Caieiras/SP
Curtiu: 249 vezes
Mens.Curtidas: 24 vezes

DESABILITAR DROPDOWN MENU BUTTON

Mensagempor NiltonGM » 12 Jun 2018 12:23

Depois de vários testes descobri com desabilitar o item do menu dentro do botão:
Main.bt1_menu2.Enabled := .F.


Com esse simples comando funcionou perfeitamente, vou deixar esse tópico aqui para outras pessoas que estejam passando pela mesma dúvida que tive.

:))
Nilton Medeiros
nilton@sistrom.com.br
Avatar de usuário

NiltonGM
Usuário Nível 3

Usuário Nível 3
 
Mensagens: 393
Data de registro: 05 Jun 2014 23:47
Cidade/Estado: Caieiras/SP
Curtiu: 249 vezes
Mens.Curtidas: 24 vezes

DESABILITAR DROPDOWN MENU BUTTON

Mensagempor susviela@bol.com.br » 30 Nov 2018 16:40

NiltonGM escreveu:Depois de vários testes descobri com desabilitar o item do menu dentro do botão:
Main.bt1_menu2.Enabled := .F.


Com esse simples comando funcionou perfeitamente, vou deixar esse tópico aqui para outras pessoas que estejam passando pela mesma dúvida que tive.

:))


Valeu NiltonGM .. exatamente o que eu procurava ...encontrei sua dica ... acesso a menus, com níveis de permissões, vai ser implantado ...
.
.
"E quando você perder o controle, colherá o que plantou."
=========================================
Carlos Alberto Nunes #Susviela
Site: https://www.PowerInformatica.com.br
=========================================
Blog xBase: https://programandoxbase.wordpress.com/
Blog TI: https://susviela.wordpress.com

( #ProgramandoxBase #AllxBase )
Avatar de usuário

susviela@bol.com.br
Usuário Nível 3

Usuário Nível 3
 
Mensagens: 236
Data de registro: 30 Jun 2017 11:17
Cidade/Estado: São José / SC
Curtiu: 153 vezes
Mens.Curtidas: 24 vezes

DESABILITAR DROPDOWN MENU BUTTON

Mensagempor rubens » 30 Nov 2018 16:59

Boa tarde..

SusViela dá uma olhadinha nesse post..
As vezes te ajuda tb..

http://www.pctoledo.com.br/forum/viewtopic.php?f=45&t=16293&p=97850&hilit=menu#p97850

Rubens
"Eu e minha casa servimos ao Senhor e você ???"
Avatar de usuário

rubens
Colaborador

Colaborador
 
Mensagens: 1518
Data de registro: 16 Ago 2003 09:05
Cidade/Estado: Nova Xavantina - MT
Curtiu: 77 vezes
Mens.Curtidas: 104 vezes




Retornar para MiniGui

Quem está online

Usuários vendo este fórum: Nenhum usuário registrado online e 7 visitantes


Ola Amigo, espero que meu site e forum tem lhe beneficiado, com exemplos e dicas de programacao.
Entao divulgue o link da Doacao abaixo para seus amigos e redes sociais ou faça uma doacao para o site forum...
MUITO OBRIGADO PELA SUA DOACAO!
Faça uma doação para o forum
cron
v
Olá visitante, seja bem-vindo ao Fórum Clipper On Line!
Efetue o seu login ou faça o seu Registro