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: 1309
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: 20415
Registrado em: 26 Fev 2007 11:59
Localização: São Paulo-SP
Curtiram: 1 vez

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, multithread, gtwvg, fivewin 25.12, dbfcdx, MySQL, ADOClass, PDFClass, SefazClass, (hwgui), (hmg3), (hmg extended), (oohg), PNotepad, ASP, (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