Clipper On Line • Ver Tópico - Colar texto no MemoEdit

Colar texto no MemoEdit

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

Moderador: Moderadores

 

Colar texto no MemoEdit

Mensagempor tonicm » 14 Jul 2017 14:47

Colegas, existe alguma forma de colar texto no MemoEdit?

VTEXTO := MemoEdit(TEXTO_EDITAR,1,1,21,78,.T.,"xmemo",73)


Noutras situações (GET) utilizo o seguinte para colar o que está na clipboard:
hb_gtInfo( HB_GTI_CLIPBOARDDATA )
tonicm
Usuário Nível 2

Usuário Nível 2
 
Mensagens: 55
Data de registro: 08 Mar 2016 21:51
Cidade/Estado: Porto
Curtiu: 12 vezes
Mens.Curtidas: 1 vez

Colar texto no MemoEdit

Mensagempor JoséQuintas » 15 Jul 2017 21:04

Noutras situações (GET) utilizo o seguinte para colar o que está na clipboard:


No memoedit é a mesma coisa.

Mas com certeza não é só isso que usa no GET, senão não funcionaria á também.
José M. C. Quintas
Harbour 3.2, mingw, gtwvg, multithread, dbfcdx, ADO+MySql, PNotepad
"The world is full of kings and queens, who blind our eyes and steal our dreams Its Heaven and Hell"

https://github.com/JoseQuintas/
Avatar de usuário

JoséQuintas
Membro Master

Membro Master
 
Mensagens: 18007
Data de registro: 26 Fev 2007 11:59
Cidade/Estado: São Paulo-SP
Curtiu: 15 vezes
Mens.Curtidas: 1206 vezes

Colar texto no MemoEdit

Mensagempor tonicm » 16 Jul 2017 07:00

Tenho a tecla Control + V que chama a função abaixo.
Só que no MemoEdit, o GetActive() está NIL.

PROCEDURE SHOW_CLIPBOARD()

   LOCAL TMP_OGET, TMP_RETORNA := "", TMP_MAXIMO := 0

   TMP_OGET := GetActive()
   IF TMP_OGET == NIL .OR. TMP_OGET:BUFFER == NIL
      RETURN
   ENDIF
   TMP_MAXIMO := Len( TMP_OGET:BUFFER )

   TMP_RETORNA := SubStr( hb_gtInfo( HB_GTI_CLIPBOARDDATA ) + Space( TMP_MAXIMO ), 1, TMP_MAXIMO )
   IF TMP_oGET:type == "N"
      TMP_RETORNA := Val( TMP_RETORNA )
   ENDIF
   IF TMP_oGET:type == "D"
      TMP_RETORNA := CToD( TMP_RETORNA )
   ENDIF

   TMP_oGet:VarPut( TMP_RETORNA )

   IF TMP_oGET:type == "N"
      TMP_oGET:POS := Len( TMP_oGET:PICTURE )
   ELSEIF TMP_oGET:type == "D"
      // NADA
   ELSE
      TMP_oGET:POS := Len( AllTrim( TMP_RETORNA ) ) + 1
   ENDIF

   RETURN

tonicm
Usuário Nível 2

Usuário Nível 2
 
Mensagens: 55
Data de registro: 08 Mar 2016 21:51
Cidade/Estado: Porto
Curtiu: 12 vezes
Mens.Curtidas: 1 vez

Colar texto no MemoEdit

Mensagempor JoséQuintas » 16 Jul 2017 10:47

Tenho a tecla Control + V que chama a função abaixo.


Colocou pra não funcionar se não for get.
É só esse o problema.
José M. C. Quintas
Harbour 3.2, mingw, gtwvg, multithread, dbfcdx, ADO+MySql, PNotepad
"The world is full of kings and queens, who blind our eyes and steal our dreams Its Heaven and Hell"

https://github.com/JoseQuintas/
Avatar de usuário

JoséQuintas
Membro Master

Membro Master
 
Mensagens: 18007
Data de registro: 26 Fev 2007 11:59
Cidade/Estado: São Paulo-SP
Curtiu: 15 vezes
Mens.Curtidas: 1206 vezes

Colar texto no MemoEdit

Mensagempor tonicm » 17 Jul 2017 08:30

Alterei a função xmemo e já cola o texto do clipboard.

test := hb_gtInfo( HB_GTI_CLIPBOARDDATA )
keyboard( test )
tonicm
Usuário Nível 2

Usuário Nível 2
 
Mensagens: 55
Data de registro: 08 Mar 2016 21:51
Cidade/Estado: Porto
Curtiu: 12 vezes
Mens.Curtidas: 1 vez




Retornar para Harbour

Quem está online

Usuários vendo este fórum: Nenhum usuário registrado online e 6 visitantes


Ola Amigo, espero que meu site e forum tem lhe beneficiado, com exemplos e dicas de programacao.
Entao divulgue o link da Doacao abaixo para seus amigos e redes sociais ou faça uma doacao para o site forum...
MUITO OBRIGADO PELA SUA DOACAO!
Faça uma doação para o forum
cron
v
Olá visitante, seja bem-vindo ao Fórum Clipper On Line!
Efetue o seu login ou faça o seu Registro