FiveTech Software tech support forums

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

... NOBORDER LEFT OF oFld:aDialogs[ 1 ] SIZE 140, 80 ; COLOR nBTColor, nBColor UPDATE oBtn2:bColorMap := {|| { , nSColor } } oBtn2:bClrGrad := { |lMouseOver, oBtn| If( lMouseOver, 255, 3067734 ) } oBtn2:nClrText := { |lMouseOver,oBtn| If( lMouseOver, 16777215, 0 ) } -------- I can create and save ...

... clause, :lBorder is being reset to .T. internally during mouse move. Fixed - If text color is specified as codeblock, this is evaluated with lMouseOver and Self as parameters. - If brushs is to be set for btnbmp created on a dialog, it was required to be set On Init clause of Dialog. Now ...

... + "Setup","EXIT", 1, CLR_BLACK, 14089979 } ; PROMPT " &Exit " ; FONT oSFont1 NOBORDER LEFT 2007 ; GRADIENT { | lMouseOver | If( ! lMouseOver,; { { 0.50, 13356031, 16777215 }, ; { 0.50, 16777215, 13356031 } }, ; { { 0.50, 16761992, 16777215 }, ; { 0.50, 16777215, ...

:nClrText := { |lMouseOver, oBtn| <color>( lMouseOver, oBtn ) }

Mr. Rao, Your sample works fine. To change the textcolor as well I did the following changes with a included Setcolor() : GRADIENT { |lMouseOver| If( lMouseOver, ( oBtn:SetColor( 16777215, ), 255 ), ; // red with white text { { 1, (oBtn:SetColor( 0, ), 3067734 ), 3067734 } } ) } // green ...

In bGradient, we can specify solid colors also like:

bClrGrad := { |lMouseOver| If( lMouseOver, CLR_HRED, { { 1, CLR_BLUE, CLR_WHITE } } ) }

... to change the color ( NO gradient ) on mouseover ? I couldn't find any sample. for gradient it works ( using vars from a dbf ) like GRADIENT { | lMouseOver | If( ! lMouseOver,; { { nBPos[5], nBColA1[5], nBColB1[5] }, ; { nBPos[5], nBColB1[5], nBColA1[5] } }, ; { { nBPos[5], nBColA2[5], nBColB2[5] ...

... + "Excel1.Bmp" ; ACTION ( STEUER_B(oBtn2), oBtn2:Disable() , DBSELECTAREA(cMUmsName) ) ; FONT oFontSys ; LEFT oBtn2:bClrGrad := { | lMouseOver | If( ! lMouseOver,; { { aVal[112], aVal[110], aVal[111] }, ; { aVal[112], aVal[111], aVal[110] } }, ; { { aVal[116], aVal[114], aVal[115] ...

... the style is 2007 ... 2015. But in the earlier versions, the codeblock should return a valid Gradient Array. bClrGrad is evaluated with 2 params lMouseOver, oBtnObject. Now the bClrGrad can return a Gradient Array or an RGB color or an ARGB color ( Alpha Color ) or a Brush Handle or a GDI+ Brush ...

... ; ACTION ( oBrw1:ToExcel(), ; SetFocusAfter(FindWindow( "XLMAIN", 0 ) ) ) ; FONT oFontSys ; LEFT oBBtn[11]:bClrGrad := { | lMouseOver | If( ! lMouseOver,; { { aVal[112], aVal[110], aVal[111] }, ; { aVal[112], aVal[111], aVal[110] } }, ; { { aVal[116], aVal[114], aVal[115] ...

... MESSAGE "Open a previous project" ; ACTION MsgStop( "Open Project", "Stop" ) oBtn[1]:bClrGrad := { | lMouseOver | If( ! lMouseOver,; { { 0.5, 16764573, 16756833 }, ; { 0.5, 16756833, 16764573 } }, ; { { 0.5, 11524015, 13625295 }, ; { 0.5, 13625295, ...

... ; ACTION ( nBColorF1 := ChooseColor(), oBmp[1]:Refresh(), oBtn[1]:Refresh() ) ; FONT oFontSys ; LEFT oBtn[1]:bClrGrad := { | lMouseOver | If( ! lMouseOver,; { { nBGradPos1, nBColorF1, nBColorB1 }, ; { nBGradPos1, nBColorB1, nBColorF1 } }, ; { { nBGradPos2, nBColorF2, nBColorB2 ...

... to nClrTextDis ; NO error but with NO result. Maybe another solution, changing the textcolor on mouseover ? OK in FWH 15.1 oBtn:nClrText := { | lMouseOver | If( lMouseOver, CLR_HBLUE, CLR_WHITE ) } Windows version: 6.2, Build 9200 Time from start: 0 hours 0 mins 0 secs Error occurred at: 02/23/15, ...

... .t. oBtn[9]:cToolTip = { "Exit" + CRLF + "Color","Color-Selection", 1, CLR_BLACK, 14089979 } oBtn[9]:nClrText := { | lMouseOver | If( lMouseOver, 0, 0 ) } http://www.pflegeplus.com/IMAGES/BtnAdjust2.jpg best regards Uwe :?: