Página 1 de 1

GETSYS com Recursos de botoes Windows

Enviado: 07 Fev 2017 23:29
por Abel
Ola pessoal, muito boa noite,
utilize harbour 3.1
estou pretendendo alterar a classe getsys permitindo que:

eu coloque um conteudo na variavel e o mesmo seja apagado apos
o usuario escrever algo ou andar com a setinha, o parametro @k nao
funciona exatamente como eu desejo, pois ele exibe e apaga o conteudo,
so que quando o usuario apaga tudo o que digitou ele nao reexibe o conteudo
pre-definido.

gostaria tambem de permitir que quando o usuario estiver em uma sequencia de gets,
se apertar a setinha para a esquerda, o sistema voltasse para o GET anterior, isso só
acontece quando ele aperta a setinha para cima,

gostaria tambem de criar uma setinha no final do GET que ao ser clicada com o mouse
abrisse um browse das opçoes do campo.

Acredito que tudo isso ja deve existir para programacao via windows, mas ainda programo
usando @say, @get e precisava destas alteraçoes.

alguem sabe qual arquivo GETSYS eu tenho que editar ? estou usando harbour 3.1

na pasta hb31\source\harbour\src\rtl
achei: getsys.prg, getsyshb.prg, getsys53.prg e nao sei qual devo alterar.

mais uma vez, muito obrigado

Abel

GETSYS COM RECURSOS DE BOTOES WINDOWS

Enviado: 07 Fev 2017 23:57
por JoséQuintas
Não entendi direito porque não serve o @K.

a) Digitando qualquer coisa, o conteúdo é apagado, exceto se a primeira tecla digitada for seta

b) Um recurso do get é ctrl-U, que retorna ao conteúdo original

O da setinha pra abrir um browse pode ser mais complicado, talvez num novo get só pra isso seja mais fácil de fazer.

Aqui uso TAB e shift-TAB igual o Windows, como opção pra navegar.

Geralmente é o GETSYS.
Só copiar pra pasta do seu aplicativo e alterar à vontade, pode deixar o do Harbour lá intacto.

GETSYS COM RECURSOS DE BOTOES WINDOWS

Enviado: 08 Fev 2017 09:51
por Kapiaba
Veja se o comando oGet:Varput() não é o que você precisa.

Veja esse exemplo, onde está a variável, nKey. Acho que é por ai...

https://github.com/harbour/core/blob/ma ... padder.prg

Abs.