FiveTech Software tech support forums

... := 1 to nLast if aCols[ nFor ] > nBrwWidth exit endif oCol := ::ColAtPos( nFor ) oCol:PaintData( nRow-::nrowheight*2, aCols[ nFor ], nHeight, lHighLite, .t., nFor, -1 ) oCol:PaintData( nRow-::nrowheight, aCols[ nFor ], nHeight, lHighLite, .t., nFor, 0 ) next //the right+1 column oCol:PaintData( ...

... ver esta linea en la clase xBrowse a ver si responde mejor tu pregunta y revisa METHOD Select( nOperation ) CLASS TXBrowse, saludos... :shock: lHighLite := ::lMultiSelect .and. ( Ascan( ::aSelected, Eval( ::bBookMark ) ) > 0 ) if ::lMultiSelect .and. ( nStyle == MARQSTYLE_HIGHLROWMS .or. ...

... column draws the image in the full width of both the columns Mr Rao When col 1 is selected, col 1 bPaintText also should paint full image. ( check lHighLite paramter ) Entonces no he entendido sus respuestas El parámetro lHighligh a .T. va a producir el resultado deseado? Then I misunderstood your ...

When col 1 is selected, col 1 bPaintText also should paint full image. ( check lHighLite paramter )

... Partial code from the method is below with 4 lines changed to pass SELF. This might possibly be a good addition to FiveWin master libraries. if lHighLite if ::oBrw:hWnd == GetFocus() if lSelected if nOrder == ::oBrw:nColSel aColors := Eval( ::bClrSelFocus, SELF ) // Eval( ::oBrw:bClrSelFocus ...

... ver esta linea en la clase xBrowse a ver si responde mejor tu pregunta y revisa METHOD Select( nOperation ) CLASS TXBrowse, saludos... :shock: lHighLite := ::lMultiSelect .and. ( Ascan( ::aSelected, Eval( ::bBookMark ) ) > 0 ) if ::lMultiSelect .and. ( nStyle == MARQSTYLE_HIGHLROWMS .or. ...

... many new Functions are included : I changed ( possible, to show ANY defined Image ) : :bPaintText := { | oCol, hDC, cData, aRect, aColors, lHighLite | ; DrawCell( oCol, nCol, hDC, cData, aRect, aColors, lHighLite ) } To ( 2 way Status ) : :SetCheck( { cBmpYes, cBmpNo, cBmpHelp }, .T. ) ...

... can convert the logical vars. I changed to :SetCheck( { cBmpYes, cBmpNo }, .T. ) from : // :bPaintText := { | oCol, hDC, cData, aRect, aColors, lHighLite | ; // DrawCell( oCol, nCol, hDC, cData, aRect, aColors, lHighLite ) } http://www.pflegeplus.com/pictures/celltext9.jpg Load ...

... only the background and does not paint the text. Instead calls the user specified codeblock with parameters, oCol, hDC, cData, aRect, aColors, lHighLite.

... our codeblock, xbrowse does NOT paint cell text on its own and instead calls our codeblock with the parameters ( oCol, hDC, cData, aRect, aColors, lHighLite ). It is for the programmer to use this facility, So, we can achieve the above described behaviour with the actual version of xBrowse!? If ...

... our codeblock, xbrowse does NOT paint cell text on its own and instead calls our codeblock with the parameters ( oCol, hDC, cData, aRect, aColors, lHighLite ). It is for the programmer to use this facility,

it make error because not found lHighLite Then you must be using a very old version of FWH. In that case please use the older way like this: // Using Windows 7 row selection colors in xbrowse#include 'fivewin.ch'#include 'xbrowse.ch'function ...

it make error because not found lHighLite

... pero para no estar poniendo if a todos nuestros bStrData podriamos modificar unas lineas en este metodo METHOD PaintData( nRow, nCol, nHeight, lHighLite, lSelected, nOrder ) CLASS TXBrwColumn local hDC, hBrush local oFont local aColors, aBitmap local cData local nWidth, nBmpRow, nBmpCol, nBmpNo, ...

... := ::oBrw:bFntRowData 5) //----------------------------------------------------------------------------// METHOD PaintData( nRow, nCol, nHeight, lHighLite, lSelected, nOrder ) CLASS TXBrwColumn hDC := ::oBrw:GetDC() oFont := ::oDataFont if ::bFntRowData != nil oFont := Eval( ::bFntRowData ) endif ...