FiveTech Software tech support forums

Antonio, :nClrBoxSelOut = _nClrBoxSelOut // New ! This works great to eliminate the white outline when a tab is hovered over. :l2010 = .T. // New ! I don't see any difference with this. What should I be looking for? The last change (to the source) I presume gets rid of the little black ...

... are the syle from 1 to 5 :) then we must add a new methos direclty to ribbon called METHOD SetStyle( nStyle ) or change this METHOD SetStyles( l2010, l2013, l2015, nTopMargin, nClrPaneRB, nClrBoxOut, nClrBoxIn,; nClrBoxSelOut, nClrBoxSelIn, aGrad, aGradFld, aGradHigh, aGradOver, l2016 ) DEFAULT ...

... COLORBOX> <nClrBoxOut>,<nClrBoxIn> ] ; [ <ColorSel: COLORSEL> <nClrBoxSelOut>,<nClrBoxSelIn> ] ; [ <l2010: 2010, _2010> ]; [ <l2013: 2013, _2013> ]; [ STARTBTN <nStart> ]; [ <l2015: 2015, _2015> ]; [ <l2016: 2016, _2016> ...

...                          [ <ColorSel: COLORSEL> <nClrBoxSelOut>,<nClrBoxSelIn> ] ;                           [ <l2010: 2010, _2010> ];                           [ <l2013: 2013, _2013> ];                           [ <lWIN10: WIN10, _WIN10> ...

... está en negrita ) oMenuP := LastMenu() if !empty( oMenuP ) if !lSystem if Valtype( l2007 ) != "L" DEFAULT l2007 := .F. endif if Valtype( l2010 ) != "L" DEFAULT l2010 := .F. endif if Valtype( l2015 ) != "L" DEFAULT l2015 := .F. endif if Valtype( l2013 ) != "L" ...

... está en negrita ) oMenuP := LastMenu() if !empty( oMenuP ) if !lSystem if Valtype( l2007 ) != "L" DEFAULT l2007 := .F. endif if Valtype( l2010 ) != "L" DEFAULT l2010 := .F. endif if Valtype( l2015 ) != "L" DEFAULT l2015 := .F. endif if Valtype( l2013 ) != "L" ...

I think we must create on RibbonBar class a new method called SetStyle and insert on this all colors of all style l2007,l2010, l2013, l2015,l2016

this for each classes : ribbonbar buttonribbon groupribbon

on this method we can set the colors

Ok, I was able to override the PaintFld() method so I can use the l2010 flag and still keep the groups like Office 2016. I also had to make some changes in the override method to paint the folders with a different background color. This was only an issue ...

Now some things are starting to make sense to me. When the l2010 flag is set, aGradFld is used to paint the folder tabs when the mouse moves over them. And for all other flags, aGradOver is used. Here is the code from the PaintFld() method: if ::l2010 ...

OK, I just discovered that aGradOver is not working (it is ignored) with l2010, but it works fine with l2016.

All my work has been done with the l2010 flag since it makes groups the most similar to Office 2016.

So now I have to figure out where the bug is.

James

... this much easier that I will be testing soon. One other thing you need to do to get a ribbonbar style that looks like Office 2016 is to use the l2010 flag for the ribbon definition. Yes, it is ironic the the 2010 version looks most like the 2016 version. Here is an example showing the Black ...

... list my modify ( together Josè of alanit and Antonio) I had modify the ribbon class and add l2016 with some colors I change the METHOD SetStyles( l2010, l2013, l2015, nTopMargin, nClrPaneRB, nClrBoxOut, nClrBoxIn,; nClrBoxSelOut, nClrBoxSelIn, aGrad, aGradFld, aGradHigh, aGradOver, l2016 ) CLASS ...

... In your RPREVIEW.PRG try adding the following lines after the menu definition     MENU oMenu        oMenu: l2007: = (nStyle == 2007)        oMenu: l2010: = (nStyle == 2010)        if Upper (:: oWndMain: ClassName ()) == "TMDIFRAME"           oMenu: lMenuBar: = .T.        endif or 2 Option: ...

... I allready tried with these modificatins MENU oMenu oMenu:l2007 := ( nStyle == 2007 ) oMenu:l2010 := ( nStyle == 2010 ) oMenu:l2013 := ( nStyle == 2013 ) oMenu:l2015 := ( nStyle == 2015 ) oMenu:lMenuBar := .T.

... [<nClrBack>], <.lGDIP.> ) and if I try to set the button with obtn1:l2015:=.t. or obtn1:l2013:=.t. or obtn1:l2010 :=.t. is allways the same color any solution please ?