ich hatte im Thread vorher schon geschrieben, dass ich Probleme habe beim Umbau von Clipper auf XBase.
Wie ihr mir geschrieben habt soll ich die appevent() Funktion nutzen.
Damit komm ich aber nicht klar.
Ich hatte mir das Beispiel DBGET2 aus den AlaskaSourcen angesehen und komme damit aber auch nicht weiter.
Ich bitte ums Nachsicht:
Ich bin Werkstofftechniker, der bislang Quick and Dirty Programmierung mit Clipper gemacht hat.
Kann mit jemand eine kurze Bauanleitung geben:
Maske aufbauen mit über 120 Get Feldern
Readmoadl(getlist,1) oder Read
wenn Taste = CtrlLinks dann
20 GetFelder weiter nach oben
wenn Taste = CtrlRechts dann
20 GetFelder weiter nach unten
wenn Taste = Ctrl-W dann
Prozedur Speichern aufrufen
wenn Taste Esc dann
Abbruch
Ich hab Probleme mit der korrekten Verwendung von Read oder Readmodal() und Appevent()
Das hab ich (auch) mal ohne Erfolg getestet.
Bitte Nachsicht wenn es ganz falsch ist.
Code: Alles auswählen
proc eingabe
@ 0, 0 clear to 24,79
do forme1
form = 1
nStartGet = 1
lExit := .f.
DO WHILE ! lExit
readmodal(Getlist,nStartGet)
IF LastAppEvent() == xbeK_CTRL_LEFT
do links
endif
IF LastAppEvent() == xbeK_ESC
AppQuit()
ENDIF
GetRefresh(GetList)
ENDDO
proc links
if form > 2
return
endif
spalte = col()
reihe = row()
if nStartget >= 20
nStartget = nStartget + 120
else
nStartget = nStartget -20
endif
return
Uwe aus OS