Yashied Posted May 2, 2009 Share Posted May 2, 2009 (edited) Unfortunately I can not test in different themes, because I have only Windows XP theme (Default). I would appreciate if somebody will test this function in other themes. Thanks. func _GetTabBkColor($hWnd) local $hTheme, $Ret if not IsHWnd($hWnd) then $hWnd = GUICtrlGetHandle($hWnd) endif $hTheme = DllCall('uxTheme.dll', 'ptr', 'OpenThemeData', 'hwnd', $hWnd, 'wstr', 'TAB') $Ret = DllCall('uxTheme.dll', 'lresult', 'GetThemeColor', 'ptr', $hTheme[0], 'int', 9, 'int', 0, 'int', 0x0EED, 'dword*', 0) if (@error) or ($Ret[0] < 0) then $Ret = -1 endif DllCall('uxTheme.dll', 'lresult', 'CloseThemeData', 'ptr', $hTheme[0]) if $Ret = -1 then return SetError(1, 0, -1) endif return BitAND($Ret[5], 0x00FF00) + BitShift(BitAND($Ret[5], 0x0000FF), -16) + BitShift(BitAND($Ret[5], 0xFF0000), 16) endfunc; _GetTabBkColor Edited May 2, 2009 by Yashied My UDFs: iKey | FTP Uploader | Battery Checker | Boot Manager | Font Viewer | UDF Keyword Manager | Run Dialog Replacement | USBProtect | 3D Axis | Calculator | Sleep | iSwitcher | TM | NetHelper | File Types Manager | Control Viewer | SynFolders | DLL Helper Animated Tray Icons UDF Library | Hotkeys UDF Library | Hotkeys Input Control UDF Library | Caret Shape UDF Library | Context Help UDF Library | Most Recently Used List UDF Library | Icons UDF Library | FTP UDF Library | Script Communications UDF Library | Color Chooser UDF Library | Color Picker Control UDF Library | IPHelper (Vista/7) UDF Library | WinAPI Extended UDF Library | WinAPIVhd UDF Library | Icon Chooser UDF Library | Copy UDF Library | Restart UDF Library | Event Log UDF Library | NotifyBox UDF Library | Pop-up Windows UDF Library | TVExplorer UDF Library | GuiHotKey UDF Library | GuiSysLink UDF Library | Package UDF Library | Skin UDF Library | AITray UDF Library | RDC UDF Library Appropriate path | Button text color | Gaussian random numbers | Header's styles (Vista/7) | ICON resource enumeration | Menu & INI | Tabbed string size | Tab's skin | Pop-up circular menu | Progress Bar without animation (Vista/7) | Registry export | Registry path jumping | Unique hardware ID | Windows alignment More... Link to comment Share on other sites More sharing options...
Recommended Posts
Create an account or sign in to comment
You need to be a member in order to leave a comment
Create an account
Sign up for a new account in our community. It's easy!
Register a new accountSign in
Already have an account? Sign in here.
Sign In Now