ShortCuts on Menus How ??

[Dionisis Divaris]

Hello again
How can we make ShortCusts in menu Options... I shaw tAlt+F4 means
ALT+F4 . How can we declare i.e
Ctrl+X or F12 like shortcuts. When the documentation of Tmenu etc.. is
expected ???
TIA
Dionisis

[jfgimenez]

Dionisis,
> How can we make ShortCusts in menu Options... I shaw tAlt+F4 means
> ALT+F4 . How can we declare i.e
> Ctrl+X or F12 like shortcuts. When the documentation of Tmenu etc.. is
> expected ???
There is no support for menu shortcuts as you expect, sorry. You can put
"description t shortcut" in any menuitem text, but Xailer does nothing with
it. You have to check the pressed keys in the form's OnKeyDown event.
--
Regards,
Jose F. Gimenez

[jfgimenez]

Dionisis,
> How can we make ShortCusts in menu Options... I shaw tAlt+F4 means
> ALT+F4 . How can we declare i.e
> Ctrl+X or F12 like shortcuts. When the documentation of Tmenu etc.. is
> expected ???
There is no support for menu shortcuts as you expect, sorry. You can put
"description t shortcut" in any menuitem text, but Xailer does nothing with
it. You have to check the pressed keys in the form's OnKeyDown event.
--
Regards,
Jose F. Gimenez

[Dionisis Divaris]

Ï "Jose F. Gimenez" <jfgimenez@wanadoo.es> Ýãñáøå óôï ìÞíõìá
news:441c0279$[email=1@ozsrvnegro.ozlan.local...]1@ozsrvnegro.ozlan.local...[/email]
> Dionisis,
>
>> How can we make ShortCusts in menu Options... I shaw tAlt+F4 means
>> ALT+F4 . How can we declare i.e
>> Ctrl+X or F12 like shortcuts. When the documentation of Tmenu etc.. is
>> expected ???
>
> There is no support for menu shortcuts as you expect, sorry. You can put
> "description t shortcut" in any menuitem text, but Xailer does nothing
> with it. You have to check the pressed keys in the form's OnKeyDown event.
This event (OnKeyDown) pass 3 parametrers
1st ïSender = wich object set thie triger, I think
2nd nKey = VK_??? if i am correct and
3rd nFlags = I need an small example here if it possible.
Many Thanks
Dionisis
>
>
> --
> Regards,
>
> Jose F. Gimenez
>

[Dionisis Divaris]

Ï "Jose F. Gimenez" <jfgimenez@wanadoo.es> Ýãñáøå óôï ìÞíõìá
news:441c0279$[email=1@ozsrvnegro.ozlan.local...]1@ozsrvnegro.ozlan.local...[/email]
> Dionisis,
>
>> How can we make ShortCusts in menu Options... I shaw tAlt+F4 means
>> ALT+F4 . How can we declare i.e
>> Ctrl+X or F12 like shortcuts. When the documentation of Tmenu etc.. is
>> expected ???
>
> There is no support for menu shortcuts as you expect, sorry. You can put
> "description t shortcut" in any menuitem text, but Xailer does nothing
> with it. You have to check the pressed keys in the form's OnKeyDown event.
This event (OnKeyDown) pass 3 parametrers
1st ïSender = wich object set thie triger, I think
2nd nKey = VK_??? if i am correct and
3rd nFlags = I need an small example here if it possible.
Many Thanks
Dionisis
>
>
> --
> Regards,
>
> Jose F. Gimenez
>

[jfgimenez]

Dionisis,
> This event (OnKeyDown) pass 3 parametrers
> 1st ïSender = wich object set thie triger, I think
> 2nd nKey = VK_??? if i am correct and
> 3rd nFlags = I need an small example here if it possible.
METHOD FormKeyDown( oSender, nKey, nFlags ) CLASS TMainForm
IF lGetKeyState( VK_CONTROL ) // Ctrl + ...
IF nKey == Asc( "O" ) // Open file
::OpenFile()
RETURN 0
ELSEIF nKey == Asc( "P" ) // Print
::Print()
RETURN 0
ELSEIF nKey == VK_F4 // Close file
::CloseFile()
RETURN 0
ENDIF
ELSEIF lGetKeyState( VK_SHIFT ) // Shift + ...
...
ELSE // Without Ctrl nor Shift
...
ENDIF
RETURN Nil
--
Regards,
Jose F. Gimenez

