Question to XBROWSE 1810

[byte-one]

In the new version 1810 i see a dialog to input data if i use SetColsAsRows(). But i will handle as before! What to do to get the behavior as in 1801?

[nageswaragunupudi]

How were you invoking edit in your own way earlier?
By assigning a codeblock to bLDClickData or how?

[byte-one]

I do so:

Code: Select all  Expand view

ADD COLUMN TO XBROWSE oList DATA aEin[oList:nArrayat,LG_ARR_POS_FELDER,LG_FELD_PERSON,LG_ARR_POS_SUCH] SIZE 200 ALIGN CENTER EDITABLE ON EDIT ;
        {|a,x|lg_stamm_such(x,@aPers,@aGer,@aKont,@aZu,1,oList:nArrayat)} HEADER "Mitarbeiter" ;...…

[nageswaragunupudi]

In the method Edit( nKey ) of TXBrwColumn please locate these lines of code:

Code: Select all  Expand view

  if !Empty( ::aRows )
      uValue      := CharRem( CRLF, ::cHeader )
      AEval( ::aRows, { |o| If( Empty( o:cHeader ), o:cHeader := "COL-" + LTRIM( Str( o:nCreationOrder ) ), nil ) }, 2 )
      AEval( ::aRows, { |o| If( o:lReadOnly, nil, uValue += "," + CharRem( CRLF, o:cHeader ) ) }, 2 )
      oRec  := TDataRow():New( ::oBrw, uValue, .f. )  //:Edit( nil, .f., StrTran( ::cHeader, CRLF, " " ) )
      oRec:oFont     := ::DataFont()
      oRec:oAnchor   := Self
      return oRec:Edit( nil, .f., StrTran( ::cHeader, CRLF, " " ) )
   endif
 

Comment out all these lines of code.

[byte-one]

Thanks!
In the meantime i also found this lines and make a DATA to switch this lines on/off. But for accordance to older versions the code should be inactive for standard and switchable to your new edit!