Auto insert data

[Jeff Barnes]

Hi Everybody,

I am trying to find a way to create a macro for the end user of my application.

I would like to have them do someting like press F5 and have the text "HELLO" inserted into a get.

Any Ideas?

Thanks,
Jeff

[Enrico Maria Giordano]

Try something like this

POSTSTRING( oGet:hWnd, "HELLO" )

where POSTSTRING() is:

Code: Select all  Expand view  RUN

FUNCTION POSTSTRING( hWnd, cString )

    LOCAL i, c

    DEFAULT hWnd := GETACTIVEWINDOW()

    FOR i = 1 TO LEN( cString )
        c = SUBSTR( cString, i, 1 )

        IF c > " "
            POSTMESSAGE( hWnd, WM_CHAR, ASC( c ) )
        ELSE
            POSTMESSAGE( hWnd, WM_KEYDOWN, ASC( c ) )
        ENDIF

        SYSREFRESH()
    NEXT

    RETURN NIL

EMG

[James Bott]

Or, you can try oGet:paste("Hello")

[Enrico Maria Giordano]

Much simpler. The only drawback is that it alters the clipboard, if I'm not wrong.

EMG

[James Bott]

Enrico,

>Much simpler. The only drawback is that it alters the clipboard, if I'm not wrong.

I don't believe so. If cText is NOT passed then it pastes from the clipboard, but if cText is passed, then cText is used instead. Either way the clipboard is left as is.

It also handles numeric and date types in addition to string.

James

[Enrico Maria Giordano]

Ops, you are right!

EMG

[Jeff Barnes]

Thanks James and Enrico.