瀏覽代碼

Added uxtheme bindings

JooperGH 2 年之前
父節點
當前提交
5519749aa4
共有 2 個文件被更改,包括 12 次插入3 次删除
  1. 0 3
      core/sys/windows/dwmapi.odin
  2. 12 0
      core/sys/windows/ux_theme.odin

+ 0 - 3
core/sys/windows/dwmapi.odin

@@ -3,9 +3,6 @@ package sys_windows
 
 foreign import dwmapi "system:Dwmapi.lib"
 
-MARGINS :: distinct [4]int
-PMARGINS :: ^MARGINS
-
 DWMWINDOWATTRIBUTE :: enum {
 	DWMWA_NCRENDERING_ENABLED,
 	DWMWA_NCRENDERING_POLICY,

+ 12 - 0
core/sys/windows/ux_theme.odin

@@ -0,0 +1,12 @@
+// +build windows
+package sys_windows
+
+foreign import uxtheme "system:UxTheme.lib"
+
+MARGINS :: distinct [4]int
+PMARGINS :: ^MARGINS
+
+@(default_calling_convention="stdcall")
+foreign uxtheme {
+    IsThemeActive :: proc() -> BOOL ---
+}