Olá pessoal…

Hoje vou mostrar como desenvolver chamadas de funções via teclas de atalho no AdvPL (Protheus) e mostrar uma listagem com as principais teclas utilizadas.

Para utilizar o recurso de atalhos, utilize a biblioteca protheus.ch ou a vkey.ch. E quando for utilizar, apenas tome cuidado, pois alguns atalhos (como F1, F3, F12, Shift+F6, Ctrl+F e até alguns atalhos em telas específicas como F4), se você setar outro conteúdo, irá sobrepor a chamada de execução, além do que, existem algumas constantes que podem representar mais de uma chave (por exemplo, Control+I também representa Tab).

Vale ressaltar que uma vez criado o atalho, ele estará disponível em qualquer lugar da sessão / janela atual, então se for utilizado através de ponto de entrada ou em sub rotinas, sempre limpe a chave utilizada (exemplos abaixo de como adicionar chave de atalho e como limpar).

Para adicionar um atalho qualquer, basta utilizar o comando SetKey e passar uma instrução que ele execute (como alertas, funções de usuário ou estáticas). Exemplo:

//Setando Atalhos
SetKey( VK_F6,  {|| oDlgPvt:End()  } )
SetKey( VK_F8,  {|| u_zFuncao()    } )
SetKey( VK_F9,  {|| Alert('Teste') } )

E para limpar a utilização do atalho, basta utilizar Nil. Exemplo:

//Limpando Atalhos
SetKey( VK_F6,  Nil )
SetKey( VK_F8,  Nil )
SetKey( VK_F9,  Nil )

Abaixo a listagem de atalhos.

Function Keys

Control Keys

Alt Keys

Control Function Keys

Alt Function Keys

Shift Function Keys

Bom pessoal, por hoje é só.
Abraços e até a próxima.

Tags: AdvPL