FiveTech Software tech support forums

... OBJECT - Returns the TXBrowse object (Self).

Usage Example:

oBrw:SetStyle( 2007 ) // Sets the style to the 2007 visual style.
oBrw:SetStyle( { |lInvert| { { 1/3, nRGB( 255, 253, 222 ), nRGB( 255, 231, 151 ) }, { 2/3, nRGB( 255, 215, 84 ), nRGB( 255, 233, 162 ) } } } ) // Sets a custom gradient ...

... it
// to our main Window

// This example is the typical way of start building a FiveWin program

#include "FiveWin.ch"

#Define aPubGrad {| lInvert | If( lInvert, ;
{ { 1 / 3, nRGB( 255, 253, 222 ), nRGB( 255, 231, 151 ) }, ;
{ 2 / 3, nRGB( 255, 215, 84 ), nRGB( 255, 233, 162 ...

... nElemento:= val(nProduct) }

Function Set_items_Active(oItem,lActive,oBTn)
local oCtrl
for each oCtrl in oItem:aControls
oCtrl:bClrGrad = { | lInvert | If( ! lInvert,;
{ { 1, CLR_WHITE, CLR_WHITE } },;
{ { 1, RGB( 229,241,251 ), RGB( 229,241,251 ) } } ) }
oCtrl:refresh()
next ...

... Msginfo()

aBtnEle[n]:ocursor:= oHand
aBtnEle[n]:nClrBorder := { |obtn| (IIF(obtn:lMOver,CLR_BLUE,CLR_HGRAY)) }
aBtnEle[n]:bClrGrad = { | lInvert | If( ! lInvert,;
{ { 1, CLR_WHITE, CLR_WHITE } },;
{ { 1, RGB( 229,241,251 ), RGB( 229,241,251 ) } } ) }

aBtnEle[n]:cargo:= lActive

aBtnEle ...

... cc/CKC4YVFZ/k.jpg

@ oBrw:nBottom+1, oBrw:nWidth-44.4 BTNBMP aBtnBrow[1] SIZE 20,20 PIXEL OF oDlg NOROUND 2007
aBtnBrow[1]:bClrGrad := { |lInvert| If( lInvert, aBru[ 2 ]:hBrush, aBru[ 1 ]:hBrush ) }
WITH OBJECT aBtnBrow[1]
:nClrBorder := nRgb(218,214,179)// border color
:bColorMap ...

... cc/CKC4YVFZ/k.jpg

@ oBrw:nBottom+1, oBrw:nWidth-44.4 BTNBMP aBtnBrow[1] SIZE 20,20 PIXEL OF oDlg NOROUND 2007
aBtnBrow[1]:bClrGrad := { |lInvert| If( lInvert, aBru[ 2 ]:hBrush, aBru[ 1 ]:hBrush ) }
WITH OBJECT aBtnBrow[1]
:nClrBorder := nRgb(218,214,179)// border color
:bColorMap ...

... cc/CKC4YVFZ/k.jpg

@ oBrw:nBottom+1, oBrw:nWidth-44.4 BTNBMP aBtnBrow[1] SIZE 20,20 PIXEL OF oDlg NOROUND 2007
aBtnBrow[1]:bClrGrad := { |lInvert| If( lInvert, aBru[ 2 ]:hBrush, aBru[ 1 ]:hBrush ) }
WITH OBJECT aBtnBrow[1]
:nClrBorder := nRgb(218,214,179)// border color
:bColorMap ...

... on another mode

@ oBrowse:nBottom+3, oBrowse:nWidth-44.4 BTNBMP aBtnBrow[3] SIZE 12,10.3 PIXEL OF oDlg NOROUND 2007
aBtnBrow[3]:bClrGrad := { |lInvert| If( lInvert, aBru[ 2 ]:hBrush, aBru[ 1 ]:hBrush ) }
aBtnBrow[3]:nClrBorder := { || (IIF(aBtnBrow[3]:lMOver,,CLR_GRAY)) }
aBtnBrow[3]:disable()

... 40; cLabTxt )

I have a gradient defined in there which is drawn from the MAIN() program file as a PUBLIC variable:
PUBLIC aPubGrad := {| lInvert | If( ! lInvert, { { 0.50, 16776960, 16777215 }, ;
{ 0.50, 16777215, 16776960 } }, { { 0.50, 128, 16777215 }, { 0.50, 16777215, 128 ...

... 58;//i.postimg.cc/WzGNwsjQ/j.jpg

What can I do to prevent the blue color from drooling beyond the border of the btnbmp button?

:bClrGrad = { | lInvert | If( ! lInvert,;
{ { 1, RGB( 244, 244, 245 ), RGB( 244, 244, 245 ) } },;
{ { 1, RGB( 145, 201, 247 ), RGB( 145, 201, 247 ) } } ) }

If you look into
METHOD PaintFooter( nRow, nCol, nHeight, lInvert ) CLASS TXBrwColumn
you see that
cFooter := ::footerStr()

and
::PaintBmpAndText( { nRow, nCol, nRow + nHeight, nRight }, ;
cFooter, ::nFootStrAlign, ::bLeftText, oFont, aColors[ 1 ], ;
nBmpNo, ::nFootBmpAlign, .t ...

... Function SetGradientBtnbmp(ntype,ocontrol,nColorBorder)
DEFAULT nColorBorder := nRGB(116,165,216 )
Do case
Case ntype = 2007
...
...
//2007
ocontrol:bClrGrad = { | lInvert | If( ! lInvert,;
...
ocontrol:nClrBorder := { || (IIF(ocontrol:lMOver,nColorBorder,nRgb(225, 225, 225))) }

regards
Uwe

... changes but not the buttons.

DEFINE BUTTONBAR oBar OF oWnd SIZE 80, 80 2007
oBar:SetFont( oFont )
oBar:SetColor( { |l,o| If( l, CLR_BLACK, CLR_WHITE ) }, oWnd:nClrPane )
oBar:bClrGrad := { |lInvert| If( lInvert, nArgb( 96, CLR_WHITE ), nArgb( nAlpha % 256, nBarClr ) ) }

regards
Uwe

... at left to hide/show the Explorer Menu if there was

then the rbtn are change at the end

type

For x= 1 TO 71
oBtn[x]:bClrGradNormal = { | lInvert | If( ! lInvert,;
{ { 1, RGB( 225, 225,225 ), RGB( 225, 225, 225 ) } },;
{ { 1, RGB( 229,241,251 ), RGB( 229,241,251 ) } } ) }
next x





I ...

... oSBtn[1]:nClrCaption := aVal[62]
oSBtn[1]:bMMoved = { | nRow, nCol, nFlags | SHOW_FRAME( oSBtn, 1, nOld ), nOld := 1 }
oSBtn[1]:bClrGrad := { |lInvert| If( lInvert, 0x80FFA54A, nARGB( 54, 0, 192, 0 ) ) }

........
........

oMetro:Show()
oMetro:bPainted := {|| oMetro:SayText( cText, { 50, 180 ...