xBrowse new looks

[MOISES]

Hello,

Is it posible to create an example that shows latest xBrowse new look/styles?

Thank you.

[Silvio.Falconi]

what's mean

[MOISES]

Hi,

This code does not change the look:

Code: Select all  Expand view  RUN

WITH OBJECT oBrowse
     
      :nStretchCol      := STRETCHCOL_WIDEST
      :SetStyle( 2018 )

END

Thank you.

[Silvio.Falconi]

here make it



only recordsel is not with style
If I press on header it is colorized with green color

[MOISES]

Hi,
Don´t see changes.

Thanks

[Silvio.Falconi]

on header, on footer...

2007



2010



2013



2015



2018





2019
FUTURE

[Jimmy]

on header, on footer...
FUTURE

these Color come from Theme which you get when use XP Manifest.
they have change with every Windows Version so next Version might ... Darkmode

now with Windows 10 Darkmode you also can use Classic Style which make not much Difference in Darkmode.
the Difference without XP Manifest is that you also have no visual Effect like "hover" Color.

---

you can change Theme Color for 30 Parts of Control with SetSysColors() https://docs.microsoft.com/en-us/windows/win32/api/winuser/nf-winuser-setsyscolors
but it will "work" an All App as long as you login. re-login will use default Value from

Code: Select all  Expand view  RUN

HKEY_CURRENT_USER\Control Panel\Colors

so if you want you can force all Apps look like your App