---

Hallo Lispler

ist es möglich ein Dialogfenster, ähnlich wie ein Kontexmenü, dort öffnen zu lassen wo sich gerade der Curser befindet.

Beispiel:  Möchte aus einem Dialogfester heraus weitere Dialogfenster öffnen. Das erste Dialogfenster ist recht groß, die zu öffnenden relativ klein. Währe schön wenn das neue Fenster dort geöffnet würde wo sich gerade der Curser befindet (über der Taste zum öffnen des Dialogfensters)  Danke schon mal, aber so wie ich Lisp mitlerweile kenn ist das nicht möglich. Wollte nur sicherheitshalber mal nachfragen.

------------------
    Martin   

Viele Grüße aus dem schönen Münsterland!

[Diese Nachricht wurde von mkl-cad am 11. Apr. 2005 editiert.]

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

---

Hallo Matin,

wie man eine Dialog-Box an der Cursor-Position öffnet weis ich auch nicht, du kannst aber beim öffnne eine Liste mit Bildschirm-Punkten übergeben.

(if (not (new_dialog "schiebe" open_dcl "" (list 200 100)))(exit))

Hoffe es hilft dir weiter.
Helmut

(komme übrigens auch aus dem Münsterland)

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

---

Hallo Helmut,

Ich glaube das könnte mir schon weiterhelfen, der Cursor steht ja in dem Moment des öffnens auf ein Dialogbutton und die ungefähre Position müßte ich dann austesten in abhängigkeit der Bildschirmauflösung. Nur daran scheint man ja auch nicht einfach zu kommen. Oder ist da schon jemand weiter.

Ganz klar komme ich damit nicht. Hab das mit einer DCL-Datei getestet und bekomme die Meldung
; Fehler: Fehlerhafter Argumenttyp: fixnump: nil
Wo bauee ich das ding genau ein. Kannst Du mir ein kleines beispiel geben

Das Dialogfenster muß ja nicht unbedingt an der Position des Cursers öffnen. An der Stelle des Dialogbutton würde das ja auch gehn.

------------------
  Martin  

Viele Grüße aus dem schönen Münsterland!

[Diese Nachricht wurde von mkl-cad am 12. Apr. 2005 editiert.]

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

---

Vielleicht hilft dir das oder z.T. das ein wenig weiter ?!

------------------
- 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

---

Danke Thomas

das würde mir veilleicht helfen wenn ich das erste Dialogfenster am Curser binden möchte. Da ich aber das darauffolgende Dialogfenster wo anderes darstellen möchte habe ich das Porblem das der koordinatenpunkt beim wandern des Cursers über ein Dialogfenster sich nicht ändert, aber dennoch vielen Dank, werde mal weiter tüfteln.

Ist open_dcl eine Fuktion? Dazu finde ich in der Hilfe nichts.
------------------
  Martin  

Viele Grüße aus dem schönen Münsterland!

[Diese Nachricht wurde von mkl-cad am 12. Apr. 2005 editiert.]

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

---

Hallo Martin,

hier mal ein Beispiel wie man sich die Position der DCL-Box merken kann um sie nach dem verschieben auf dem Bildschirm wieder an der selben Stelle zu öffnen.

********************************************************************************
als test.lsp speichern

(defun c:merk-dcl-pos ( / OK OPEN_DCL)

(setq open_dcl (load_dialog "c:/lisp/test.dcl")) ;; Pfad anpassen

(if merk_po
(if (not (new_dialog "schiebe" open_dcl "" merk_po))(exit));; merk_po durch liste mit Koordinaten ersetzen.
(if (not (new_dialog "schiebe" open_dcl ))(exit))
)

(action_tile "accept" "(setq merk_po (done_dialog 1))")
(action_tile "cancel" "(setq merk_po 'nil)(done_dialog 0))")

(setq ok (start_dialog))
); ende defun

********************************************************************************

ab hier als test.dcl speichern

schiebe:

dialog{label ="Dialog-Box verschieben ";
:spacer{height=1;}
:text{label="Bitte Dialog-Box auf dem Bildschirm verschieben";}
:spacer{height=1;}
:text{label="beim verlassen mit OK -> Position merken";}
:spacer{height=1;}


ok_cancel;
}

Gruß Helmut

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

---

Danke Helmut, damit werde ich wohl klarkommen. Bis zum austesten und weiterschreiben wirds wohl bis zum Wochenende dauern. Nochmals vielen Dank für Deine Mühe.

------------------
  Martin 

Viele Grüße aus dem schönen Münsterland!

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