FiveTech Software tech support forums

Posted: **Tue Mar 07, 2006 4: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

      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

Posted: **Thu Mar 09, 2006 1:45 pm**

Hello!

I changed above code to

Code: Select all

      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.

Posted: **Thu Mar 09, 2006 5:51 pm**

Roman,

Thanks!

FiveTech Software tech support forums

RightAlt+V and RightAlt+X in TGet

RightAlt+V and RightAlt+X in TGet