Code:
bauland : boxed_radio_column {
label = " Bauland ";
: radio_button { label = "Garten"; key = "GT"; }
: radio_button { label = "Gebäude"; key = "GB"; }
: radio_button { label = "Gebäudenebenfläche"; key = "GN"; } }grunland : boxed_radio_column {
label = " Grünland ";
: radio_button { label = "Alpe"; key = "AL"; }
: radio_button { label = "Dauerkulturanlage od. Erwerbsgarten"; key = "DK"; }
: radio_button { label = "Feuchtgebiet"; key = "FE"; }
: radio_button { label = "Forststraße"; key = "FS"; }
: radio_button { label = "Gewässer fließend"; key = "GF"; }
: radio_button { label = "Gewässer stehend"; key = "GS"; }
: radio_button { label = "Gewässerrandfläche"; key = "GR"; }
: radio_button { label = "Krummholzfläche"; key = "KF"; }
: radio_button { label = "Landwirtschaftlich genutzt"; key = "LN"; }
: radio_button { label = "Verbuschte Fläche"; key = "VB"; }
: radio_button { label = "Wald"; key = "WD"; }
: radio_button { label = "Weingarten"; key = "WG"; } }
sonstig : boxed_radio_column {
label = " Sonstige ";
: radio_button { label = "Abbaufläche"; key = "AF"; }
: radio_button { label = "Betriebsfläche"; key = "BF"; }
: radio_button { label = "Fels und Geröll"; key = "FG"; }
: radio_button { label = "Freizeitfläche"; key = "EF"; }
: radio_button { label = "Friedhof"; key = "FR"; }
: radio_button { label = "Gletscher"; key = "GL"; }
: radio_button { label = "Parkplatz"; key = "PA"; }
: radio_button { label = "Schienenverkehrsanlage"; key = "SA"; }
: radio_button { label = "Straßenverkehrsanlage"; key = "SV"; }
: radio_button { label = "Vegetationsarme Fläche"; key = "VA"; }
: radio_button { label = "Verkehrsrandfläche"; key = "VR"; } }
dkm_sym : boxed_radio_column {
label = " DKM-Symbol ";
: image { key = "bild"; height = 2; width = 1; color = 0; } }
teil1 : column {
bauland;
dkm_sym;
}
Nutzung_einsetzen_Dialog : dialog {
label = " N U T Z U N G S S Y M B O L E I N S E T Z E N";
spacer;
spacer;
: row {
teil1;
grunland;
sonstig;
}
spacer;
spacer;
: row {
: spacer {width = 1; }
: button { label = " Ok "; is_default = true; key = "accept";
width = 8; fixed_width = true; alignment = centered; }
: spacer { width = 2; }
: button { label = "Abbrechen"; is_cancel = true; key = "cancel";
width = 8; fixed_width = true; }
: spacer { width = 2; }
}
}
------------------------------------------------------------------------
(defun neues_bild (neu_bild key ); Unterprogramm
(setq width (dimx_tile key))
(setq height (dimy_tile key))
(start_image "bild")
(fill_image 0 0 width height 0)
(slide_image 0 0 width height neu_bild)
(end_image)
)
(defun c:nutzung_einsetzen () ; eigentliches Programm
(setq bild1 "Garten.sld")
(setq bild2 "Gebaeude.sld")
(setq bild3 "Gebaeudenebenfl.sld")
(setq dcl_id (load_dialog "nutzung_einsetzen.dcl"))
(new_dialog "Nutzung_einsetzen_Dialog" dcl_id)
(action_tile "GT" "(neues_bild bild1)")
(action_tile "GB" "(neues_bild bild2)")
(action_tile "GN" "(neues_bild bild3)")
(action_tile "cancel" "(done_dialog) (setq UserClick nil)")
(action_tile "accept" "(done_dialog) (setq UserClick T)")
(start_dialog)
(unload_dialog dcl_id)
; Taste OK gedrückt
(if (= UserClick T)
(progn
usw......................