Set function key to a Value

[franco]

Hello again,
I am trying to set function keys to values like I did in Clipper.
Clipper command Set function 22 to '123'
When ever I hit ctrl+function 2 in a inputbox or textbox it would type 123 in the box.
I can not get this to work in HMG, I know there must be a way to do it.

Thanks in advance........... Franco

[serge_girard]

Franco,

you can use:

ON KEY F1 ACTION {somefunction() }


Serge

[franco]

Serge
how could I say
ON KEY F22 KEYBOARD '123'
fRANCO

[serge_girard]

Franco,

Try this:

Code: Select all

DEFINE WINDOW Form_1
...
ON KEY F1 ACTION somefunction() 
...
END WINDOW



FUNCTION Somefunction()
keyboard '123'
RETURN

[trmpluym]

Franco

If you use the GUI the command "keyboard" does not work.

When i assume the window (form) is named Form_1, you can use this:

Code: Select all

ON KEY F1 OF Form_1 ACTION Somefunction()

FUNCTION Somefunction()

_Pushkey(VK_1)		// Press "1"
_Pushkey(VK_2)		// Press "2"
_Pushkey(VK_3)		// Press "3"

RETURN

Theo

[Roberto Lopez]

Hi Franco,

Alternatively, you could do this:

Code: Select all

ON KEY F1 OF Form_1 ACTION Somefunction()

FUNCTION Somefunction()

    cFocusedControl := GetProperty( 'Form_1' , 'FocusedControl' )
    SetProperty( 'Form_1' , FocusedControl , 'Value' , '123' )

RETURN

[Roberto Lopez]

Hi Franco,

Alternatively, you could do this:

Code: Select all

ON KEY F1 OF Form_1 ACTION Somefunction()

FUNCTION Somefunction()

    cFocusedControl := GetProperty( 'Form_1' , 'FocusedControl' )
    SetProperty( 'Form_1' , cFocusedControl , 'Value' , '123' )

RETURN

Or:

Code: Select all

ON KEY F1 OF Form_1 ACTION SetProperty( 'Form_1' , GetProperty( 'Form_1' , 'FocusedControl' ) , 'Value' , '123' )

[trmpluym]

Hi Franco,

A little addition to the very nice code of Roberto. To preserve errors when pressing F1 check if the focussed control is an EDITBOX.

Code: Select all

FUNCTION Somefunction()

cFocusedControl := GetProperty( 'Form_1' , 'FocusedControl' )

IF GetControlType( cFocusedControl , "Form_1") == "EDITBOX" 
    SetProperty( 'Form_1' , cFocusedControl , 'Value' , '123' )
ENDIF 

RETURN

In addition, to be perfect, you also have to check if the "EDITBOX" is ReadOnly.

Theo

[Roberto Lopez]

Theo:

AFAIR, the values returned by GetControlType() are the following for text inputs:

For TextBox:

"NUMTEXT", "TEXT","MASKEDTEXT"

For EditBox:

"EDIT" (not 'EDITBOX' )

So, The correct code should be:

Code: Select all

FUNCTION Somefunction()

cFocusedControl := GetProperty( 'Form_1' , 'FocusedControl' )

IF GetControlType( cFocusedControl , "Form_1") == "EDIT" .Or. GetControlType( cFocusedControl , "Form_1") == "TEXT" 
    SetProperty( 'Form_1' , cFocusedControl , 'Value' , '123' )
ENDIF 

RETURN

[trmpluym]

Roberto,

You are right, thanks for improving the demo !

Franco can go on now

Theo