FiveTech Software tech support forums

It could be interesting to insert the possibility to change the style, I mean l2007 l2013 l2015 l2016 and the style of the tab if rounded or square like office 2013/2019 and use the method METHOD SetStyles( l2010, l2013, l2015, nTopMargin, nClrPaneRB, nClrBoxOut, ...

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

Antonio,
I tried to insert my theme but I have make a confusion..
I use l2016 for ribbonbar and then l2013 for tgroup simulating theme 2019




can you help me to set these colors ?
the color of bar where are the item of menu is gray but it is wrong

... If I create a GROUP ADD GROUP oGr1 RIBBON ::oRebar TO OPTION 2 WIDTH 480 PROMPT "Gestione" to have the colors blue for the rbbtn as l2013 I must set oGr1:l2013:=.t. and then run ok for the colors on Windows 2010 https://i.postimg.cc/cHMPf5Wq/aaaa.jpg only the border ...

... ::oRebar:l2016:=.t. ::oRebar:nRoundBox := 0 I see right the color of text of tabs but the grad of the RBBTN must be as when the ribbonbar is l2013 Perhaps there is ar error on TRBBTN class When I use l2016 I see the color of rbbtn like 2007 https://i.postimg.cc/bwQ8VdYj/ribbonbar.jpg

... ] ; [ <ColorSel: COLORSEL> <nClrBoxSelOut>,<nClrBoxSelIn> ] ; [ <l2010: 2010, _2010> ]; [ <l2013: 2013, _2013> ]; [ STARTBTN <nStart> ]; [ <l2015: 2015, _2015> ]; [ <l2016: 2016, _2016> ]; but this version there is not ...

... ] ;                           [ <l2010: 2010, _2010> ];                           [ <l2013: 2013, _2013> ];                           [ <lWIN10: WIN10, _WIN10> ];    <---                           [ STARTBTN ...

Karinha, si no le pongo flat el botón parece hundido. Parece no tomar el estilo l2013 salvo por el borde derecho que si se pinta con el color del estilo pero no el resto de las lineas. No puedo cambiar a buttonbmp porque llevo muy avanzado el proyecto y además es ...

... endif if Valtype( l2010 ) != "L" DEFAULT l2010 := .F. endif if Valtype( l2015 ) != "L" DEFAULT l2015 := .F. endif if Valtype( l2013 ) != "L" DEFAULT l2013 := .F. endif if Valtype( lColors ) != "L" DEFAULT lColors := .F. endif if Valtype( lVert ) != "L" ...

... endif if Valtype( l2010 ) != "L" DEFAULT l2010 := .F. endif if Valtype( l2015 ) != "L" DEFAULT l2015 := .F. endif if Valtype( l2013 ) != "L" DEFAULT l2013 := .F. endif if Valtype( lColors ) != "L" DEFAULT lColors := .F. endif if Valtype( lVert ) != "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

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

... Tarjeta" ; CELL LINES NOBORDER AUTOCOLS WITH OBJECT oBrwC :lSeekBar := .T. :bClrEdits := { || { CLR_HRED, CLR_YELLOW } } :lAutoSort := .T. :l2013 := .T. :CreateFromCode() END oBarC:bPainted := { || oBarC:SayText( "Listado de Tarjetas", ; { nil, nil, nil, -50 }, "R", oFont18, ...

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

...       [<nClrFore>], [<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 ?