Hi everybody,

With the help of Fabio L I was almost able to achieve the desired functionality. With our font size (8) I found, that this code called from the combo Init works quite nicely:

*---------------------- Location Section ------------------------
*   Library: 	Acustomcontrols.vcx
*   Class: 		Cboviscodes
*   Method: 	Adjustwidth()
*----------------------- Usage Section --------------------------
*)  Description:
*)

*   Scope:      Public
*   Parameters:
*$  Usage:
*$
*   Returns:
*--------------------- Maintenance Section ----------------------
*   Change Log:
*       CREATED 	08/23/2005 - NN (Ideas by Fabio Lunadron)
*		MODIFIED
*----------------------------------------------------------------
WITH this
	#IF VERSION(2)<900
		.ColumnCount = MAX(.ColumnCount,.BoundColumn, 2)
	#ENDIF

	IF .Width > 60
		.ColumnWidths = LTRIM(STR(.Width-39))+ REPLICATE(',0',.ColumnCount-1)
	ENDIF
ENDWITH

The only problem I have, if there are few items in combo (less than 10) and the combo's scrollbar doesn't appear. In this case the drop-down portion is the scrollbar width shorter than than the combo's width. So, I have to make my logic more sophisticated and take this case into consideration.

Any suggestions, how should I modify that code?

Thanks in advance.