INITIALIZE a COMBO-BOX with STYLE = "4 - Colors"

Started by domenicomaria · 2024-02-07 16:47 UTC · 1 replies · SMF topic #2913

domenicomaria 2024-02-07 16:47 UTC

How to INITIALIZE a
COMBO-BOX with STYLE = "4 - Colors"
to a SPECIFIC INITIAL COLOR?

DCL-COMBOBOX-SETCURSEL wants an INTEGER

and this doesn't work
with this type of COMBO-BOX

domenicomaria 2024-02-11 07:23 UTC

author=domenicomaria link=msg=13975 date=1707326966 wrote:

(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

the previuos it is wrong !

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

)

while this one seems to be good !