Copiar e Colar e uso com Mouse WVT/WVW

Mensagem por **Itamar M. Lins Jr.** » 11 Jun 2019 10:16

Ola!

#include "hbgtinfo.ch"

FUNCTION ACTCOPYPASTE()
//activa COPY / PASTE
  hb_gtInfo( HB_GTI_INKEYFILTER, { | nKey |
      LOCAL nBits, lIsKeyCtrl
      SWITCH nKey
      CASE K_MWBACKWARD
         RETURN K_DOWN
      CASE K_MWFORWARD
         RETURN K_UP
      CASE K_RBUTTONDOWN
         RETURN K_ESC
      CASE K_RDBLCLK
         RETURN K_ESC
      CASE K_LDBLCLK
         RETURN K_ENTER
      CASE K_CTRL_V
         nBits := hb_GtInfo( HB_GTI_KBDSHIFTS )
         lIsKeyCtrl := ( nBits == hb_BitOr( nBits, HB_GTI_KBD_CTRL ) )
         IF lIsKeyCtrl
            hb_GtInfo( HB_GTI_CLIPBOARDPASTE )
            RETURN 0
         ENDIF
      CASE K_CTRL_C
         nBits := hb_gtInfo( HB_GTI_KBDSHIFTS )
         lIsKeyCtrl := ( nBits == hb_BitOr( nBits, HB_GTI_KBD_CTRL ) )
         IF lIsKeyCtrl
             MSGBOX( "Copiado al portapapeles" )
            IF GetActive() != NIL
               hb_gtInfo( HB_GTI_CLIPBOARDDATA, Transform( GetActive():VarGet(), "" ) )
               RETURN 0
            ENDIF
         ENDIF
      ENDSWITCH
      RETURN nKey
       } )
   SET( _SET_EVENTMASK, INKEY_ALL )
RETURN

Ps. Peguei no Harbour users.

Saudações,
Itamar M. Lins Jr.

Mensagem por **JoséQuintas** » 11 Jun 2019 11:42

Achei que esse fonte tava parecido com o meu estilo....
E não é que é meu mesmo kkkk

https://github.com/JoseQuintas/JoseQuin ... filter.prg

Mensagem por **Itamar M. Lins Jr.** » 11 Jun 2019 13:15

Ola!
Eita! o povo não gosta de dar créditos mesmo né?
Já pensou se não coloco que peguei do forum harbour user ?

Saudações,
Itamar M. Lins Jr.

Mensagem por **rubens** » 11 Jun 2019 13:51

Olá...
Essa função diferencia CTRL+V de Insert ?

Seria essa linha

Código: Selecionar todos

lIsKeyCtrl := ( nBits == hb_BitOr( nBits, HB_GTI_KBD_CTRL ) )

Linguagemclipper · Mensagem por **Linguagemclipper** » 25 Jun 2022 00:32

JoséQuintas escreveu:Achei que esse fonte tava parecido com o meu estilo....
E não é que é meu mesmo kkkk

copypaste.png
https://github.com/JoseQuintas/JoseQuin ... filter.prg

Usei ela aqui, mas precisei fazer uns ajustes. Procurei esse teu github para fazer um fork e solicitar um pull request, mas diz página não encontrada. Mudou o link?

Mensagem por **JoséQuintas** » 25 Jun 2022 18:06

Linguagemclipper escreveu:Usei ela aqui, mas precisei fazer uns ajustes. Procurei esse teu github para fazer um fork e solicitar um pull request, mas diz página não encontrada. Mudou o link?

É que começou a entrar coisa particular de cliente no meio, e SQL, acabei deixando só com o básico até resolver sobre o resto, e foi ficando pra depois.

rubens escreveu:Seria essa linha

Sim. lIsKeyCtrl, tem nome autoexplicativo em inglês. IS=É, "é key control?" acaba contendo verdadeiro ou falso baseado no resultado.

Linguagemclipper · Mensagem por **Linguagemclipper** » 28 Jun 2022 10:16

Quem faz o fork tem que solicitar o pull request ao autor do master branch. Nesse caso é só tu não autorizar, poxa. Só permite autorizar atualizações que o mantenham neutro sem particularidades de clientes.

Mensagem por **JoséQuintas** » 28 Jun 2022 15:21

Linguagemclipper escreveu: Nesse caso é só tu não autorizar, poxa

Quando o conteúdo do original altera, sem ser continuação, o vínculo se perde.
Passa o endereço do seu fork, pra eu colocar de volta como estava na época.
Não sei se vai dar certo.

Mensagem por **JoséQuintas** » 29 Jun 2022 11:33

Na verdade.....

Chegou ao ponto de entrarem em contato comigo pra comprar versão nova....
Simplesmente alguém além de pegar de graça, vender, ainda vendeu usando meu nome.
Por essas e outras, removi.

Por eu deixar de trabalhar com DBF, e a LIB ser direto do meu aplicativo, também não ajudaria mais como antes, e só daria trabalho pra deixar atualizada sem que o aplicativo interferisse na LIB e vice-versa.

Linguagemclipper · Mensagem por **Linguagemclipper** » 19 Jul 2022 19:46

