Frame around the cell

[Natter]

If xBrowse the cursor is positioned in a frame around the cell,
::nMarqueeStyle := MARQSTYLE_SOLIDCELL
it is possible to change the color and thickness of this frame ?

FWH 16.04

[nageswaragunupudi]

oBrw:nColorBox := <nYourColor>

or

oBrw:nColorBox := hPen

[Natter]

Thank, Mr. Rao !

And the thickness of the frame lines can be changed ?

[nageswaragunupudi]

Define a pen with the thickness, type and color you want and then assign
oBrw:nColorBox := hPen

You need to release the pen object yourself after closing the browse.

[Natter]

I use xbrowse with the cursor in the form of borders around the cell
hPenCreate(1,4, CLR_RED)
oBrw:nMarqueeStyle := MARQSTYLE_SOLIDCELL
oBrw:nColorBox:=hPen

Everything works fine

But if xBrowse flipping up and down arrows or mousewheel, the grid is painted in the color of the frame (In this case, red). If you click on any row xBowsa everything becomes normal

[nageswaragunupudi]

Please add this setting

oBrw:lTransparent := .t.

[Natter]

Yes, the effect of the staining grid disappears, but then xBrowse will take the color of the window on which it is located

[nageswaragunupudi]

Yes, the effect of the staining grid disappears, but then xBrowse will take the color of the window on which it is located

For now, can you make the window background color and xbrowse background color the same?
That is normally the case.

[nageswaragunupudi]

Please make this modification to xbrowse.prg

1) Add a new DATA

Code: Select all  Expand view

DATA lFullPaint INIT .f.
 

2) Locate this method:

Code: Select all  Expand view

   METHOD FullPaint() INLINE ( ::lTransparent .or. ::lMergeVert .or. ;
                               ::nMarqueeStyle == MARQSTYLE_HIGHLWIN7 )
 

Modiy this method as:

Code: Select all  Expand view

   METHOD FullPaint() INLINE ( ::lTransparent .or. ::lMergeVert .or. ::lFullPaint .or. ;
                               ::nMarqueeStyle == MARQSTYLE_HIGHLWIN7 )
 

Now, in your program instead of setting oBrw:lTransparent := .t., SET oBrw:lFullPaint := .t.

[Natter]

Thank You, Mr.Rao ! Everything works well