Hallo Klaus,
über die Länge der Feldnamen kann ich unterscheiden, in welches Feld eingegeben wird und die entsprechenden Eingabelängen der Felder begrenzen. Ich habe derzeit drei Felder (fdein (4), fdeinx (20), fdeinxy (20)).
Die Routine arbeite ich im Startstack ab.
Ich denke, dass bei einer keydown-target Abfrage eigentlich im Target der Feldname stehen müsste und nicht der Feldinhalt. Somit kann ich nur über the length of the target herausfinden, welches Feld gemeint ist.
Ich denke dies ist ein LiveCode-Bug.
Dein Vorschlag war schon richtig für die aktuelle Karte. Ich habe aber unterschiedliche Eingabelängen.
Danke für dein Hilfe und Geduld
herby
Medizinische Lernkarten (Startstack)
global xpfd — Programmpfad
global xdsg — Datensätze gesamt
global xdsa — Datensätze Abfragemenge
global xakt — Datensatz aktuell (random)
global xanz — Anzahl Abfragen
global xwdm — Abfrage deutsch/medizin
global xwal — Abfrage mit/ohne Abfrage
global xw12 — Sortierung deutsch/medizin
on OpenStack
if the environment is „mobile“ then
set the fullscreenmode of me to „exactFit“
put specialFolderPath(„resources“) & „/Medizin.db“ into ppfd
put specialFolderPath(„documents“) & „/Medizin.db“ into xpfd
put specialFolderPath(„resources“) & „/Lernkarten.db“ into qpfd
put specialFolderPath(„documents“) & „/Lernkarten.db“ into ypfd
if there is NOT a file xpfd then
put url(„binfile:“ & ppfd) into url(„binfile:“ & xpfd)
put url(„binfile:“ & qpfd) into url(„binfile:“ & ypfd)
end if
else
put specialfolderpath(„resources“) & „/Medizin.db“ into xpfd
put specialfolderpath(„resources“) & „/Lernkarten.db“ into ypfd
end if
–Variablen initialisieren
set the twelveHourTime to false
UhrAnzeige
Loeschen
DSgesamt
DSabfrage
put xdsa into fld „fddid“ of card id 1002
put 0 into xanz
put xanz into fld „fdaba“ of card id 1002
put true into xwdm
set the label of btn „bnmod“ of card id 1027 to „Ein“
put true into xwal
set the label of btn „bneoz“ of card id 1027 to „Ein“
put false into xw12
set the label of btn „bn1o2“ of card id 1032 to „medizin“
put „deutsch“ into fld „fdwdm“ of card id 1002
end OpenStack
on DSabfrage — xdsa Wieviele Datensätze ausgewählt ?
put revOpenDatabase(„sqlite“,xpfd, , , , ) into xsql
put „SELECT ID FROM DBMedizin WHERE Lernen = 1“ into xsel
put revDataFromQuery(tab,return,xsql,xsel) into xerg
if xerg = empty then
put 0 into xdsa
else
put xerg into xdsa
end if
revCloseDatabase xsql
end DSabfrage
on DSgesamt — xdsg Gesamtanzahl der Datensätze
put revOpenDatabase(„sqlite“,xpfd, , , , ) into xsql
put „SELECT ID FROM DBMedizin“ into xsel
put revDataFromQuery(tab,return,xsql,xsel) into xerg
put the number of lines of xerg into xdsg
revCloseDatabase xsql
end DSgesamt
on Loeschen — Anzeige löschen
put 0 into xakt
set the visible of btn „bnloe“ of card id 1002 to false
put empty into fld „fdbeg“ of card id 1002
put empty into fld „fdbes“ of card id 1002
put empty into fld „fderk“ of card id 1002
end Loeschen
on hiliteChanged
if the hilited of widget „SwB“ of card id 1027 then
set the disabled of btn „bndbz“ of card id 1027 to false
set the disabled of fld „fdein“ of card id 1027 to false
else
set the disabled of btn „bndbz“ of card id 1027 to true
set the disabled of fld „fdein“ of card id 1027 to true
end if
end hiliteChanged
on returnInField
if fld „fdein“ of card id 1027 is a number then
put fld „fdein“ of card id 1027 into fld „fdein“ of card id 1027
end if
if fld „fdeinx“ of card id 76194 then
put fld „fdeinx“ of card id 76194 into fld „fdeinx“ of card id 76194
end if
if fld „fdeinxy“ of card id 76194 then
put fld „fdeinxy“ of card id 76194 into fld „fdeinxy“ of card id 76194
end if
end returnInField
on keydown xkey
put the length of the target into x
switch
case x = 13
if the length of the fld „fdein“ of card id 1027 < 4 then
pass keydown
end if
break
case x = 14
if the length of the fld „fdeinx“ of card id 76194 < 20 then
pass keydown
end if
break
case x = 15
if the length of the fld „fdeinxy“ of card id 76194 < 20 then
pass keydown
end if
break
end switch
end keydown
on UhrAnzeige
put the time into fld „uhr“ of card id 1002
send UhrAnzeige to this stack in 250 milliseconds
end UhrAnzeige
on closeStack
quit
end closeStack
