>-----Original Message----- >From: Horodyski Marek (PZUZ) >Sent: Tuesday, December 01, 2009 12:53 PM >To: Harbour Project Main Developer List. >Subject: RE: [Harbour] SF.net SVN: harbour-project:[13028] >trunk/harbour > >I have an example! :)
... *-------------------- 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 *------------------ I forgot - KSetCaps() is from ct lib. Regards, Marek Horodyski _______________________________________________ Harbour mailing list (attachment size limit: 40KB) [email protected] http://lists.harbour-project.org/mailman/listinfo/harbour
