Dark mode

[Jimmy]

hi,

is there a FW Sample using "Dark Mode"

[joseluisysturiz]

Sakudos, aiempre he querodps hacer mis sistemas asi, pero no conseguido como, gracias...

[Antonio Linares]

Jimmy,

If your app is going to use a RibbonBar here you have the source code to build a "dark" RibbonBar:

http://forums.fivetechsupport.com/viewt ... 83#p221683

Using these colors and applying them to your app you should get the desired "dark" app

[Jimmy]

hi,

Sakudos, aiempre he querodps hacer mis sistemas asi, pero no conseguido como, gracias...

when using Ownerdraw you can react on visual Style / Effekt and paint what you want.

so the Question is does FW Controls support Ownerdraw

---
do you remember Color under Windows XP ?


Color of Apps depend on OS Theme which can be found in Registry under

Code: Select all

HKEY_CURRENT_USER\Control Panel\Colors

there are COLOR_ Constant to use it with GetSysColor() / SetSysColors() API

https://docs.microsoft.com/en-us/window ... etsyscolor
https://docs.microsoft.com/en-us/window ... tsyscolors

using SetSysColors() will change Color for all Apps but only as long as User is login.
after re-login OS load default so Registry is not change

[Jimmy]

hi,

i found this working Code
http://forums.fivetechsupport.com/viewt ... ORS#p91694

Code: Select all

nRet := clrtest( CLR_YELLOW, CLR_HRED )

HB_FUNC( CLRTEST )
{
   int aElements[2] = { COLOR_CAPTIONTEXT, COLOR_SCROLLBAR };
   DWORD aColors[2];

   aColors[ 0 ] = hb_parnl( 1 );
   aColors[ 1 ] = hb_parnl( 2 );
   hb_retl (SetSysColors( 2, aElements, aColors ));
}

now i try this code with modify Function and it work

Code: Select all

nRet := SETSYSCOLORSEX({COLOR_SCROLLBAR}, CLR_HMAGENTA)
nRet := SETSYSCOLORSEX({COLOR_CAPTIONTEXT},CLR_HBLUE)

HB_FUNC( SETSYSCOLORSEX )
{
   int aElements[1];
   DWORD aColors[1];

   aElements[ 0 ] = hb_parnl( 1 );
   aColors[ 0 ]   = hb_parnl( 2 );
   hb_retl (SetSysColors( 1, aElements, aColors ));
}
 

but this function have only 2 Parameter and it start with Array.
what i like to have are 3 Parameter where 2nd and 3rd are test for "VALTYPE" = "C" or "A"

who can help me to write a new SETSYSCOLORSEX

p.s. not sure if Answer is like this Thread http://forums.fivetechsupport.com/viewt ... 6&p=159545