Xbrowse and hColPen

[damianodec]

hi
I have a XBROWSE with red line border for some columns, in this code:

Code: Select all

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:


but if I move horizontal bar on the right the columns shift to the left but red line is locked on the same columns

is there any solution?
thanks