BUG TGELIST

Projeto [x]Harbour - Compilador de código aberto compatível com o Clipper.

Moderador: Moderadores

MARCELOG
Usuário Nível 4
Usuário Nível 4
Mensagens: 546
Registrado em: 15 Mar 2005 16:54
Localização: Divinópolis/MG

BUG TGELIST

Mensagem por MARCELOG »

Olá Forum,
a tecla de aceleração (hotkey) em tgelist.prg não está funcionando corretamente.

Ao fazer a validação do próximo get (em guiprevalidate) a referência utilizada está sendo a cláusula when do get atual e não o get para onde o foco pretende se transferir.

Alguém pode me ajudar a resolver o problema.

Obrigado.

MarceloG
MARCELOG
Usuário Nível 4
Usuário Nível 4
Mensagens: 546
Registrado em: 15 Mar 2005 16:54
Localização: Divinópolis/MG

Mensagem por MARCELOG »

Olá companheiros,
consegui resolver o problema com a tecla de aceleração no pushbutton.
Todavia, no sistema eu faço assim:

... get tbrowse
... get pushbutton (inclui)
... get pushbutton (edita)
... get pushbutton (exclui)
... get pushbutton (lista)
... get pushbutton (abandona)
Read

Através do teclado toda a validação é efetuada, ou seja, as respectivas ações das cláusulas when e valid são realizadas.
Entretanto, quando uso o mouse para alterar o foco do tbrowse para o pushbutton e/ou vice-versa, acontece um erro.
O ponteiro fica "louco" e não admite o foco pretendido.
O método hittest em tgelist é responsável vela validação do get para alteração do foco.
Contudo, a cláusula avaliada na situação e pressionamento do botão do mouse sobre o pushbutton é a do get anterior, sendo que a mudança do foco para um outro pushbutton com o mouse acarreta esta situação.
Alguém já verificou essa situação e/ou conseguiu contornar o problema.
Obrigado.

MarceloG

Ps: é que no sistema, quando receber o foco, eu gostaria de mudar a cor da tecla quente do pushbutton.
De outro modo, essa letra em destaque vai ficar sempre com a cor escolhida originalmente, criando um visual esquisito.
Responder