Valores de Teclas

Projeto MiniGui - Biblioteca visual para Harbour/xHarbour

Moderador: Moderadores

Hasse
Usuário Nível 4
Usuário Nível 4
Mensagens: 820
Registrado em: 19 Out 2004 10:30
Localização: Jaraguá do Sul - SC

Valores de Teclas

Mensagem por Hasse »

Boa noite colegas.

Já havíamos tratado do assunto anteriormente, no tópico:
https://pctoledo.org/forum/viewto ... 6&start=15
no trecho onde está a tabela intitulada "Outros valores de VK", gentilmente fornecida pelo colega Asimoes.

Acontece que estou tendo algumas dificuldades e reclamações, visto que a tecla <ESC> também é usada em outro aplicativo que roda simultaneamente com este gerado em MiniGui.

Estou pensando em usar uma combinação de teclas mais elaborada para encerrar o aplicativo em MiniGui.

Pensei na combinação ALT + F12, que necessitará o uso das 2 mãos para o seu acionamento, estando, desta forma, imune ao pressionamento acidental da tecla que encerra o aplicativo.

Uso o código abaixo para implantar o comando ESCAPE na MiniGui (também fornecido pelo colega Asimoes).

Código: Selecionar todos

#xcommand ON KEY ESCAPE [ OF <parent> ] ACTION <action> ;
=> ;
_DefineHotKey ( <"parent"> , 0 , VK_ESCAPE , <{action}> )

Código: Selecionar todos

#pragma BEGINDUMP

#include <windows.h>
HB_FUNC( SIMULAESCAPE )
{
 keybd_event(
   VK_ESCAPE,
   0,
   0,
   0
   );
}

#pragma ENDDUMP

Como na tabela do link acima não oferece o nome e seu valor para esta combinação, pergunto:

Esta combinação ALT + F12 (valor -47 em modo console) está disponível em MiniGui também ?
Hasse
CP200 / CP500 / Basic / dBase III / dBase IV / Clipper Summer / RTlink / Exospace.
Clipper 5.3b / Blinker 7.0 / CDX com TAG
xHarbour 1.2.1-6604 / Borland C++ (5.5.1) 32 bit / HBmake.
Harbour 3.2.0dev (r1412121623) / MINGW / HBM2 / MiniGui HMG 3.1.4 / IDE (Roberto Lopez).
"Conheça todas as teorias, domine todas as técnicas, mas, quando tocares uma alma humana, seja apenas outra alma humana." (C.G.Jung)
Avatar do usuário
Toledo
Administrador
Administrador
Mensagens: 3133
Registrado em: 22 Jul 2003 18:39
Localização: Araçatuba - SP
Contato:

Valores de Teclas

Mensagem por Toledo »

Hasse escreveu:Uso o código abaixo para implantar o comando ESCAPE na MiniGui (também fornecido pelo colega Asimoes).
Este código é nativo da MiniGui, então você não precisa "implantar" ele para usar o comando ON KEY. Veja o arquivo i_keybd.ch que está na pasta \INCLUDE da sua MiniGui. Procure no arquivo i_keybd.ch se existe o código:

Código: Selecionar todos

#xcommand ON KEY ALT+F12 [ OF <parent> ] ACTION <action> ;
=> ;
_DefineHotKey ( <"parent"> , MOD_ALT , VK_F12 , <{action}> )
Se existir, então basta chamar o comando ON KEY ALT+F12 ACTION {|| ThisWindow.Release }

Abraços,
Toledo - Clipper On Line
toledo@pctoledo.com.br
Harbour 3.2/MiniGui/HwGui
Faça uma doação para o fórum, clique neste link: http://www.pctoledo.com.br/doacao
Hasse
Usuário Nível 4
Usuário Nível 4
Mensagens: 820
Registrado em: 19 Out 2004 10:30
Localização: Jaraguá do Sul - SC

Valores de Teclas

Mensagem por Hasse »

Bom dia Toledo.
Vou verificar.
Obrigado.
Hasse
CP200 / CP500 / Basic / dBase III / dBase IV / Clipper Summer / RTlink / Exospace.
Clipper 5.3b / Blinker 7.0 / CDX com TAG
xHarbour 1.2.1-6604 / Borland C++ (5.5.1) 32 bit / HBmake.
Harbour 3.2.0dev (r1412121623) / MINGW / HBM2 / MiniGui HMG 3.1.4 / IDE (Roberto Lopez).
"Conheça todas as teorias, domine todas as técnicas, mas, quando tocares uma alma humana, seja apenas outra alma humana." (C.G.Jung)
Responder