[perl-win32-gui-users] Using system colors

[Marjolein K. <win...@ja...>]

How do I get at the system colors? I found a string of COLOR_ names in GUI.pm, and I'm trying to use this:

$color = Win32::GUI::constant("COLOR_BTNSHADOW", 0);

However, this seems to return only the *index* to that particular color, not the color itself. Is there an interface to GetSysColor() that I can use?

(I'm drawing a separator line, and want to use the user's shadow and highlight colors for that.)


Cheers,

Marjolein Katsma
HomeSite Help - http://hshelp.com/ - Extensions, Tips and Tools