GTWVG - Harbour 3.2

GTWVG com API Windows somente no Harbour.
No Harbouir 3.4 está sendo usado pointer, aonde no 3.2 é numérico.

Moderador: Moderadores

Avatar do usuário
ANDRIL
Usuário Nível 5
Usuário Nível 5
Mensagens: 1297
Registrado em: 06 Jul 2004 00:44
Contato:

GTWVG - Harbour 3.2

Mensagem por ANDRIL »

Olá pessoal!

José neste post voce postou a imagem de um menu WINDOWS. Rodei o exemplo da GTwvg e não achei como ativar/desativar um item do submenu, somente consegui dos "cabeças"
supondo um menu neste contexto.

CADASTROS PRODUTOS OPERADORES
--Incluir --Incluir --Incluir
--Alterar --Alterar --Alterar
Para desativar o CADASTROS use g_oMenuBar:disableItem(1) e deu certo.
Como posso desabilitar o subitem 2 (--Alterar) do menu CADASTROS?

Código: Selecionar todos

 LOCAL oMenu
 LOCAL g_oMenuBar := WvgSetAppWindow():menuBar()

   oMenu := WvgMenu():new( g_oMenuBar, , .T. ):create()
   oMenu:Caption := "Wvt*Classes"
   oMenu:AddItem( "Dialog One . New Window . Threaded"       , {|| DialogWvgClassesOne( 1 ) } )
   oMenu:AddItem( "Dialog One . Main Window . Primary Thread", {|| DialogWvgClassesOne( 2 ) } )
   oMenu:AddItem( "-" )
   oMenu:AddItem( "Dialog Two"                  , {|| DialogWvgClassesTwo()       } )
   oMenu:AddItem( "-" )
   oMenu:AddItem( "Exit"                        , {|| __Keyboard( K_ESC ) } )
   g_oMenuBar:addItem( { oMenu, "Wvt*Classes" } )

Sobre sua imagem dos botões que define icone e posição do texto, senti falta da AÇÃO, ou seja, quando clicar no botão executar uma função.
Clipper 5.2e / Blinker 5.1 / Harbour 3.2 / GTwvg
Avatar do usuário
JoséQuintas
Administrador
Administrador
Mensagens: 20267
Registrado em: 26 Fev 2007 11:59
Localização: São Paulo-SP

GTWVG - Harbour 3.2

Mensagem por JoséQuintas »

Geralmente só mostro o menu que o usuário tem acesso, portanto não há o que desabilitar.
Mas deve ser usando o array do menu, e seus sub-arrays.

Quanto aos buttons, é o activate que define o que vai ser executado.
Eu prefiro colocar um KEYBOARD e deixar o programa seguir o caminho normal.
José M. C. Quintas
Harbour 3.2, mingw, gtwvg mt, fivewin 25.04, multithread, dbfcdx, MySQL, ADOClass, PDFClass, SefazClass, (hwgui mt), (hmg3), (hmg extended), (oohg), PNotepad, ASP, stored procedure, stored function, Linux (Flagship/harbour 3.2)
"The world is full of kings and queens, who blind our eyes and steal our dreams Its Heaven and Hell"

https://github.com/JoseQuintas/
Responder