Tem como colar um conteudo externo no get em HARBOUR?

[ANDRIL]

Pessoal, compilo o sistema com HB3.2 e Mingw, uso GTWVG em modo GUI estilo console. Gostaria de poder copiar um determinado texto com mouse (no notepad, do internet explore etc) e colar em um get no sistema, porem não consigo. O botao direito não surge as opções de 'COLAR' e se clico na barra do programa com o direito, surge apenas "Mark and Copy". Tem como habilitar isso no sistema?
Meu .hbp

Código: Selecionar todos

-w0
-es0
-gtwvg
-gui
-m
-osistema
-inc
-lhbwin
-lhbtip
-lhbct
-lxhb

Habilitei no fonte:

Código: Selecionar todos

hb_gtInfo( HB_GTI_CLIPBOARDDATA )
hb_gtInfo( HB_GTI_SELECTCOPY, .T. )

Até+

[ANDRIL]

Alguém possui uma solução ou idéia?
Ate+

[Kapiaba]

https://pctoledo.org/forum/viewtopic.php?p=72440

[JoséQuintas]

Mais uma pra lista, uso na GTWVG, colocando no início do programa principal:

Código: Selecionar todos

   hb_gtInfo( HB_GTI_INKEYFILTER, ;
      { | nKey |
      LOCAL nBits, lIsKeyCtrl
      nBits := hb_GtInfo( HB_GTI_KBDSHIFTS )
      lIsKeyCtrl := ( nBits == hb_BitOr( nBits, HB_GTI_KBD_CTRL ) )
      SWITCH nKey
      CASE HB_K_CLOSE
         RETURN K_ESC
      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_TAB
         RETURN K_DOWN
      CASE K_SH_TAB
         RETURN K_UP
      CASE K_CTRL_V
         IF lIsKeyCtrl
            hb_GtInfo( HB_GTI_CLIPBOARDPASTE )
            RETURN 0
         ENDIF
      CASE K_CTRL_C
         IF lIsKeyCtrl
            IF GetActive() != NIL
               hb_gtInfo( HB_GTI_CLIPBOARDDATA, Transform( GetActive():VarGet(), "" ) )
               RETURN 0
            ENDIF
         ENDIF
      ENDSWITCH
      RETURN nKey
       } )
 

[ANDRIL]

Obrigado pelas indicações e exemplos. Ainda não tive tempo de testar, esses exemplos postados permitem que sejam colados conteudos copiados de um arquivo texto para um campo memo ou um get, ou seja, de outro aplicativo para o meu?

Ate+

[janio]

A dica do Quintas funcionou de primeira!

Janio

[ANDRIL]

A dica do Quintas funcionou de primeira!

É isso aí! Obrigado José!
Ate+

[clodoaldomonteiro]

Amigo Quintas,

A rotina que você aqui colocou só funciona com a GTWVW?

[Nascimento]

por curiosidade funciona na gtwvt ?

[kovalsk]

Funcionou de primeira sem nenhuma alteração na gtwvt