Colar texto no MemoEdit

[tonicm]

Colegas, existe alguma forma de colar texto no MemoEdit?

Código: Selecionar todos

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:

Código: Selecionar todos

hb_gtInfo( HB_GTI_CLIPBOARDDATA )

[JoséQuintas]

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.

[tonicm]

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

Código: Selecionar todos

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

[JoséQuintas]

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.

[tonicm]

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

Código: Selecionar todos

test := hb_gtInfo( HB_GTI_CLIPBOARDDATA )
keyboard( test )