how do I copy get to windows clipboard?

[dutch]

Dear All,

I try to copy all text in TGET by oGet:copy() to Windows Clipboard for pasting in another place by put in GET:ACTION, it doesn't work.

Code: Select all  Expand view

#include 'fivewin.ch'

Function Main
local oDlg, oGet[2], oSay, oBtn
local cword1, cword2

cword1 := 'test'+space(16)
cword2 := space(20)

DEFINE DIALOG oDlg FROM 0, 0 TO 120, 450 TITLE 'Support Password' PIXEL
   
   oDlg:lHelpIcon := .F.
   
   @   8,  5 SAY 'Word 1' OF oDlg SIZE 50, 12 PIXEL
   @  23,  5 SAY 'Word 2' OF oDlg SIZE 50, 12 PIXEL

   @   5, 55 GET oGet[1] VAR cword1 OF oDlg SIZE 100, 13 PIXEL ;
         ACTION (oGet[1]:Copy(), MsgInfo('Copy..'))
   @  20, 55 GET oGet[2] VAR cword2 OF oDlg SIZE 100, 13 PIXEL


ACTIVATE DIALOG oDLg CENTER

return nil

I use Ctrl+A, it doesn't work.

I use RClick (Select All) and then copy, it work as I need.

Is it possible, to use oGet:copy()?

Thanks in advance for any help.

[Enrico Maria Giordano]

Code: Select all  Expand view

ACTION (oGet[1]:SelectAll(), oGet[1]:Copy(), MsgInfo('Copy..'))

EMG

[dagiayunus]

Dear Mr.Dutch

Please try the sample

Code: Select all  Expand view

   #include 'fivewin.ch'
   
    static oclp
   
    Function Main
    local oDlg, oGet[2], oSay, oBtn
    local cword1, cword2

    cword1 := 'test'+space(16)
    cword2 := space(20)

    DEFINE DIALOG oDlg FROM 0, 0 TO 120, 450 TITLE 'Support Password' PIXEL
       
       oDlg:lHelpIcon := .F.
       
       @   8,  5 SAY 'Word 1' OF oDlg SIZE 50, 12 PIXEL
       @  23,  5 SAY 'Word 2' OF oDlg SIZE 50, 12 PIXEL

       @   5, 55 GET oGet[1] VAR cword1 OF oDlg SIZE 100, 13 PIXEL ;
             ACTION (oClp:SetText( cword1 ), MsgInfo('Copy..'))
       @  20, 55 GET oGet[2] VAR cword2 OF oDlg SIZE 100, 13 PIXEL

    DEFINE CLIPBOARD oClp OF oDlg
    ACTIVATE DIALOG oDLg CENTER
    oClp:End()
    return nil

[dutch]

Dear EMG,

Thank you so much for your wonderful idea.

Code: Select all  Expand view

ACTION (oGet[1]:SelectAll(), oGet[1]:Copy(), MsgInfo('Copy..'))

EMG

[Horizon]

Hi dutch,

I use this procedure.

Code: Select all  Expand view

...
Copy_Clipboard(XREF_NO1)
...

PROCEDURE Copy_Clipboard(cText)
LOCAL oClp
DEFAULT cText := ""
    DEFINE CLIPBOARD oClp OF oApp:oDlg   // This is my main window
    cText := ALLTRIM(cText)
    oClp:SetText(cText)
    oClp:End()
RETURN

[dutch]

Thank you so much, Hakan.