PC Toledo

Pessoal estou com um problema com a minha tela Principal quando eu pressionava a tecla ALT ia para o menu para fazer a escolha da opcao que queria mais nao sei porque que parou de fazer isso e estar muito ruim porque se nao tiver o mouse nao se pode fazer nada.

Uso XHARBOUR + GTWVW

Fico grato pela atencao, Valeu

Helio Beltrao Jr.
helio@hrbinfo.com.br

De uma olhada no link abaixo:
https://pctoledo.org/forum/viewto ... light=menu

Abraços
Leonardo Machado

Dei uma olhada no topico que voce me indicou mais nao conseguir resolver o problema vou postar o meu PRG do menu principal reduzido para quem poder me ajudar vou ficar muito grato Valeu.

#INCLUDE "wingdi.ch"
#INCLUDE "winuser.ch"
#INCLUDE "COMMCTRL.CH"
#INCLUDE "HRBMENU.CH"
#define NBotao1 900
#define NBotao2 901
#define NBotao3 902
#define NBotao4 903
#define NBotao5 904
#define NBotao6 905
#define NBotao7 906
#define NBotao8 907

#define MENUARQ_1 1
#define MENUARQ_2 2
#define MENUARQ_3 3
#define MENUARQ_4 4
#define MENUARQ_5 5
#define MENUARQ_6 6
#define MENUARQ_7 7
#define MENUARQ_8 8
#define MENUARQ_9 9

* MENU PRINCIPAL
*******************
FUNCTION sac0()
***************
MEMVAR mdata_sis,memp_resa,mversao,cod_operado,mcaminho,mol,sistema
LOCAL opcao,tela,malinhar:={}
PUBLIC rl_pd[15],mnum_principal
PRIVATE mcod_vend,mmens
Wvw_Setcodepage(,255)
wvw_setmaincoord(.F.)
IF ! AbriArq('saccfg','cfg');RETURN NIL;ENDIF
IF cfg->op_tela = '0'
SetMode(25,80)
mnum_principal := wvw_nopenwindow'',00,00,mlin_public,mcol_public)
ELSE
SetMode(30,100)
mnum_principal := wvw_nopenwindow('',00,00,mlin_public,mcol_public)
ENDIF

AADD(malinhar,{mlin_public-1,00,mlin_public,mcol_public})

Wvw_SetTitle( ,memp_resa+SPACE(20)+'SISCOM '+mversao )
wvw_noclose()
wvw_SetPaintRefresh()
wvw_SetVertCaret(.F.)
wvw_maximize(0)
WVW_CenterWindow(,.T.,.T.)
wvw_SetPaintRefresh(1)

set key 23 to
opcao:=0
mdata_sis := DATE()

WVW_DrawImage( ,00,00,mlin_public,mcol_public,ALLTRIM(cfg->caminho)+'HRBSISCOM.JPG',.T.,.T.)

IF ! senha();fim(,'*');ENDIF // Solicitar senha do sistema

* VERIFICAR A ROTINA DE SEGURANCA *
sacseg('*')

WVW_TBCreate( , .T.,TBSTYLE_LIST , 0,5,5)

WVW_TBAddButton( ,NBotao1,' ','<V> E N D A ',1)
WVW_TBAddButton( ,NBotao2,' ','<R>ecebimento PEDIDO',1)
WVW_TBAddButton( ,NBotao3,' ','<B>aixa DOCUMENTO',1)
WVW_TBAddButton( ,NBotao4,' ','<O>rcamento',1)
WVW_TBAddButton( ,NBotao5,' ','Calculadora',1)
//WVW_TBAddButton( ,NBotao6,' ','Ajuda',1)
WVW_TBAddButton( ,NBotao7,' ','Deixar na Senha',1)
WVW_TBAddButton( ,NBotao8,' ','Sair',1)

WVW_SBCreate()
WVW_SBAddPart(,,110,0,.F.)
WVW_SBSetText(,1,'{SAC0}')
WVW_SBAddPart(,,60,0,.F.)
WVW_SBSetText(,2,set->nomenf)
WVW_SBAddPart(,,220,0,.F.)
WVW_SBSetText(,3,'Empresa: '+ALLTRIM(mcodempresa)+'-'+SUBSTR(memp_resa,1,20))
WVW_SBAddPart(,,80,0,.F.)
WVW_SBSetText(,4,'Operador: '+ALLTRIM(cod_operado))
WVW_SBAddPart(,,130,0,.F.)
WVW_SBSetText(,5,' >>SISCOM '+mversao+'<< ')
WVW_SBAddPart(,,235,0,.F.)
WVW_SBSetText(,6,'.:HRB Informatica - (81)3325.6663/3755.1489:.')

hMainMenu = WVW_CreateMenu( )
hSubMenu1 = WVW_CreateMenu( )


WVW_AppendMenu( hMainMenu , MF_ENABLED + MF_POPUP , hSubMenu1 , "Arquivos", )
WVW_AppendMenu( hMainMenu , MF_ENABLED + MF_POPUP , hSubMenu2 , "Movimento", )
WVW_AppendMenu( hMainMenu , MF_ENABLED + MF_POPUP , hSubMenu3 , "Caixa", )
WVW_AppendMenu( hMainMenu , MF_ENABLED + MF_POPUP , hSubMenu4 , "Consultas", )
WVW_AppendMenu( hMainMenu , MF_ENABLED + MF_POPUP , hSubMenu5 , "Relatorios", )
WVW_AppendMenu( hMainMenu , MF_ENABLED + MF_POPUP , hSubMenu6 , "Utilitarios", )
WVW_AppendMenu( hMainMenu , MF_ENABLED + MF_STRING , MENUUTIL_10 , "Ajuda", )
//WVW_AppendMenu( hMainMenu , MF_ENABLED + MF_POPUP , MENUUTIL_12 , "Sair", )
IF mmult_emp = 'S'
WVW_AppendMenu( hMainMenu , MF_ENABLED + MF_STRING , MENUEMP_1 , "Mudar de EMPRESA", )
ELSE
WVW_AppendMenu( hMainMenu , MF_GRAYED + MF_STRING , MENUEMP_1 , "Mudar de EMPRESA", )
ENDIF
WVW_AppendMenu( hMainMenu , MF_ENABLED + MF_POPUP , hSubMenu9 , "Sair", )

