>-----Original Message-----
>From: Pritpal Bedi [mailto:bediprit...@hotmail.com] 
>Sent: Friday, November 27, 2009 5:49 PM
>To: harbour@harbour-project.org
>Subject: RE: [Harbour] SF.net SVN: harbour-project:[13028] 
>trunk/harbour
>
>
>Hi
>
>
>Horodyski Marek (PZUZ) wrote:
>> 
>> In GTWVG i must from time to time hit right alt key, because cursor 
>> keys don't work.
>> After push right alt key, all returns to normal.
>> 
>
>I never experienced such activity so far.
>If you can reduce it to some compilable code I can check.
>
>Regards
>Pritpal Bedi

I have an example! :)

/* test.prg, try it with GTWVG, GTWVT on WinXP */

Function Main()
Local key
#include "inkey.ch"

KSetCaps( .t.)
Cls
? 'press and release the left alt and then press the arrow keys,'
? 'then press and release right alt and then press the arrow keys.
? 'When there is no difference - 3x repeat the test.'

? 'Hit any key, ESC edns ...'

While ( key := InKey( 0, INKEY_ALL)) != 27
 ? key
End
__Wait( '...?')
Return Nil

/* eof */

Regards,
Marek Horodyski
_______________________________________________
Harbour mailing list (attachment size limit: 40KB)
Harbour@harbour-project.org
http://lists.harbour-project.org/mailman/listinfo/harbour

Reply via email to