Quote from: domenicomaria on February 07, 2024, 09:29:26 AM(defun =><= (valx start-val end-val) (and (>= valx start-val) (<= valx end-val)))
(if(=><= col-no 0 7)
(dcl-combobox-setcursel ctrl-name (+ col-no 1) )
(progn
(dcl-ComboBox-AddColor ctrl-name col-no)
(dcl-combobox-setcursel ctrl-name 0)
)
)
this works
(defun DCL-COMBOBOX-COLOR-INIT ( ctrl-name col-no / col-pos )
(if(not (setq col-pos (dcl-ComboBox-FindColor ctrl-name col-no) ) )
(progn
(dcl-ComboBox-AddColor ctrl-name col-no )
(setq col-pos (dcl-ComboBox-FindColor ctrl-name col-no) )
)
)
(dcl-combobox-setcursel ctrl-name col-pos )
)