paste in -gtwvt

[fperillo]

How to do a "paste" when using -gtwvt ?

Francesco

[Massimo Belgrano]

without modification You can only copy  

or follow this way

#include "Hbgtinfo.ch"
FUNCTION MAIN()
   LOCAL GetList := {}, myGet

   myGet := PADR(HB_GTINFO(  HB_GTI_CLIPBOARDPASTE ),30)

   @ 1, 1 say "From clipboard" GET myGet
   READ

   RETURN NIL

2012/1/24 fperillo <fper...@gmail.com>

How to do a "paste" when using -gtwvt ?

Francesco

--
You received this message because you are subscribed to the Google
Groups "Harbour Users" group.
Unsubscribe: harbour-user...@googlegroups.com
Web: http://groups.google.com/group/harbour-users

--
Massimo Belgrano

[francesco perillo]

ok.... so I may have a SET KEY F9 to paste()
and in paste() have a keyboard( HB_GTINFO(  HB_GTI_CLIPBOARDPASTE ) )

....

I will try

Thank you
Francesco

[francesco perillo]

just to confirm that

set key K_F6     to forcePaste()
function forcePaste()

keyboard( HB_GTINFO(  HB_GTI_CLIPBOARDPASTE ) )

return .t.

Now I should only check if ctrl-v or shift-ins have a keycode...

Thanks

[Viktor Szakáts]

> keyboard( HB_GTINFO( HB_GTI_CLIPBOARDPASTE ) )

HB_GTI_CLIPBOARDPASTE is already stuffing the 

clipboard into the keyboard buffer, so it's enough to use:

   hb_gtInfo( HB_GTI_CLIPBOARDPASTE )

If you need the content of the clipboard as a string, use:

   hb_gtInfo( HB_GTI_CLIPBOARDDATA )

To set the clipboard:

   hb_gtInfo( HB_GTI_CLIPBOARDDATA, <cData> )

These work with all GTs, not just GTWVT.

Viktor