---

Tach Leute,

ich versuch eine DCL-Box zu steuern. Das Problem ist dass ich eine EXIT_BOX schon während der Eingabe prüfen möchte. Diese Möglichkeit kenne ich aus anderen Sprachen z. B. !change_value . Gibt es diese Möglichkeit auch in Lisp?

Gruss bu

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

was ist, wenn du deiner EDIT_BOX mittels action_tile eine Funktion zuordnest, das ständig $Value auswertet? Kannst sie ja !change_value nennen.

------------------
  - Thomas -
"Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben."

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Tach Cadmium,

ich will ja nicht lästig sein aber kannst du mir einen Tip für die Fuktion geben. Meine Funktionen bei der DCL-Steuerung funktionieren nur bei einem Mausklick oder bei Taste ENTER. Ich möchte den Wert des Feldes jedoch schon prüfen bevor ich dieses verlasse.

MfG bu

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Bu,
ein Beispiel, wie der Wert einer EditBox bei Bestätigung mit OK geprüft werden kann:

Code:

---

(defun c:wert_eingeben (/ dat wert)
  (setq dat (load_dialog "test1.dcl"))
  (if (not (new_dialog "TEST" dat))
    (exit))
  (mode_tile "e1" 2)
  (action_tile
    "accept"
    "(setq wert(get_tile \"e1\"))(if(!change_value wert)(done_dialog)(mode_tile \"e1\" 2))")
;OK
  (action_tile "cancel" "(setq wert nil)(done_dialog)") ;Abbrechen
  (start_dialog)
  (unload_dialog dat)
  wert)
;;;Prüfung des Wertes
(defun !change_value  (wert /)
  (if (> (atof wert) 10.0)
    (progn (alert "Der Wert muß kleiner 10.0 sein.") nil)
    T))

---

DCL:

Code:

---

TEST: dialog {
:edit_box {key ="e1"; label ="Wert eingeben"; allow_accept=true;}
ok_cancel;}

---

------------------
viele Grüße

Jörn

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Tach Joern,

das ist ja das Problem, ich möchte den Wert schon vor dem OK prüfen. Also ohne Bestätigen auf OK. Bei laufender Eingabe. Nach wie vor die Grundsatzfrage "Ist das überhaupt möglich" in LISP + DCL??

Grüsse

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Bu,
hast Du schon mal die Variante von CADmium getestet??
Ich habe das mal eingebaut, und beim Schnelltest hat es auch funktioniert(wenn der eingegebene Wert größer 10 ist, dann wird er automatisch auf 10.0 gesetzt). Aber ob das dann ein komfortables Arbeiten  damit ist sei dahingestellt. Vorher konnte man aufgrund des DCL Attributes allow_accept=true die Eingabe tätigen und mit ENTER bestätigen, wenn die Eingabe falsch war, dann wurde die Editbox wieder markiert. Jetzt muß man den Ok-Button wieder mit der Maus anfahren. Aber es gibt bestimmt noch einige Varianten, vielleicht probierst Du einfach mal.

Code:

---

(defun c:wert_eingeben (/ dat wert)
  (setq dat (load_dialog "test1.dcl"))
  (if (not (new_dialog "TEST" dat))
    (exit))
  (mode_tile "e1" 2)
  (action_tile "e1" "(set_tile \"e1\" (!change_value (get_tile \"e1\")))")
  (action_tile
    "accept"
    "(setq wert(get_tile \"e1\"))(done_dialog)");OK
  (action_tile "cancel" "(setq wert nil)(done_dialog)") ;Abbrechen
  (start_dialog)
  (unload_dialog dat)
  wert)
;;;Prüfung des Wertes
(defun !change_value  (wert /)
  (if (> (atof wert) 10.0)
    "10.0"
    wert))

---

DCL

Code:

---

TEST: dialog {
:edit_box {key ="e1"; label ="Wert eingeben";}
ok_cancel;}

---

------------------
viele Grüße

Jörn

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Tach Jungs,
@CADmium
@Jörn
Habs natürlich getestet  ,
Das Problem ist, dass wie schon beschrieben der Wert erst geprüft wird wenn eine action durchgeführt wird. In ein anderes Feld klicken, enter drücken usw. Doch nach wie vor wird das Feld während der Eingabe nicht geprüft. Das war meine ursprüngliche Intension.
Noch ein Beispiel: Wenn man den Wert auf max. 10 begrenzt soll man 20 überhaupt nicht erst eingeben können. Oder wird bei der Eingabe sofort zurückgesetzt. Ohne dass ich das Feld verlasse oder sonst was mache.
Ihr mögt glauben dass ich hier übertreibe, aber es gibt komplexe Anwendungen bei denen das von Vorteil ist.
Ansonsten wollt ich nur wissen ob nicht doch eine Möglichkeit gibt welche ich evtl. nicht kenne. So bin ich nun relativ sicher und kann mich weiter an die Arbeit machen.

Vielen Dank für eure Mühen

Grüsse aus dem sonnigen Süden...

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

...na dann wirst du wohl mit der DCL-Programmierung am Ende sein..in Sprachen, die mehr Zugriff auf die Win-API haben hast du größere Chancen.

------------------
  - Thomas -
"Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben."

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Zitat:

---

Original erstellt von bu:
Wenn man den Wert auf max. 10 begrenzt soll man 20 überhaupt nicht erst eingeben können.

---

So etwas geht definitiv nicht mit DCL.
Ich habe mir immer damit geholfen beim Fokus-Wechsel den Wert abzufragen und bei Fehleingaben eine "sprechende" Fehlermeldung im Errtile auszugeben (z.B. "Nur 20 Zeichen zulässig!") und den Fokus wieder auf das entsprechnde Feld zu setzen so daß der Dialog nur verlassen werden kann, wenn eine gültige Eingabe gemacht wurde.

------------------
Ciao,
Marc

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP