I found, that the value from the get in normal (not editing) mode are not visible. In the moment i will edit the get, this value becomes normal visible. If the value from the get is one of the items from the listbox the value is always visible!
This is in a browse from resource. In a browse from code is normal. But i cannot test if this is relevant!
In a older FWH (13) all was normal.
Board index FiveWin for Harbour/xHarbour Problem with EDIT_GET_LISTBOX: ADDITIONAL WORK REQUIRED
Can you please try this fix and offer your comments?
Please locate this line of code in Adjust() method of TXBrwColumn. You will find it in two places.
Change this line as:
You need to change this at two places.
Next:
Please locate:
Change this line as:
In this function, please locate this line:
Change this as:
In case your problem is still not addressed by this change, please provide a small sample to reproduce the problem.
Please locate this line of code in Adjust() method of TXBrwColumn. You will find it in two places.
::bStrData := { || XbrLbxLookUp( ::Value, ::aEditListBound, ::aEditListTxt ) }Change this line as:
::bStrData := { || XbrLbxLookUp( ::Value, ::aEditListBound, ::aEditListTxt, ::nEditType == EDIT_LISTBOX ) }You need to change this at two places.
Next:
Please locate:
static function XbrLbxLookUp( uVal, aBound, aText )Change this line as:
static function XbrLbxLookUp( uVal, aBound, aText, lBlank )In this function, please locate this line:
uRetVal := Blank( aText[ 1 ] )Change this as:
DEFAULT lBlank := .t.
uRetVal := If( lBlank, Blank( aText[ 1 ] ), cValToChar( uVal ) )In case your problem is still not addressed by this change, please provide a small sample to reproduce the problem.
Regards
G. N. Rao.
Hyderabad, India
G. N. Rao.
Hyderabad, India
Mr. Rao, it seems, that this changes are ok! Thanks!
Mr. Rao, i make the following changes:
1. To add the size of the vert-scroll
2. To limit the listbox on small browses.
1. To add the size of the vert-scroll
nWidth := Max( nWidth, CalcTextWH( ::oBrw, ::aEditListTxt, oFont )[ 1 ] + COL_EXTRAWIDTH + ;
IfNil( ::nBtnWidth, 10 ) + GetSysMetrics( 2 )) //BYTE-ONE2. To limit the listbox on small browses.
nWidth := min(nWidth,::oBrw:BrwWidth()) //BYTE-ONEMr. Rao, have you seen this. Only small corrections.
And a other suggestion: Can we EDIT_LISTBOX and EDIT_GET_LISTBOX not include also in XbrEditMemo and a own dialog without border if wished? The advantage is, that the size are not limited to the size of xBrowse.
1. This was considered while adopting the changes. The padding provided is adequate to accommodate the scrollbar width (Windows default 17 pixels) also where necessary. By default, the auto-calculated column width and list-box width are exactly the same retaining backward compatibility in appearance of the listbox. You may check this in real cases.
Please test this sample:
2. This will be adopted.
Last suggestion: EDIT_GET_BUTTON is provided for such purposes.
Please test this sample:
local aData := { { "Hello World", 5, "FiveTech SoftWare" }, { "FiveTech", 4, "Hello World" } }
local aMonths[ 12 ]
AEval( aMonths, { |u,i| aMonths[ i ] := { i, NToCMONTH( i ) } } )
xbrowser aData SETUP ( oBrw:aCols[ 2 ]:nEditType := EDIT_LISTBOX, oBrw:aCols[ 2 ]:aEditListTxt := aMonths )2. This will be adopted.
Last suggestion: EDIT_GET_BUTTON is provided for such purposes.
Regards
G. N. Rao.
Hyderabad, India
G. N. Rao.
Hyderabad, India
Mr. Rao, my impression is, that this point are not done!?
2. To limit the listbox on small browses.
nWidth := min(nWidth,::BrwWidth()) //BYTE-ONE