Menu with Gradient Color

[slar...@gmail.com]

Can we do this in Minigui Extended ?

while reading this in official HMG forum

https://www.hmgforum.com/viewtopic.php?f=5&t=7030

Sylvain Larche

Consultant

[Winston Garcia]

Hola,

Codigo fuente :

C:\MiniGUI\SOURCE\h_menu.prg

Ejemplo en
c:\minigui\samples\advanced\menuex

Modificas los colores en esta función ,

FUNCTION GetWin7Theme()

LOCAL aUserDefined := Array( 24 )

aUserDefined[ MNUCLR_MENUBARBACKGROUND1 ] := GetSysColor( 15 )
aUserDefined[ MNUCLR_MENUBARBACKGROUND2 ] := RGB( 211, 218, 237 )
aUserDefined[ MNUCLR_MENUBARTEXT ] := RGB( 0, 0, 0 )
aUserDefined[ MNUCLR_MENUBARSELECTEDTEXT ] := RGB( 0, 0, 0 )
aUserDefined[ MNUCLR_MENUBARGRAYEDTEXT ] := GetSysColor( 17 )
aUserDefined[ MNUCLR_MENUBARSELECTEDITEM1 ] := RGB( 174, 206, 246 )
aUserDefined[ MNUCLR_MENUBARSELECTEDITEM2 ] := RGB( 174, 206, 246 )

aUserDefined[ MNUCLR_MENUITEMTEXT ] := GetSysColor( 7 )
aUserDefined[ MNUCLR_MENUITEMSELECTEDTEXT ] := GetSysColor( 7 )
aUserDefined[ MNUCLR_MENUITEMGRAYEDTEXT ] := GetSysColor( 17 )
aUserDefined[ MNUCLR_MENUITEMBACKGROUND1 ] := RGB( 204, 215, 232 ) // RGB( 240, 240, 135 ) //
aUserDefined[ MNUCLR_MENUITEMBACKGROUND2 ] := RGB( 007, 095, 227 ) // RGB( 240, 240, 240 ) //
aUserDefined[ MNUCLR_MENUITEMSELECTEDBACKGROUND1 ] := RGB( 232, 238, 246 )
aUserDefined[ MNUCLR_MENUITEMSELECTEDBACKGROUND2 ] := RGB( 232, 238, 246 )
aUserDefined[ MNUCLR_MENUITEMGRAYEDBACKGROUND1 ] := RGB( 240, 240, 240 )
aUserDefined[ MNUCLR_MENUITEMGRAYEDBACKGROUND2 ] := RGB( 240, 240, 240 )

aUserDefined[ MNUCLR_IMAGEBACKGROUND1 ] := RGB( 204, 215, 232 ) // RGB( 240, 240, 135 ) //
aUserDefined[ MNUCLR_IMAGEBACKGROUND2 ] := RGB( 007, 095, 227 ) // RGB( 240, 240, 240 ) //

aUserDefined[ MNUCLR_SEPARATOR1 ] := RGB( 224, 224, 224 )
aUserDefined[ MNUCLR_SEPARATOR2 ] := RGB( 255, 255, 255 )

aUserDefined[ MNUCLR_SELECTEDITEMBORDER1 ] := RGB( 174, 206, 246 )
aUserDefined[ MNUCLR_SELECTEDITEMBORDER2 ] := RGB( 174, 206, 246 )
aUserDefined[ MNUCLR_SELECTEDITEMBORDER3 ] := RGB( 174, 206, 246 )
aUserDefined[ MNUCLR_SELECTEDITEMBORDER4 ] := RGB( 174, 206, 246 )

RETURN aUserDefined 

Saludos

--
Visit our website on http://www.hmgextended.com/ or https://www.hmgextended.org/
---
You received this message because you are subscribed to the Google Groups "Harbour Minigui" group.
To unsubscribe from this group and stop receiving emails from it, send an email to minigui-foru...@googlegroups.com.
To view this discussion on the web, visit https://groups.google.com/d/msgid/minigui-forum/cd28bfbe-1b3c-41f2-b244-8e3d639c8475n%40googlegroups.com.

[slar...@gmail.com]

Thanks / Gracia

I had tried the MenuEx sample but did not see that i can modify the theme like that.

MiniGui Extended always suprises me with it's simplicity.

Sylvain Larche

Consultant