topic-35204

Posts: 434

Joined: Wed Jun 06, 2007 02:58 PM

Xbrowse and hColPen
Posted: Tue Jan 30, 2018 04:30 PM

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

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

FiveWin for xHarbour 24.02 - Feb. 2024 - Embarcadero C++ 7.60 for Win32 Copyright (c) 1993-2023

FWH 64 for Harbour 19.06 (MSVC++) Jun. 2019 - Harbour 3.2.0dev (r1904111533)

Visual Studio 2019 - Pelles C V.8.00.60 (Win64)

FiveTech Support Forums

Continue the discussion