Hi all,
I'm new to Harbour compiler. Great piece of code !
Today I tried to compile an old Clipper 5.2e program that still works.
I found a difference between the two compilers. I have made a code example.
///////////////////////////////////////////////////////
//Use of SET FUNC instead of SET FUNCTION
//
//This gives easy keyboard control.
//Example
//...{get code}...
//nKey := Val( KeyProcess )
//Do Case
//Case nKey == K_F2
//..Do Something
//Case nKey == K_F3
//..Do Something else
//Case nKey == K...
//...
//EndCase
//////////////////////////////////////////////////////
Function Main()
Local cTest := "Test "
Local cK := "2"
Local cV := "Chr( 23 ) + '-1;'"
Local nKey
@ 0, 0 clear
Set Func &cK to &cV
@ 4, 0 to 4, 80
@ 7, 0 to 7, 80
@ 3, 2 get cTest pict "@!"
Read
nKey := Val( KeyProcess( ))
@08,0
?? "Main(): LastKey() -> "
?? lastkey()
? "Main(): nKey -> "
?? nkey
@20, 0
Function KeyProcess( )
Local xKey := LastKey( )
accept ' ' to xKey
@05,0
?? "Tasti(): LastKey() -> "
?? lastkey()
? "Tasti(): xKey -> "
?? xkey
Return( xKey )
The accept command in Clipper works well and there is no wait, while Harbour
needs an ENTER keypress to have same behaviour.
Regards,
Marco
_________________________________________________________________
Di che umore sei oggi? Dillo con le Emoticon
http://intrattenimento.it.msn.com/emoticon_______________________________________________
Harbour mailing list (attachment size limit: 40KB)
Harbour@harbour-project.org
http://lists.harbour-project.org/mailman/listinfo/harbour
