Peço mais uma vez ajuda aos caros colegas pois fiz e não ta copiando
coloquei um print p ver se estava sendo chamado a rotina copiar e não está
Vou deixar o código caso alguém possa dar uma olhada.
outro detalhe é que dar erro no Clear TypeHead, o sistema para de funcionar fica travando e não sai
*Prg para teste de Copiar e colar dados
#include "FiveWin.ch"
#include "inkey.ch"
#include "hbgtinfo.ch"
static TesteInkey
//----------------------------------------------------------------------------//
CLASS TesteInkey FROM JanDlg
export:
METHOD getInstance(oWnd)
METHOD BuildDlg()
hidden:
METHOD New(oWnd) CONSTRUCTOR
METHOD DeleteW()
METHOD Copiar()
METHOD Colar()
DATA xCampo1,xCampo2,xCampo3,xCampo4,xCampo5,xCampo6
DATA gCampo1,gCampo2,gCampo3,gCampo4,gCampo5,gCampo6
DATA bCopiar, bColar ,cBuffer
ENDCLASS
//----------------------------------------------------------------------------//
METHOD getInstance(oWnd) CLASS TesteInkey
IF TesteInkey = nil
TesteInkey := ::New(oWnd,"#8041",325,130,"Teste Inkey")
ELSE
TesteInkey:oChld:SetFocus()
ENDIF
return TesteInkey
//------------------------------------------------------------------------------
METHOD New(oWind,cIcone,vLarg,vAlt,cTitulo) CLASS TesteInkey
super:New(oWind,cIcone,vLarg,vAlt,cTitulo)
ACTIVATE DIALOG ::oDlg NOMODAL VALID ( TesteInkey:oChld:End(), .t.)
RETURN self
//------------------------------------------------------------------------------
METHOD BuildDlg(oWnd) CLASS TesteInkey
local nCtrlC:= SetKey( K_CTRL_C, { || ::Copiar() } )
local nCtrlV:= SetKey( K_CTRL_V, { || ::Colar() } )
DEFINE DIALOG ::oDlg RESOURCE "#1161" OF ::oChld
Clear Screen
::xCampo1 := "1234"
::xCampo2 := "5678"
::xCampo3 := "4679"
::xCampo4 := "9564"
::xCampo5 := "3256"
REDEFINE GET ::gCampo1 VAR ::xCampo1 ID 4001 OF ::oDlg
REDEFINE GET ::gCampo2 VAR ::xCampo2 ID 4002 OF ::oDlg
REDEFINE GET ::gCampo3 VAR ::xCampo3 ID 4003 OF ::oDlg
REDEFINE GET ::gCampo4 VAR ::xCampo4 ID 4004 OF ::oDlg
REDEFINE GET ::gCampo5 VAR ::xCampo5 ID 4005 OF ::oDlg
REDEFINE GET ::gCampo6 VAR ::xCampo6 ID 4006 OF ::oDlg
SetKey( K_CTRL_C, nCtrlC )
SetKey( K_CTRL_V, nCtrlV )
return Nil
//------------------------------------------------------------------------------
METHOD DeleteW() CLASS TesteInkey
TesteInkey:= nil
return .T.
//------------------------------------------------------------------------------
METHOD Copiar() CLASS TesteInkey
::cBuffer := AllTrim( ::xCampo1 ) + AllTrim( ::xCampo2 ) + AllTrim( ::xCampo3 ) + AllTrim( ::xCampo5 ) + AllTrim( ::xCampo6 )
HB_GTINFO( HB_GTI_CLIPBOARDDATA, ::cBuffer)
Return
//------------------------------------------------------------------------------
METHOD Colar() CLASS TesteInkey
Clear TypeaHead
KeyBoard ::cBuffer
return Nil