topic-2076

Board index Bugs report & fixes / Informe de errores y arreglos RightAlt+V and RightAlt+X in TGet

Posts: 207

Joined: Fri Oct 07, 2005 07:58 AM

RightAlt+V and RightAlt+X in TGet
Posted: Tue Mar 07, 2006 04:46 PM

Hello!

Whenever I press RightAlt+V (for inserting @ on Slovenian keyboards) or
RightAltX in GET controls, the cursor jumps to the beginning of the GET.
I think that the bug lies in this code (tget.prg)

Code: Select all Collapse

      case ( nKey == VK_INSERT .and. GetKeyState( VK_SHIFT ) ) .or. ;
           ( nKey == ASC("V") .and. GetKeyState( VK_CONTROL ) ) .or. ;
           ( nKey == ASC('X') .and. GetKeyState( VK_CONTROL ) )

because RightAlt means Ctrl-LeftAlt. Here it should be checked that Alt is not pressed down!

Regards, Roman

modicr

Posts: 207

Joined: Fri Oct 07, 2005 07:58 AM

RightAlt+V and RightAlt+X in TGet
Posted: Thu Mar 09, 2006 01:45 PM

Hello!

I changed above code to

Code: Select all Collapse

      case (( nKey == VK_INSERT .and. GetKeyState( VK_SHIFT ) ) .or. ;
           ( nKey == ASC("V") .and. GetKeyState( VK_CONTROL ) ) .or. ;
           ( nKey == ASC('X') .and. GetKeyState( VK_CONTROL ) )) .and. ;
           ! lAnd(nFlags, 2 ** 29)

and now it seems OK.

Antonio Linares

Posts: 44162

Joined: Thu Oct 06, 2005 05:47 PM

RightAlt+V and RightAlt+X in TGet
Posted: Thu Mar 09, 2006 05:51 PM

Roman,

Thanks!

regards, saludos

Antonio Linares
www.fivetechsoft.com

FiveTech Support Forums

Continue the discussion