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:
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
