FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin for Harbour/xHarbour Clipboard TEXT
Posts: 1772
Joined: Thu Sep 05, 2019 05:32 AM

Clipboard TEXT

Posted: Tue Feb 28, 2023 07:11 AM
hi,

i copy Filename from App to Clipboard
later i paste from Cliboard back to App and want "goto" File

but it does not work :shock:

paste Filename into Notepad
mark Filename "in" Notepad and copy back to Clipboard

now it work :D

---

than i had a look into Logfile and found
28.02.2023 07:46:42: COPYTOCLIPBOARD( 3386 ) cText = E"C:\fwh\0\LISTVIEW\TGRID.BAK\r\n "
28.02.2023 07:47:08: TEXTFROMCLIPBOARD( 3400 ) cText = E"C:\fwh\0\LISTVIEW\TGRID.BAK\r\n"

28.02.2023 07:47:25: TEXTFROMCLIPBOARD( 3400 ) cText = "C:\fwh\0\LISTVIEW\TGRID.BAK"
where are E and \r\n come from :?:
how can i get rid of it :?:

---
Code (fw): Select all Collapse
FUNCTION CopyToClipboard( cText )
LOCAL oClip := TClipBoard() :New()

   IF oClip:Open()
      oClip:SetText( cText )
*      oClip:SetWideText( cText )
      oClip:Close()
   ENDIF
   oClip:End()
RETURN nil
Code (fw): Select all Collapse
FUNCTION TextFromClipboard()
LOCAL cText := ""
LOCAL oClip := TClipBoard() :New()

   IF oClip:Open()
      cText := oClip:GetText()
*      cText := oClip:GetUnicodeText()
      oClip:Close()
   ENDIF
   oClip:End()
RETURN cText
greeting,

Jimmy

Continue the discussion