Xbrowse celltext-centered using < EDIT_GET_LISTBOX > ?

[ukoenig]

Hello,

is it possible to use the full cellwidth using xBrowse < EDIT_GET_LISTBOX > ?
It means to display the arrow on TOP of the celltext and NOT using a
extra space.
Maybe the celltext can be adjusted ( centerd ) to the FULL cellwidth after leaving the row with no visible arrow.
The celltext needed to shown centered.

:aCols[I]:nWidth := 100
:aCols[I]:nDataStrAlign := AL_CENTER // doesn' t work
:aCols[I]:nHeadStrAlign := AL_CENTER
:aCols[I]:nEditType := EDIT_GET_LISTBOX
:aCols[I]:aEditListBound := ;
:aCols[I]:aEditListTxt := { "F", "M", "S", "F-M-S", "Frei", "Urlaub", "Krank" }




regards
Uwe

[ShumingWang]

method paintdata() class txcolumn
if nType > 1
if ! Empty( aBitmap := ::aBitmap( ::nBtnBmp ) )
nBtnWidth := aBitMap[ BITMAP_WIDTH ] + 1
aBitmap := nil
else
nBtnWidth := 10
endif
nButtonRow := nRow
nButtonCol := nCol + nWidth - nBtnWidth
// nWidth -= ( nBtnWidth + 5 )
// remove this line
endif

Shuming Wang