#define HB_GTI_CLIPBOARDPAST 16 /* Paste clipboard data into keyboard buffer */

I don't think we should replicate such bad typos of xhb.

BTW, this whole feature isn't terribly useful (IOW: bloat)
as it can be replaced with two very simple function calls.
(hb_gtInfo() + hb_keyPut()). I use some transformation
between the two to filter out some unwanted chars.

Brgds,
Viktor



But my proposition for Enrico (if I good understand his needs) is:

// -------------------------- smaple.prg ---------------------
#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
//------------------------------- EOF -----------------------
   Regards

   Jacek Kubica



MB> 2009/10/23 Guillermo Varona Silupú <[email protected]>:
How does Copy and Paste?
Does it work in console mode?
Some example.
TIA
BestRegards
GVS


Enrico Maria Giordano escribió:

Dear friends, the following sample seems to paste nothing in the GET:

#include "Hbgtinfo.ch"


FUNCTION MAIN()

  LOCAL GetList := {}

  LOCAL cGet := SPACE( 30 )

  HB_GTINFO( HB_GTI_CLIPBOARDPAST )

  @ 10, 10 GET cGet

  READ

  RETURN NIL

What am I missing? I already tried with xHarbour and reported this to the
xHarbour developers mailing-list.

EMG

--
EMAG Software Homepage:     http://www.emagsoftware.it
The EMG's ZX-Spectrum Page: http://www.emagsoftware.it/spectrum
The Best of Spectrum Games: http://www.emagsoftware.it/tbosg
The EMG Music page:         http://www.emagsoftware.it/emgmusic
_______________________________________________
Harbour mailing list
[email protected]
http://lists.harbour-project.org/mailman/listinfo/harbour


_______________________________________________
Harbour mailing list
[email protected]
http://lists.harbour-project.org/mailman/listinfo/harbour

_______________________________________________
Harbour mailing list
[email protected]
http://lists.harbour-project.org/mailman/listinfo/harbour

Reply via email to