Código: Selecionar todos
VTEXTO := MemoEdit(TEXTO_EDITAR,1,1,21,78,.T.,"xmemo",73)Código: Selecionar todos
hb_gtInfo( HB_GTI_CLIPBOARDDATA )No memoedit é a mesma coisa.Noutras situações (GET) utilizo o seguinte para colar o que está na clipboard:
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
Colocou pra não funcionar se não for get.Tenho a tecla Control + V que chama a função abaixo.
Código: Selecionar todos
test := hb_gtInfo( HB_GTI_CLIPBOARDDATA )
keyboard( test )