acessar Menu GTWVG pelo teclado

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:

acessar Menu GTWVG pelo teclado

Mensagem por ANDRIL »

Tenho um menu em GTWVG em formato Windows, só consigo acessá-lo com mouse, não é como os outros aplicativos Windows que com o Alt ou outra tecla consegue acessar.
Tem algum esquema de por isso neste tipo de menu.

Código: Selecionar todos

g_oMenuBar := WvgSetAppWindow():menuBar()

oMenu12 := WvgMenu():new( g_oMenuBar, , .t. ):create()
oMenu12:caption := "PDV"

oMenu12:AddItem( "1 - Vender"  , {|| nMenuOpt1:=1000,hb_keyput(chr(255)) } )          //execModulos("0.1")
oMenu12:AddItem( "2 - Imprimir 2a via de venda"  , {|| execModulos("0.2") } )          

g_oMenuBar:addItem( { oMenu12, "PDV" } )
return (oMenu12)
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

acessar Menu GTWVG pelo teclado

Mensagem por JoséQuintas »

Jeito tem.... mas nunca fui atrás.
Provavelmente do mesmo jeito que as outras LIBs fazem.
Precisa dar uma olhada se isso é recurso da API Windows ou não.
A princípio daria até pra fazer menu estilo .NET, com imagens e tudo mais.

Acho menu windows muito fraco, até tenho opção no aplicativo mas nunca liberei pra ninguém.
Talvez melhor esquecer dele, porque esse não vai ser o único problema que vai encontrar.
Usuários vão reclamar, se é que isso já não é reclamação de usuário.
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/
Avatar do usuário
JoséQuintas
Administrador
Administrador
Mensagens: 20267
Registrado em: 26 Fev 2007 11:59
Localização: São Paulo-SP

acessar Menu GTWVG pelo teclado

Mensagem por JoséQuintas »

Respondendo outro post, acabei olhando esta página

https://learn.microsoft.com/pt-br/windo ... g-resource

Faça o teste, mas cuidado pro harbour não confundir com MACRO.
letra.png
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/
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:

acessar Menu GTWVG pelo teclado

Mensagem por ANDRIL »

Pelo que vi nos exemplos para acionar o atalho teria que usar o til - e não o & como nos exemplos citados.
Mesmo usando o til não aciona. Na contrib, no exemplo que rodei, até funciona, mas não sei por que no meu projeto não.
Notei que no exemplo, cria a janela com

Código: Selecionar todos

oCrt := WvgDialog():new( , , { 30, 30 }, { 900, 600 }, , .T. )
no meu código uso

Código: Selecionar todos

oCrt := WvgCrt():New( , , { 00, 00 }, { 24, 78 }, , .T. )  
Troquei para usar o WvgDialog() mas aborta o sistema ao criar a janela.
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

acessar Menu GTWVG pelo teclado

Mensagem por JoséQuintas »

O uso é diferente, na prática nem sei se wvgDialog() está completa, porque nao tem exemplo de uso.
wvgDialog() seria pra GUI, e não console, apesar de parecer a mesma coisa.
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