; - - - - - - - - - - -
(defun :DCL-COMBOBOX-COLOR-INIT (prj-name frm-name ctrl-key col-no bylyr-byblk / col-pos 0-clr-nth 256-clr-nth )
(if(not bylyr-byblk)
(progn
(if(setq 0-clr-nth (dcl-ComboBox-FindColor prj-name frm-name ctrl-key 0 ) )
(dcl-combobox-deleteitem prj-name frm-name ctrl-key 0-clr-nth )
)
(if(setq 256-clr-nth (dcl-ComboBox-FindColor prj-name frm-name ctrl-key 256 ) )
(dcl-combobox-deleteitem prj-name frm-name ctrl-key 256-clr-nth )
)
)
)
(if(not (setq col-pos (dcl-ComboBox-FindColor prj-name frm-name ctrl-key col-no) ) )
(progn
(dcl-ComboBox-AddColor prj-name frm-name ctrl-key col-no )
(setq col-pos (dcl-ComboBox-FindColor prj-name frm-name ctrl-key col-no) )
)
)
(dcl-combobox-setcursel prj-name frm-name ctrl-key col-pos )
)
Quote from: owenwengerd on March 13, 2024, 09:18:16 PMI believe the Drag N Drop sample shows drag/drop in a single tree control, and also between tree and list controls.