FiveTech Software tech support forums

... vertical scrolling if ::lDrawBorder // ::Box( 0, 0, ::nHeight - 1, ::nWidth - 1, IfNil( ::nClrBorder, ::hColPen ) ) ::Box( 0, 0, ::nHeight - 1, ::BrwWidth(), IfNil( ::nClrBorder, ::hColPen ) ) endif https://i.postimg.cc/vHytyBsS/ok.png the same must be made in the presence of Horizontal ...

... just search inside samples for these functions DrawHorz ( hDC, ::nHeaderHeight - 3, 0, ::BrwWidth(), hPen ) DrawHorz( hDC, ::nHeaderHeight - 1, 0, ::BrwWidth(), hPen ) DrawVert ( hDC, 170, 2, ::nHeaderHeight - 1, hPen ) regards Uwe :D

... just search inside samples for these functions DrawHorz ( hDC, ::nHeaderHeight - 3, 0, ::BrwWidth(), hPen ) DrawHorz( hDC, ::nHeaderHeight - 1, 0, ::BrwWidth(), hPen ) DrawVert ( hDC, 170, 2, ::nHeaderHeight - 1, hPen ) regards Uwe :D

Mr. Rao, my impression is, that this point are not done!?

2. To limit the listbox on small browses.
nWidth := min(nWidth,::oBrw:BrwWidth()) //BYTE-ONE

... nRowPos <= nMaxRows hBrush := CreateSolidBrush( Eval( ::bClreof, Self,nrowpos )[ 2 ] ) FillRect( hDC, {nRow, acols[1]-1, nrow+::DataHeight+1, nBrwWidth }, hBrush ) DeleteObject( hBrush ) nRowPos++ nRow += nRowHeight enddo //--------- /* Paint lines */ do case case nColStyle == LINESTYLE_NOLINES ...

Please change
::BrwWidth()
as
oBrw:BrwWidth()

... cell starting. 2) in method "PaintData" instead of string FillRect( hDC, {nTop, nRectCol, nBottom, Min( nRectCol + nRectWidth, ::oBrw:BrwWidth() - 4 ) }, hBrush ) I put: if valtype(acolors[2])<>'B' FillRect( hDC, {nTop, nRectCol, nBottom, Min( nRectCol + nRectWidth, ::oBrw:BrwWidth() ...

thank a lot... little detail
the idea is good... i happy it work for you.... i did burn my brain

change too...
hBmpNew := CreateCompatibleBitMap( ::hDC, ::BrwWidth(), ::BrwHeight() )
BitBlt( hDCComp, 0, 0, ::BrwWidth(),::BrwHeight(), ::hDC, 0, 0, SRCCOPY )

... I changed Your line : * PalBmpDraw( ::hDC, 0, 0, hBmp,, (::nRight - ::nLeft), ( ::nBottom - ::nTop ) ) in : PalBmpDraw( ::hDC, 0, 0, hBmp,, ::BrwWidth(), ::BrwHeight() ) That works perfect now ! If You change this, the BMP is adjusted to the xbrowse data-area. Regards Uwe :lol:

... hDC, aColors[ 1 ] ) SetBkColor( hDC, aColors[ 2 ] ) DrawTextEx( hDC, cLine ,; {nRow, nCol, nRow + oFont1:nHeight(), Min( nCol + nWidth, ::oBrw:BrwWidth() - 5 ) },; ::nDataStyle ) oFont1:Deactivate( hDC ) cLine = Alltrim(SubStr(cData, nFrom )) oFont:Activate( hDC ) SetTextColor( hDC, aColors[ ...

... ... There you could change for example the color and the width. DrawTextEx( hDC, cData,; {nRow, nCol, nRow + nHeight, Min( nCol + nWidth, ::oBrw:BrwWidth() - 5 ) },; ::nDataStyle ) Thank you for your kind words about my WINHOTEL. Regards, Otto

... Otto method paintdata ... if IsRTF( cdata ) ??? define a window without frame from {nRow, nCol, nRow + nHeight, Min( nCol + nWidth, ::oBrw:BrwWidth() - 5 ) } cRtf:= cdata oRTF := TRichEdit():New( nRow, 0, { | u | If( PCount()==0, cRTF, cRTF:= u ) },oWndTest ,,,, .F.,, .F., .F.,,,, .F., ...