Chris,

Did you look the getsys.prg source code? I think you will find what you are lookng for there.
   I hope it helps you.

Qatan

----- Original Message ----- From: "chris lueders" <harbour-l...@cxxl.de>
To: <harbour@harbour-project.org>
Sent: Friday, 9 de April de 2010 11:32
Subject: [Harbour] get/read compatibility with S87


hi,

i used to do clipper summer 87.  now i ported to harbour and find that
@ get/read behaves slightly different under harbour.

1) @ get/read fields can not be confirmed with ctrl-enter (chr(10)),
only with enter (chr(13)).  clipper S87 will not exit the whole read
by pressing ctrl-enter, but at least lastkey() is set to 10 in a valid
function.
2) ctrl-pgdn will not move the cursor to the last field (as in S87),
but will exit the whole read.

i would try to change that behaviour myself, but i don't know where to
start looking.

can anyone help?


proof of concept code:

  private x, y
  x = "123"
  y = "   "
  @ 0,0 get x valid showlast(0)
  @ 1,0 get y valid showlast(1)
  read

function showlast
  parameter r
  @ r,20 say lastkey() picture "9999"
return .t.

--
/chris/

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

Reply via email to