#include "FiveWin.ch"
function Main()
USE clients
XEdit()
USE
return nil
function XEdit( uSource, cFieldList, lNew )
return FW_Record():New( uSource, cFieldList, lNew ):Edit()
#include "FiveWin.ch"
function Main()
USE clients
XEdit( , "NAME,ADRESS" )
USE
return nil
function XEdit( uSource, cFieldList, lNew )
return FW_Record():New( uSource, cFieldList, lNew ):Edit()
Antônio,
Will you make improvements in RibbonBar soon ? The current appearance(2007) is look like an old thing.
Vilian,
What appearance should we use ? 
Office 2016 Dark Mode ?
Yes
I am quite sure that the font being used in Office 2016 is Segoe UI 12pt.
oBar:oFont := TFont():New("Segoe UI",0,-12)
// Microsoft Office 2016 colors
nMSRed := RGB(182,71,43)
nMSGreen:= RGB(33,114,69)
nMSBlue:= RGB(42,87,154)
nMSPurple := RGB(128,57,123)
nMSRibbon := RGB(141,141,141)
// Dark Gray Theme
nMSBackground := RGB(68,68,68)
nMSRibbon := RGB(178,178,178)
// Black Theme
nMSBackground := RGB(10,10,10)
nMSRibbon := RGB(54,54,54)
I assume you mean for the mouse over color (it is not a gradient so there is only one color).
The color I have is RGB(197,197,197)
oRebar:hSeparation := 6
I use a value of 2 which seems about right
I used :hSeparation := 4 based on my font Verdana ...
Antônio,
I know this topic and already tried reproduce the ribbonbar shown there, but without success 
Could you show us a little and complete sample of this ?
Vilian,
In order to test differents RibbonBar themes, here you have a generic function to modify the RibbonBar theme on runtime:
viewtopic.php?p=221318#p221318
I appreciate your help and feedback to fine tune it