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
User avatar
damianodec
 
Posts: 233
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 16 guests