xbrowse vertical line thickness

[damianodec]

hi
How can I change thickness or colors of vertical lines in some columns in xBrowse ?

thanks

[nageswaragunupudi]

Code: Select all  Expand view

  aData := { { 1, 2, 3, 4 }, { 5, 6, 7, 8 }, { 9, 10, 11, 12 } }

   DEFINE DIALOG oDlg SIZE 400,170 PIXEL TRUEPIXEL
   @ 20,20 XBROWSE oBrw SIZE -20,-20 PIXEL OF oDlg ;
      DATASOURCE aData AUTOCOLS CELL LINES NOBORDER

   hPen  := CreatePen( PS_SOLID, 2, CLR_HRED )

   WITH OBJECT oBrw
      :nColDividerStyle := LINESTYLE_LIGHTGRAY
      :aCols[ 2 ]:hColPen  := hPen
      :aCols[ 3 ]:hColPen  := hPen
      :CreateFromCode()
   END

   ACTIVATE DIALOG oDlg CENTERED
   DeleteObject( hPen )
 

[damianodec]

perfect
thank you Mr Rao

[horacio]

The problem I see is that when I navigate through the xbrowse the thickness is lost. Compiled with FWH1701 and Harbor 3.2

regards

[ukoenig]

I noticed the same ( FWH_17_12 )

The problem I see is that when I navigate through the xbrowse the thickness is lost. Compiled with FWH1701 and Harbor 3.2

regards
Uwe

[nageswaragunupudi]

We need to fix this.
Till then, please use different color but not different thickness.

[Silvio.Falconi]

damiano,
i not understood what need it ...