Página 1 de 1
Tem como colar um conteudo externo no get em HARBOUR?
Enviado: 24 Jul 2015 15:06
por 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é+
Tem como colar um conteudo externo no get em HARBOUR?
Enviado: 03 Ago 2015 15:01
por ANDRIL
Alguém possui uma solução ou idéia?
Ate+
Tem como colar um conteudo externo no get em HARBOUR?
Enviado: 03 Ago 2015 16:37
por Kapiaba
Tem como colar um conteudo externo no get em HARBOUR?
Enviado: 03 Ago 2015 23:48
por 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
} )
Tem como colar um conteudo externo no get em HARBOUR?
Enviado: 04 Ago 2015 08:16
por 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+
Tem como colar um conteudo externo no get em HARBOUR?
Enviado: 04 Ago 2015 19:50
por janio
A dica do Quintas funcionou de primeira!
Janio
Tem como colar um conteudo externo no get em HARBOUR?
Enviado: 05 Ago 2015 07:45
por ANDRIL
janio escreveu:A dica do Quintas funcionou de primeira!
É isso aí! Obrigado José!
Ate+
Tem como colar um conteudo externo no get em HARBOUR?
Enviado: 15 Ago 2015 19:55
por clodoaldomonteiro
Amigo Quintas,
A rotina que você aqui colocou só funciona com a GTWVW?
Tem como colar um conteudo externo no get em HARBOUR?
Enviado: 18 Ago 2015 20:05
por Nascimento
por curiosidade funciona na gtwvt ?
Tem como colar um conteudo externo no get em HARBOUR?
Enviado: 03 Jan 2022 16:07
por kovalsk
Funcionou de primeira sem nenhuma alteração na gtwvt