Page 1 of 1

RightAlt+V and RightAlt+X in TGet

PostPosted: Tue Mar 07, 2006 4:46 pm
by modicr
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  Expand view
      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

PostPosted: Thu Mar 09, 2006 1:45 pm
by modicr
Hello!

I changed above code to
Code: Select all  Expand view
      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.

PostPosted: Thu Mar 09, 2006 5:51 pm
by Antonio Linares
Roman,

Thanks! :)