WVW_AppendMenu( hSubMenu1 , MF_ENABLED + MF_STRING , MENUARQ_1 , "0 -> Grupo ", )
WVW_AppendMenu( hSubMenu1 , MF_ENABLED + MF_STRING , MENUARQ_2 , "1 -> Sub_Grupo ", )
WVW_AppendMenu( hSubMenu1 , MF_ENABLED + MF_STRING , MENUARQ_3 , "2 -> Produto ", )
WVW_AppendMenu( hSubMenu1 , MF_ENABLED + MF_STRING , MENUARQ_4 , "3 -> Cliente/Outros ", )
WVW_AppendMenu( hSubMenu1 , MF_ENABLED + MF_STRING , MENUARQ_5 , "4 -> Fornecedor/Outras Despesas", )
WVW_AppendMenu( hSubMenu1 , MF_ENABLED + MF_STRING , MENUARQ_6 , "5 -> Operador/Vendedor ", )
WVW_AppendMenu( hSubMenu1 , MF_ENABLED + MF_STRING , MENUARQ_7 , "6 -> Tabelas UF/Imposto ", )
WVW_AppendMenu( hSubMenu1 , MF_ENABLED + MF_STRING , MENUARQ_8 , "7 -> Formas Pagamentos (CARTAO)", )
WVW_AppendMenu( hSubMenu1 , MF_ENABLED + MF_STRING , MENUARQ_9 , "8 -> Despesas ", )
WVW_AppendMenu( hSubMenu1 , MF_ENABLED + MF_STRING , MENUARQ_10 , "9 -> Transportadora ", )
WVW_AppendMenu( hSubMenu1 , MF_ENABLED + MF_STRING , MENUARQ_11 , "A -> Operacao de Nota (CFOP) ", )
WVW_AppendMenu( hSubMenu1 , MF_ENABLED + MF_STRING , MENUARQ_12 , "B -> Financiamentos ", )
WVW_AppendMenu( hSubMenu1 , MF_ENABLED + MF_STRING , MENUARQ_13 , "C -> Aliquotas Financiamento ", )
WVW_AppendMenu( hSubMenu1 , MF_ENABLED + MF_STRING , MENUARQ_14 , "D -> Bancos ", )
WVW_AppendMenu( hSubMenu1 , MF_ENABLED + MF_STRING , MENUARQ_15 , "E -> Especie Produto ", )
WVW_AppendMenu( hSubMenu1 , MF_ENABLED + MF_STRING , MENUARQ_16 , "F -> Cotacao Dolar ", )
WVW_AppendMenu( hSubMenu1 , MF_ENABLED + MF_STRING , MENUARQ_17 , "G -> Conta de Despesas ", )
WVW_AppendMenu( hSubMenu1 , MF_ENABLED + MF_STRING , MENUARQ_18 , "H -> Regioes de Vendedores ", )
WVW_AppendMenu( hSubMenu1 , MF_ENABLED + MF_STRING , MENUARQ_19 , "I -> Cadastro de Cidades ", )
WVW_AppendMenu( hSubMenu1 , MF_ENABLED + MF_STRING , MENUARQ_20 , "J -> Classificacao Fiscal ", )
WVW_AppendMenu( hSubMenu1 , MF_ENABLED + MF_STRING , MENUARQ_21 , "L -> Tabela Condicoes Pagamento", )
WVW_AppendMenu( hSubMenu1 , MF_ENABLED + MF_STRING , MENUARQ_22 , "M -> Mensagens p/Observacao ", )

WVW_SetMenu(, hMainMenu )


SETINKEYAFTERBLOCK({|nkey| AfterInkey(nkey)})

WHILE LASTKEY()<>27
INKEY(0)
ENDDO
RETURN
************************************** F I M *****************************************
FUNCTION AfterInkey(nkey)
**************************
LOCAL MenuId

IF nKey=1024
MenuId:=WVW_GETLASTMENUEVENT()
IF MenuId=NBotao1 // BOTAO EMISSAO DE PEDIDO
sac23p1()
ELSEIF MenuId=NBotao2 // BOTAO RECEBIMENTO DO CAIXA
sac30()
ELSEIF MenuId=NBotao3 // BOTAO RECEBIMENTO DOCUMENTOS
con251('*')
ELSEIF MenuId=NBotao4 // BOTAO P/ORCAMENTO
sac23p1(1)
ELSEIF MenuId=NBotao5 // CALCULADORA DO WINDOWS
MYRUN('calc.exe')
ELSEIF MenuId=MENUARQ_1 // GRUPO
sac10()
ELSEIF MenuId=MENUARQ_2 // SUB-GRUPO
sac101()
ELSEIF MenuId=MENUARQ_3
f4_merc('*')
ELSEIF MenuId=MENUARQ_4 // CLIENTE
ENDIF
ENDIF
RETURN nkey

Please, posta a hrbmenu.ch ou me diz onde encontro ela, para min fazer o teste aqui pra vc....