Farbeingangsfelder in DCL

[Angelo2449]

Hallo alle,
Ich möchte die Eingabefelder der Maske in dcl, aber ich bekomme keine Ergebnisse.
Das ist der Code, den ich geschrieben habe:

pf : Dialog {

Label = "immissione dati punto fiduciale";

: edit_box {\cHFFFF}
Label = "nome del punto fiduciale";
Schlüssel = "pf";
edit_width = 11;
Farbe = 1;
zulassen_accept = true;
}

: edit_box {\cHFFFF}
Label = "coordinata x";
Schlüssel = "cx";
edit_width = 11;
zulassen_accept = true;
}
: edit_box {\cHFFFF}
Etikett = "Koordinata y";
Schlüssel = "cy";
edit_width = 11;
zulassen_accept = true;
}

ok_cancel ;
:text_part {
Label = "designed and create";
}
:text_part {
Label = "by angelo";
}
}

die Anweisung "color = 1;" in der ersten Anweisung funktioniert nicht, ich hänge auch seine .lsp Datei an

(defun c:pf (/ nomepf coox cooy puntoins puntoins1 raggio)

(setq dcl_id (load_dialog "pf.dcl")
(wenn nicht (new_dialog "pf" dcl_id))
(Auszug)
), wenn

(set_tile "pf" "pf")
(set_tile "cx" ")
(set_tile "cy" ")

(mode_tile "pf" 2)
(Aktion)
"Cancel"
"(done_dialog) (setq userclick nil)"
)

(Aktion)
"Akzeptieren"
(Strkat)
"(progn (setq nomepf (get_tile \"pf\")"
"(setq coox (get_tile \"cx\")"
"(setq cooy (get_tile \"cy\")"
" (done_dialog)(setq userclick t)"
)

)
(start_dialog)
(unload_dialog dcl_id)

(wenn Benutzerklick
(Prog.)
(setq spf (strcat nomepf " - " coox "," cooy))
(Einzelpunkt)
(setq puntoins1 (Liste (Autopuntoins) (- (Cadr puntoins) 1.00))

(Befehl "_circle" puntoins1 10 "")
(Befehl "_change" "_last" "" "_p" "_c" "_red" "")
(Befehl "_circle" puntoins1 0.50 "")
(Befehl "_text"-Pins 0.30 0.00 spf "")
)
)

grazie.

 

[rpor66]

dass ich weiß, dass es nicht möglich ist, eine Farbe zu edit_box zu verknüpfen.
Hier ist der Link zur Verwaltung dcl: http://web2.airmail.net/terrycad/tutorials/mydialogs.htm