New function XEdit() in next FWH version

[Antonio Linares]

You can start using it today, though it will be included in next FWH by default

Code: Select all  Expand view  RUN

#include "FiveWin.ch"

function Main()

   USE clients
   XEdit()
   USE

return nil

function XEdit( uSource, cFieldList, lNew )

return FW_Record():New( uSource, cFieldList, lNew ):Edit()

[Antonio Linares]

Code: Select all  Expand view  RUN

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

[vilian]

Antônio,

Will you make improvements in RibbonBar soon ? The current appearance(2007) is look like an old thing.

[Antonio Linares]

Vilian,

What appearance should we use ?

Office 2016 Dark Mode ?

[vilian]

Yes

[Antonio Linares]

Vilian,

Lets try to sumarize all the changes proposed here:

viewtopic.php?f=3&t=36145&start=0&hilit=ribbonbar+dark

From James:

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

[vilian]

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 ?

[Antonio Linares]

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