*[2009/10/28 16:39:48] ndragan - the bug *-- TEXT BLOCK BEGIN TEXT TO lcRows NOSHOW TEXTMERGE option2,2 option3,3 option4,4 option5,5 ... option14,14 ENDTEXT *-- TEXT BLOCK END nrows=ALINES(al, lcrows) WITH .combo AS COMBOBOX .ROWSOURCETYPE= 5 .ROWSOURCE="this.aList" .BOUNDCOLUMN=2 .BOUNDTO=.F. nMax=.WIDTH nAvg=FONTMETRIC(6,.FONTNAME, .FONTSIZE) DIMENSION .aSource(nRows,2) FOR i=1 TO nrows lcRow=al[i] .aList[i,1]=GETWORDNUM(lcRow, 1, ",") .aList[i,2]=GETWORDNUM(lcRow, 2, ",") *-- assume extra space by measuring uppercase nMax=MAX(nMax, TXTWIDTH(UPPER(" "+.aList[i,1]+" "),.FONTNAME, .FONTSIZE)*nAvg) ENDFOR .COLUMNWIDTHS=TRANSFORM(ROUND(nMax,0))+",0" .REQUERY() ENDWITH