[jfgimenez]

Dionisis,
> This event (OnKeyDown) pass 3 parametrers
> 1st ïSender = wich object set thie triger, I think
> 2nd nKey = VK_??? if i am correct and
> 3rd nFlags = I need an small example here if it possible.
METHOD FormKeyDown( oSender, nKey, nFlags ) CLASS TMainForm
IF lGetKeyState( VK_CONTROL ) // Ctrl + ...
IF nKey == Asc( "O" ) // Open file
::OpenFile()
RETURN 0
ELSEIF nKey == Asc( "P" ) // Print
::Print()
RETURN 0
ELSEIF nKey == VK_F4 // Close file
::CloseFile()
RETURN 0
ENDIF
ELSEIF lGetKeyState( VK_SHIFT ) // Shift + ...
...
ELSE // Without Ctrl nor Shift
...
ENDIF
RETURN Nil
--
Regards,
Jose F. Gimenez

[Dionisis Divaris]

Ï "Jose F. Gimenez" <jfgimenez@wanadoo.es> Ýãñáøå óôï ìÞíõìá
news:[email=441c0b50@ozsrvnegro.ozlan.local...]441c0b50@ozsrvnegro.ozlan.local...[/email]
> Dionisis,
>
>> This event (OnKeyDown) pass 3 parametrers
>> 1st ïSender = wich object set thie triger, I think
>> 2nd nKey = VK_??? if i am correct and
>> 3rd nFlags = I need an small example here if it possible.
>
> METHOD FormKeyDown( oSender, nKey, nFlags ) CLASS TMainForm
>
> IF lGetKeyState( VK_CONTROL ) // Ctrl + ...
> IF nKey == Asc( "O" ) // Open file
> ::OpenFile()
> RETURN 0
> ELSEIF nKey == Asc( "P" ) // Print
> ::Print()
> RETURN 0
> ELSEIF nKey == VK_F4 // Close file
> ::CloseFile()
> RETURN 0
> ENDIF
> ELSEIF lGetKeyState( VK_SHIFT ) // Shift + ...
> ...
> ELSE // Without Ctrl nor Shift
> ...
> ENDIF
>
> RETURN Nil
>
> --
> Regards,
>
> Jose F. Gimenez
>Many thanks for the sample 100% understood
if you solve and the help problem you make me 100% happy
TIA
Dionisis

[Dionisis Divaris]

Ï "Jose F. Gimenez" <jfgimenez@wanadoo.es> Ýãñáøå óôï ìÞíõìá
news:[email=441c0b50@ozsrvnegro.ozlan.local...]441c0b50@ozsrvnegro.ozlan.local...[/email]
> Dionisis,
>
>> This event (OnKeyDown) pass 3 parametrers
>> 1st ïSender = wich object set thie triger, I think
>> 2nd nKey = VK_??? if i am correct and
>> 3rd nFlags = I need an small example here if it possible.
>
> METHOD FormKeyDown( oSender, nKey, nFlags ) CLASS TMainForm
>
> IF lGetKeyState( VK_CONTROL ) // Ctrl + ...
> IF nKey == Asc( "O" ) // Open file
> ::OpenFile()
> RETURN 0
> ELSEIF nKey == Asc( "P" ) // Print
> ::Print()
> RETURN 0
> ELSEIF nKey == VK_F4 // Close file
> ::CloseFile()
> RETURN 0
> ENDIF
> ELSEIF lGetKeyState( VK_SHIFT ) // Shift + ...
> ...
> ELSE // Without Ctrl nor Shift
> ...
> ENDIF
>
> RETURN Nil
>
> --
> Regards,
>
> Jose F. Gimenez
>Many thanks for the sample 100% understood
if you solve and the help problem you make me 100% happy
TIA
Dionisis