FiveTech Software tech support forums

... ) local oBar, oBtn, oBold DEFINE BUTTONBAR oBar OF oBrw:oWnd SIZE 75,75 3D 2015 HEIGHT 96 oBold := oBar:oFont:Bold() oBar:oGrpFont := oBold oBar:bClrGrad = { || { { 0.10,15724527,7303023 },{ 0.10,7303023,15724527 } } } // grey DEFINE BUTTON OF oBar ; FILE op:bmp32+"new.bmp" TOP ; PROMPT ...

... oBtn in aBtn WITH OBJECT oBtn :nClrText := { |lOver,o| If( o:HasFocus(), DLG_nColortitle1, If( lOver, RGB(195,195,185), RGB(195,195,185) ) ) } :bClrGrad := { |lOver,o| If( o:HasFocus(), RGB( 250,250,245), If( lOver, RGB( 245,245,235), RGB( 250,250,245) ) ) } :nClrBorder := RGB(195,195,185) END ...

I wish only delete that internal Black Box https://i.postimg.cc/Z5y5F83c/llll.png I tried also with For n= 1 to len(oBtn) obtn[n]:bClrGrad := < |u,oBtn| local clr := RGB( 245,245,235) if oBtn:lActive if oBtn:lMOver clr := {{ 1, RGB( 250,250,245),RGB( 250,250,245) }} elseif oBtn:lPressed ...

... 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 ...

... ; OF oElements action 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:= ...

... "R" ) } //* los 2 primeros array marcan los colores del boton al pasar por el, los segundor // array marcan el gradient de la barra oBar:bClrGrad := { | lPressed | If( ! lPressed, ; { { 1, nRGB( 123, 183, 164 ), nRGB( 151, 164, 174 ) } }, ; { { 1, nRGB( 166, 238, 253 ), nRGB( 185, 168, ...

... @ 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 ...

... @ 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 ...

... @ 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 ...

I resolved but 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()

... } ; , { 0.30, aGradient[k], atext[k] } ; , { 0.30, atext[k], aGradient[k] } ; , { 0.20, aGradient[k], aBack[k] } ; , .F. ; } oBtnNum[k,t]:bClrGrad := aGradH

... Gracias. //------------------------------ Function Color_oBot(oBot,cColor) DEFAULT cColor := NIL IF !cColor = NIL if cColor = "ORO" oBot:bClrGrad = { | lMouseOver | If( ! lMouseOver,; { { 1.00,14481663,38075 }, ; { 1.00,38075,14481663 } }, ; { { 0.10,16777215,9363707 },; { 0.10,9363707,16777215 ...

Modify bClrGrad property :

Code: Select all  Expand view

oBtn:bClrGrad := { |lInvert| If( lInvert, nARGB( 64, 0, 192, 0 ), nARGB( 64, 0, 192, 0 ) ) }

DEFINE BUTTONBAR oBar OF oTabella SIZE 70,70 BOTTOM NOBORDER 2010

oBar:bClrGrad := { | lPressed | If( ! lPressed,;
{ { 1, nRgb(233,229,206),nRgb(233,229,206) } },;
{ { 1, nRgb( 245,244,234), nRgb( 245,244,234) } } ) }

... :lRecordSelector := .F. :lHeader := .F. :lHScroll := .F. :nHeaderHeight := 30 :nRowHeight := 85 :bClrHeader := { || { CLR_BLACK, CLR_WHITE } } :bClrGrad := { || { CLR_WHITE, CLR_WHITE } } :lDrawBorder := .T. :nStretchCol := STRETCHCOL_WIDEST :bClrSel := { || { CLR_BLACK, nRGB( 235, 235, 235 ...