[编程交流] [DCL]DCL预览请求

Sett : dialog
{ label = "Quick Settings:";
 width = 50;
 : row {
   : column {
     : text { label = "Rozbic blok:"; }
     : text { label = "Troche dluzszy tekst:"; }
   }
   : column {
     _RADIO1;
     _RADIO2;
   }
 }
 : _POPUP { key = "B_1"; label = "&Czy wstawic punkt w srodku:"; }
 : _POPUP { key = "B_4"; label = "&Separator:"; }
 : _EDITBOX { key = "B_2"; label = "&Wysokosc tekstu:"; edit_limit = 10; }
 : _EDITBOX { key = "B_3"; label = "Odstep &tekstu:"; edit_limit = 10; }
 spacer_1;
 : row {
   alignment = centered;
   fixed_width = true;
   : _BUTTON { key = "OK"; label = "&Ok"; is_default = true; }
   : _BUTTON { key = "CANCEL"; label = "&Anuluj"; is_cancel = true; }
 }
 errtile;
}
_BUTTON : button { width = 13; fixed_width = true; }
_POPUP : popup_list { edit_width = 30; }
_EDITBOX : edit_box { edit_width = 30.8; }
_RADIO1 : row {
 : radio_button {
   key = "op1";
   label = "&Tak"; 
 }
 : radio_button {
   key = "op2";
   label = "&Nie"; 
 }
 spacer;
}
_RADIO2 : row {
 : radio_button {
   key = "op3";
   label = "&Wiecej Tak"; 
 }
 : radio_button {
   key = "op4";
   label = "&Wiecej Nie"; 
 }
 spacer;
}

(setq dcl_id (load_dialog "Sett.dcl")) ; needs correct path
(if (not (new_dialog "Sett" dcl_id))
(exit))
(start_dialog)
(done_dialog)
(unload_dialog dcl_id)