Existe alguma maneira de ativar a opção Copiar/Colar no menu que se abre quando se clica no Ãcone da janela do programa
Quer dizer executar funções apenas entra no programa ? Antes de entrar, clicando no atalho ? Não entendÃ.
Gerei o executável ma apenas aparece Mark and Copy porém necessito liberar para o cliente colar e não estou conseguindo...
Você tem a rotina ? Pode postar parte do código para ver ? Se você consegue copiar então vai poder utilizar o que colocou na área de transferência para colar depois. Você verificou se está colocando algo na área de transferência ? Se sim, então é só fazer na outra opção a função para colar.
Eu nunca usei GTWVG, em HMG é extremamente fácil.
Para copiar basta colocar na sua opção colar:
System.Clipboard := 'Hello Clipboard!!!'E para colar: sua_variavél:=System.Clipboard
Em termos de Harbour eis uns exemplos funções em C para colar:
#pragma BEGINDUMP
#include <windows.h>
#include "hbapi.h"
/*
Cut_Text( nHandle )
Cut the selected text to clipboard from window
*/
HB_FUNC( CUT_TEXT )
{
SetFocus( (HWND) hb_parnl( 1 ) );
SendMessage( ( HWND ) hb_parnl( 1 ), WM_CUT, 0 , 0 );
}
/*
Paste_Text( nHandle )
Paste text from the clipboard into the window
*/
HB_FUNC( PASTE_TEXT )
{
SetFocus( ( HWND ) hb_parnl( 1 ) );
SendMessage( ( HWND ) hb_parnl( 1 ), WM_PASTE, 0 , 0 );
}
#pragma ENDDUMP
O conteúdo que você deseja copiar/colar, é texto ?
Eu ja utilizei Hb_GtInfo( HB_GTI_CLIPBOARDDATA, cTexto ) para inserir texto na área de transferência.
Eis outro código exemplo:
#include "Hbgtinfo.ch"
FUNCTION MAIN()
LOCAL GetList := {}
LOCAL cGet
//HB_GTINFO( HB_GTI_CLIPBOARDDATA,"Test" ) - set CLIPBOARD data to
// test
cGet := PADR(HB_GTINFO( HB_GTI_CLIPBOARDDATA),30)
@ 10, 10 GET cGet
READ
RETURN NIL
Uma vez que você leu o conteúdo texto do clipboard ou área de transferência para uma <variavel>, e o usuário estiver num get e você quer simular tecla F10 para copiar dentro. Primeiro defino a tecla F10 para chamar uma função que cole o conteúdo e depois dou um KEYBOARD <variavel>.
..//..
SET KEY -9 TO COLAR()
@ ... GET cVar
READ
..//..
FUNCTION COLAR()
cLido:=HB_GTINFO( HB_GTI_CLIPBOARDDATA)
KEYBOARD cLido
RETURN NIL
Tiver ainda dúvidas de como fazer, poste o seu código que ficará mais fácil de ajuda-lo.