Load uxtheme dynamically.

In case it is not supported. If I am not mistaken, SWI-Prolog supports
Windows 2000, so there is no reason why Episode Browser shouldn't.

1 files changed, 12 insertions, 0 deletions

diff --git a/c/common.h b/c/common.h
index f011565..9d322b3 100644
--- a/c/common.h
+++ b/c/common.h
@@ -120,4 +120,16 @@ inline BOOL SetWindowRect(const HWND hWnd, const RECT r)
 	return SetWindowRect(hWnd, r.left, r.top, r.right, r.bottom);
 }
 
+inline BOOL EBIsThemeActive()
+{
+	extern BOOL (*IsThemeActive)();
+	return IsThemeActive? IsThemeActive(): 0;
+}
+
+inline BOOL EBSetWindowTheme(HWND hWnd, LPCWSTR pszSubAppName, LPCWSTR pszSubIdList)
+{
+	extern BOOL (*SetWindowTheme)(HWND, LPCWSTR, LPCWSTR);
+	return SetWindowTheme? SetWindowTheme(hWnd, pszSubAppName, pszSubIdList): 0;
+}
+
 #endif