FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin for Harbour/xHarbour xBrowse extension
Posts: 6983
Joined: Fri Oct 07, 2005 07:07 PM
xBrowse extension
Posted: Tue Oct 02, 2012 08:11 AM
Dear Mr. Rao,

I did some tests with changing the paint method.
Before I go ahead I would like to ask if you think this could be implemented as a general feature?
I think it would be fine to have flexibility in painting horizontal and vertical lines.
Please see attached screenshot.
Here I don’t paint the line between street and place as well as some other columns.
To pass a parameter paint column border yes/no would be good.
Best regards,
Otto

Posts: 6983
Joined: Fri Oct 07, 2005 07:07 PM
Re: xBrowse extension
Posted: Wed Oct 03, 2012 07:28 AM
Dear Mr. Rao,
As a workaround I found a very easy solution for my problem.
I check Header caption in the paint method. If I don't want the vertical line I add a space to the caption.
This way if I use a space at the end of the Header no vertical line is drawn.
Best regards,
Otto

Code (fw): Select all Collapse
if right(::acols[ nFor - 1 ]:cHeader,1) = " "
         //msginfo( right(::acols[nFor ]:cHeader,1) )
         else   
            if nColStyle != LINESTYLE_RAISED
               DrawVert( hDC, nCol - 2, nFirstRow, nHeight, hColPen )
            else
               DrawVert( hDC, nCol - 2, nFirstRow, nHeight, hWhitePen )
               DrawVert( hDC, nCol - 1, nFirstRow, nHeight, hColPen )
            endif
            
            if nColStyle = LINESTYLE_INSET
               DrawVert( hDC, nCol - 1, nFirstRow, nHeight, hWhitePen )
            endif
         endif

Continue the discussion