PC Toledo

Enviado: **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.

Enviado: **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

Enviado: **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.

Enviado: **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 ) )

Enviado: **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?

Enviado: **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.

Enviado: **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.

Enviado: **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.

Enviado: **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.

Enviado: **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

Enviado: **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.

não funciona para xharbour ??

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

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

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 ..

;(

PC Toledo

Copiar e Colar e uso com Mouse WVT/WVW

Copiar e Colar e uso com Mouse WVT/WVW

Copiar e Colar e uso com Mouse WVT/WVW

Copiar e Colar e uso com Mouse WVT/WVW

Copiar e Colar e uso com Mouse WVT/WVW

Copiar e Colar e uso com Mouse WVT/WVW

Copiar e Colar e uso com Mouse WVT/WVW

Copiar e Colar e uso com Mouse WVT/WVW

Copiar e Colar e uso com Mouse WVT/WVW

Copiar e Colar e uso com Mouse WVT/WVW

Copiar e Colar e uso com Mouse WVT/WVW

Copiar e Colar e uso com Mouse WVT/WVW

Copiar e Colar e uso com Mouse WVT/WVW

Copiar e Colar e uso com Mouse WVT/WVW

Copiar e Colar e uso com Mouse WVT/WVW

Copiar e Colar e uso com Mouse WVT/WVW