Ken,

That works well for me. I will have my customer test it.
BTW, your F9 thru F15 codes are wrong.
Should be like this:

_F1 = 122
_F2 = 120
_F3 = 99
_F4 = 118
_F5 = 96
_F6 = 97
_F7 = 98
_F8 = 100
_F9 = 101
_F10 = 109
_F11 = 103
_F12 = 111
_F13 = 105
_F14 = 107
_F15 = 113
_F16 = 106

Thanks,
Rich

On Mar 18, 2008, at 11:18 AM, Ken Shmidheiser wrote:

> Rich asked:
>
>> Does anybody have a good routine for detecting function keys?
>
>
> Rich,
>
> Maybe this will be helpful. It compiles without error in both FB and  
> FBtoC. But I recommend you consider Carbon Events for new development.
>
> Ken
>
>
> /*
>
>   Function Key Demo — FB Old School
>
>   Compiles in FB and FBtoC
>
>   Carbon Events would be a better choice
>   to new applications, but this works
>
>   Ken Shmidheiser
>   March 18, 2008
>
>   PLEASE READ NOTE BELOW...
>
> */
>
> _F1 = 122
> _F2 = 120
> _F3 = 99
> _F4 = 118
>
> _F5 = 96
> _F6 = 97
> _F7 = 98
> _F8 = 100
>
> /*
>
> Note: The following function keys F9 through F15
> are preassigned by System for certain functions.
> I recommend not using this code with them.
>
> _F9 = 9         // Activate Exposé
> _F10 = 10       // Dim background
> _F11 = 11       // Show Desktop
> _F12 = 12 = 111 // Eject CD
>
> _F13 = 13 = 104 // Print screen
> _F14 = 14       // Scroll lock
> _F15 = 15       // Pause
>
> */
>
> local fn DoFKey( whichKey as Long )
> '~'1
> cls
> select case whichKey
> case _F1 : print "F1"
> case _F2 : print "F2"
> case _F3 : print "F3"
> case _F4 : print "F4"
> case _F5 : print "F5"
> case _F6 : print "F6"
> case _F7 : print "F7"
> case _F8 : print "F8"
> case else : exit fn
> end select
>
> end fn
>
> local fn DoEvent
> '~'1
> dim ev as ^EventRecord
> dim as Long keyCode
>
> ev = Event
>
> select case ( ev.what )
> case _keyDwnEvt
> keycode = ( ev.message >> 8 ) and 255
> select case ( keycode )
> case _F1  : fn DoFKey( keycode )
> case _F2  : fn DoFKey( keycode )
> case _F3  : fn DoFKey( keycode )
> case _F4  : fn DoFKey( keycode )
> case _f5  : fn DoFKey( keycode )
> case _F6  : fn DoFKey( keycode )
> case _F7  : fn DoFKey( keycode )
> case _F8  : fn DoFKey( keycode )
> case else : fn DoFKey( keycode )
> end select
> ev.what = _nullEvt
> end select
>
> end fn
>
> on Event fn DoEvent
>
> print "Press an FKey key."
>
> do
> HandleEvents
> until gFBQuit
>
> --
> To unsubscribe, send ANY message to: futurebasic-unsubscribe@...
>