In the Init of the combo/list box:


WITH This

DEFINE POPUP popTemp

.RowSourceType = 9
.RowSource = "popTemp"

ENDWITH

RETURN



Next, in the AddItem method:

LPARAMETERS cPrompt, cColor, cFontName, nFontSize, cStyle

WITH This

IF EMPTY(cColor)
cColor = ",RGB(0,0,0)"
ENDIF

IF EMPTY(cFontName)
cFontName = .FontName
ENDIF

IF EMPTY(nFontSize)
cFontSize = .FontSize
ENDIF

IF EMPTY(cStyle)
cStyle = ""
ENDIF

DEFINE BAR (This.ListCount + 1) OF popTemp;
PROMPT cPrompt;
COLOR (cColor);
FONT cFontName, nFontSize;
STYLE cStyle

ENDWITH

RETURN