meine Umstellung von Clipper zu XBase geht weiter. Aber leider auch meine Probleme dabei
Um in Masken (Say - Get - Read) in den Get Felder zu springen,
hab ich bisher diese Routinen benutzt.
Aber chr(5) oder chr(24) gehen unter XBase nicht mehr.
Chr(13) funktioniert aber.
Wo ist der Fehler?
Also proc rechts geht - proc links geht nicht
Code: Alles auswählen
..
set key 2 to rechts && Strg-Rechts
set key 26 to links && Strg-Links
..
*******************************************************************************
proc rechts
if form > 2
return
endif
spalte = col()
reihe = row()
if spalte >= 72
return
endif
mak1 = "chr(13)"
imax = if(form = 1,20,10)
for i = 1 to imax - 1
mak1 = mak1 + " + chr(13)"
next
keyboard &mak1
return
*******************************************************************************
proc links
if form > 2
return
endif
spalte = col()
reihe = row()
mak1 = "chr(5)"
imax = if(form = 1,20,10)
for i = 1 to imax - 1
mak1 = mak1 + " + chr(5)"
next
keyboard &mak1
return
*******************************************************************************