Rapaz, se passar pelo cara já é o cúmulo...
Pior que não tenho como fazer um fork de algo que não existe mais porque tem que ter um master-branch para contribuir...
No seu código original só copiava se o get já tivesse um valor salvo com Enter, se o campo fosse novo e quisesse copiar ficava em branco porque ignorava o buffer. Daí conteplei as duas condições e deu certo. Também coloquei pra colar com o botão direito do mouse.
Enfim, vou postar aqui o código completo com o que eu mudei:

Código: Selecionar todos

FUNCTION ACTCOPYPASTE()
//activa COPY / PASTE
  hb_gtInfo( HB_GTI_INKEYFILTER, { | nKey |
      LOCAL nBits, lIsKeyCtrl
      SWITCH nKey
      CASE K_MWBACKWARD
         RETURN K_DOWN
      CASE K_MWFORWARD
         RETURN K_UP
      CASE K_RBUTTONDOWN
		 // Acrescentado por Anderson
         keyboard HB_GTINFO(  HB_GTI_CLIPBOARDPASTE ) // COLA C/ BOTÃO DIREITO
		 RETURN
      CASE K_RDBLCLK
         RETURN K_ESC
      CASE K_LDBLCLK
         RETURN K_ENTER
      CASE K_CTRL_V
         nBits := hb_GtInfo( HB_GTI_KBDSHIFTS )
         lIsKeyCtrl := ( nBits == hb_BitOr( nBits, HB_GTI_KBD_CTRL ) )
         IF lIsKeyCtrl
            keyboard HB_GTINFO(  HB_GTI_CLIPBOARDPASTE ) // COLA C/ CTRL+V
            RETURN 0
         ENDIF
      CASE K_CTRL_C
         nBits := hb_gtInfo( HB_GTI_KBDSHIFTS )
         lIsKeyCtrl := ( nBits == hb_BitOr( nBits, HB_GTI_KBD_CTRL ) )
         IF lIsKeyCtrl             
            IF GetActive() != NIL
					// O IF ABAIXO FOI ALTERADO POR ANDERSON
					IF !EMPTY(GetActive():VarGet())
						// SE O GET JÁ TINHA UM VALOR, VAI COPIAR ESSE VALOR JÁ SALVO PARA COLAR
						hb_gtInfo( HB_GTI_CLIPBOARDDATA, Transform( GetActive():VarGet(), "" ) )
					ELSE
						// O GET ESTÁ VAZIO, MAS PODE HAVER CARACTERES NO BUFFER DESSE GET!
						hb_gtInfo( HB_GTI_CLIPBOARDDATA, GetActive():BUFFER )
					ENDIF
				ALERT( "Copiado para área de transferência" )             
				RETURN 0
            ENDIF
         ENDIF
      ENDSWITCH
      RETURN nKey
       } )
   SET( _SET_EVENTMASK, INKEY_ALL )
RETURN

Mensagem por **JoséQuintas** » 19 Jul 2022 20:45

Realmente, sem sair do GET o conteúdo do buffer/tela pode ser diferente da variável.
Já o do mouse, não sei se vai interferir com o uso como ESC.

Sobre o fork: entendi que você tinha feito um fork antes de apagar.

Depois vou ver como fazer com as coisas.
Separar as coisas em muitas LIBs só vai gerar trabalho extra.

deividdjs · Mensagem por **deividdjs** » 20 Set 2022 14:16

não funciona para xharbour ??

deividdjs · Mensagem por **deividdjs** » 20 Set 2022 16:13

dá erro de delimitação ... mais pelo q vejo está tudo correto .. nao está ??

Linguagemclipper · Mensagem por **Linguagemclipper** » 20 Set 2022 16:40

Tentei compilar no xharbour e dá erro mesmo.
Só roda no Harbour essa função aí.

No xHarbour eu fiz esse quebra-galho aqui:

Código: Selecionar todos

SET KEY K_CTRL_C TO COPIA()     // COPIA COM CTRL+C
SET KEY K_CTRL_V TO COLA()      // COLA COM CTRL+V
SET KEY K_RBUTTONDOWN TO COLA() // COLA COM BOTÃO DIREITO DO MOUSE

As funções:

Código: Selecionar todos

FUNCTION COPIA()
keyboard HB_GTINFO(  HB_GTI_CLIPBOARDDATA )
RETURN

FUNCTION COLA()
keyboard HB_GTINFO(  HB_GTI_CLIPBOARDPASTE )
RETURN

deividdjs · Mensagem por **deividdjs** » 20 Set 2022 17:38

Linguagemclipper escreveu:Tentei compilar no xharbour e dá erro mesmo.
Só roda no Harbour essa função aí.

No xHarbour eu fiz esse quebra-galho aqui:
Código: Selecionar todos
SET KEY K_CTRL_C TO COPIA()     // COPIA COM CTRL+C
SET KEY K_CTRL_V TO COLA()      // COLA COM CTRL+V
SET KEY K_RBUTTONDOWN TO COLA() // COLA COM BOTÃO DIREITO DO MOUSE
As funções:
Código: Selecionar todos
FUNCTION COPIA()
keyboard HB_GTINFO(  HB_GTI_CLIPBOARDDATA )
RETURN

FUNCTION COLA()
keyboard HB_GTINFO(  HB_GTI_CLIPBOARDPASTE )
RETURN

não sei se é meu getsys.prg bugado .. mais nem sinal de copia e cola ..

;(