Possible to change gradient-directions in xBrowse ?

[ukoenig]

Hello,

is it possible to use bColorstd of xBrowse to build a gradient of columns ( 3D-loook ) in different direction ?
The column < button > shows the normal painting.
It is a matter of taste, but I think it looks much better.



best regards
Uwe

[nageswaragunupudi]

Yes
Please try this way:

Code: Select all  Expand view  RUN

oBrw:aCols[ n ]:bClrStd := { || { CLR_BLACK, {{ 0.5, nClr1,nClr2 },{0.5, nClr2,nClr1}, .F. } } }

If the last element of the gradient array is not an array but logical .T. is vertical and .F. is horizontal,

[ukoenig]

Thank You very much.
It works with the same syntax like the normal gradientdesign.
Is there maybe a solution to protect a cell from to be covered from the focused rowcolor
to keep the cellcolor / gradient visible like used for images ?



or drawing a rowborder using :

:nMarqueeStyle := 0
:lRowBox := .T.
:nColorBox := 255
:nBoxPen := 5

( would be perfect with a defined pensize )



I changed some lines in xBrowse line 2995

a new data := DATA nBoxpen INIT 1
I added a value of 3

Code: Select all  Expand view  RUN

DATA nBoxPen INIT 1

if ::lRowBox .and. nStyle != 7
     oCol := ::ColAtPos( nLast )
     nLast := Min( oCol:nDisplayCol + oCol:nWidth - 1, ::GridWidth() - 3 )
     RoundBox( hDC, If( ::lRecordSelector, ::nRecSelWidth, 1 ), nRow +1, ;
                     nLast, nRow + nDataHeight -1, 2, 2, ::nColorBox, ::nBoxPen )      
       
    //::Box( nRow, If( ::lRecordSelector, ::nRecSelWidth, 1 ), ;
    //  nRow + nDataHeight, nLast, ::nColorBox )
endif

best regards
Uwe

[nageswaragunupudi]

s there maybe a solution to protect a cell from to be covered from the focused rowcolor
to keep the cellcolor / gradient visible like used for images ?

oCol:bClrSelFocus := oCol:bClrStd

[ukoenig]

Thank You very much

that works fine and I could finish the tool

If You downloaded the tool and it slows down with empty gradients ( shown as black )
please download again
There is a problem with the gradient-position 0
I changed this value to 0.1 and it is working fine now

http://www.pflegeplus.com/DOWNLOADS/GrdPaint2.zip

complete new design
100 positions are defined
You can clear the fields and reset the counter



with a small change in xBrowse the pensize can be defined

oCol:bClrSelFocus := oCol:bClrStd

protecting the gradient-field



Best regards
Uwe