From df88618efb32274e7b21493c48483d4761d2f9a3 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?John=20Ankarstr=C3=B6m?= <john@ankarstrom.se>
Date: Wed, 3 Aug 2022 16:55:03 +0200
Subject: 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.
---
 c/common.h | 12 ++++++++++++
 1 file changed, 12 insertions(+)

(limited to 'c/common.h')

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
-- 
cgit v1.2.3