FiveTech Software tech support forums

... TOOLTIP { "Cerrar Ventana", "Mantenimiento" } BTNRIGHT FLAT AEval( oBar:aControls, { |oBtn| oBtn:bColorMap := { |o| If( o:lMOver, { CLR_BLACK, CLR_HRED }, nil ) } } ) return oBar Static Procedure AddReg(modo) local oDlg,oGet[10],oWait local cGet[10] local lRet := .F. If ...

... 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 clr := RGB( 180,136,85 ) else clr := RGB( 245,245,235) endif endif return ...

Antonio Linares wrote:Silvio,

Have you tried to remove this line ?

obtn[n]:nClrBorder := RGB(195,195,185)

I remeber it wanted a codeblock with lMover but I 'm searching on forum now

... FLAT RIGHT; FONT oFontSmall ; PROMPT cDesc ; 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( ...

... nAdj, oCli local nRound := If( ::lRound, ::nRound, 0 ) local hWhitePen, hGrayPen, hOldPen add these line 1752 //if ! ::lPressedif !   ::lMOver         hGrayPen  := CreatePen (PS_SOLID,1,::nClrBorder)         hWhitePen := GetStockObject (WHITE_PEN)         hOldPen   := ...

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

https://i.postimg.cc/htPSMbSz/dddddd.jpg I made AEval( aBtn, { |o| o:nClrBorder := IIF(o:lMOver,rgb(119,162,217),CLR_GRAY) } ) how I can make to change the size of border ? another image https://i.postimg.cc/vmjtJbDm/Immagine.jpg this happen ...

I don't Know .. remember Antonio sad me ...
try with ocontrol:nClrBorder := { || (IIF(ocontrol:lMOver,nColorBorder,nRgb(225, 225, 225))) }

... ) Do case Case ntype = 2007 ... ... //2007 ocontrol:bClrGrad = { | lInvert | If( ! lInvert,; ... ocontrol:nClrBorder := { || (IIF(ocontrol:lMOver,nColorBorder,nRgb(225, 225, 225))) } :?: regards Uwe :?:

... FLAT NOBORDER ; COLOR nClrText, nClrBack WITH OBJECT oBtnPrint :bAction := dummy() :nClrBorder := nClrBorder :bColorMap := { | o | o:lBorder := o:lMOver, nCBorder } :oFontBold := oBold :lRound := .F. END SomeOne can help me please

to show a color border on btnbmp when I move over with the mouse I made aBmps[nY,nX]:nClrBorder := { || (IIF(aBmps[nY,nX]:lMOver,CLR_WHITE,CLR_GRAY)) } But I not see any border colored and the border is allways black https://i.postimg.cc/x8Jbmrkq/hh.png test sample #include"fivewin.ch"#define ...

... newest FIVEWIN version and original FW classes evolved much. It is difficult for me to keep up my changes. Best regards Otto method paint ... if ::lMOver .and. nTypeButton != 3 do case case nTypeButton == TYPE_NORMAL if ::lSelected GradientFill( ::hDC, 1, 1, ::nHeight, ::nWidth - If(::lRound,2,0), ...

Probable bug for the color border at line 1590 of btnbmp class it not change the color border if obtn:lMover:= .t. I wish btnbmp as this https://s14.postimg.org/6vi5t400h/button.png with images the buuton with clear blue is showed when I put the mouse over ...

Try it this way:

oBtn2:nClrBorder := { || (IIF(oBtn2:lMOver,,CLR_GRAY)) }

... oDlg ;      COLOR CLR_BLACK,CLR_WHITE   GRADIENT bGrad2015 NOBORDER      oBtn1:nClrBorder := (IIF(oBtn1:lMOver,,CLR_GRAY))      oBtn1:oCursor := cCursorBtn @ 10,60 BTNBMP oBtn2 FILENAME "DLG_IMG.bmp" CANCEL;  ...