Xbrowse and hColPen

Xbrowse and hColPen

Postby damianodec » Tue Jan 30, 2018 4:30 pm

hi
I have a XBROWSE with red line border for some columns, in this code:
Code: Select all  Expand view

hPen  := CreatePen( PS_SOLID, 1, CLR_HRED )
DEFINE DIALOG oDlg SIZE 1000,600 PIXEL FONT oFont ;
STYLE nOR( DS_MODALFRAME, WS_POPUP, WS_CAPTION, WS_SYSMENU, ;
          WS_MAXIMIZEBOX, WS_MINIMIZEBOX, WS_THICKFRAME ) ;  
    TITLE "PROIEZIONE DEL VENDUTO - OGGI = "+dtoc(m_get[06])

@ 10,10 XBROWSE oBrw SIZE -10,-50 PIXEL OF oDlg DATASOURCE oTree ;
    COLUMNS 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18 ;
    HEADERS "Cliente / Articolo / Data", ;
        ...
    CELL LINES FOOTERS NOBORDER

    WITH OBJECT oBrw
        :nColDividerStyle := LINESTYLE_LIGHTGRAY
        :aCols[ 1 ]:hColPen  := hPen
        :aCols[ 4 ]:hColPen  := hPen
        :aCols[ 6 ]:hColPen  := hPen       
        :aCols[ 17 ]:hColPen  := hPen              

        :nStretchCol         := 1
        :lDisplayZeros       := .f.
        :lFreezeLikeExcel ( .t. )
        :nFreeze         := 1
 

and this is the result:
Image

but if I move horizontal bar on the right the columns shift to the left but red line is locked on the same columns
Image
is there any solution?
thanks
FiveWin for xHarbour 17.09 - Sep. 2017 - Embarcadero C++ 7.00 for Win32
FWH 64 for Harbour 19.06 (MSVC++) Jun. 2019 - Harbour 3.2.0dev (r1904111533)
Visual Studio 2019 - Pelles C V.8.00.60 (Win64)
User avatar
damianodec
 
Posts: 414
Joined: Wed Jun 06, 2007 2:58 pm
Location: Italia

Return to FiveWin for Harbour/xHarbour

Who is online

Users browsing this forum: No registered users and 10 guests