xBrowse and bEditWhen

[Maurizio]

Antonio ,

bEditWhen dosn't work with nEditType := EDIT_LISTBOX

Regards Maurizio

[nageswaragunupudi]

Fixed in version 12.02.
Thanks for pointing out.

[Maurizio]

Hello Rao ,

I tried your fix

Code: Select all  Expand view  RUN

elseif oCol:nEditType == EDIT_LISTBOX   .and. oCol:lEditable
 

I can open the LISTBOX and the selection is not accepted , and it works .

I think it would be better to prevent entry into the LISTBOX and do not open the LISTBOX .

this is my proposal

Code: Select all  Expand view  RUN

METHOD ShowBtnList( nKey ) CLASS TXBrwColumn

   local aBound
   local xValue
   local hBrush
   local nAt, nRow, nCol, nWidth, nHeight, aColors, oFont
 
  if ::bEditWhen # nil
     IF !   Eval( ::bEditWhen, Self )
        Return nil
     ENDIF  
  endif

Regards MAurizio