mirror of
https://github.com/odin-lang/Odin.git
synced 2026-01-07 05:23:12 +00:00
280 lines
11 KiB
Odin
280 lines
11 KiB
Odin
// +build windows
|
|
package sys_windows
|
|
|
|
foreign import user32 "system:User32.lib"
|
|
|
|
@(default_calling_convention="stdcall")
|
|
foreign user32 {
|
|
GetClassInfoW :: proc(hInstance: HINSTANCE, lpClassNAme: LPCWSTR, lpWndClass: ^WNDCLASSW) -> BOOL ---
|
|
GetClassInfoExW :: proc(hInsatnce: HINSTANCE, lpszClass: LPCWSTR, lpwcx: ^WNDCLASSEXW) -> BOOL ---
|
|
|
|
GetClassLongW :: proc(hWnd: HWND, nIndex: c_int) -> DWORD ---
|
|
SetClassLongW :: proc(hWnd: HWND, nIndex: c_int, dwNewLong: LONG) -> DWORD ---
|
|
|
|
GetWindowLongW :: proc(hWnd: HWND, nIndex: c_int) -> LONG ---
|
|
SetWindowLongW :: proc(hWnd: HWND, nIndex: c_int, dwNewLong: LONG) -> LONG ---
|
|
|
|
GetClassNameW :: proc(hWnd: HWND, lpClassName: LPWSTR, nMaxCount: c_int) -> c_int ---
|
|
|
|
RegisterClassW :: proc(lpWndClass: ^WNDCLASSW) -> ATOM ---
|
|
RegisterClassExW :: proc(^WNDCLASSEXW) -> ATOM ---
|
|
UnregisterClassW :: proc(lpClassName: LPCWSTR, hInstance: HINSTANCE) -> BOOL ---
|
|
|
|
CreateWindowExW :: proc(
|
|
dwExStyle: DWORD,
|
|
lpClassName: LPCWSTR,
|
|
lpWindowName: LPCWSTR,
|
|
dwStyle: DWORD,
|
|
X: c_int,
|
|
Y: c_int,
|
|
nWidth: c_int,
|
|
nHeight: c_int,
|
|
hWndParent: HWND,
|
|
hMenu: HMENU,
|
|
hInstance: HINSTANCE,
|
|
lpParam: LPVOID,
|
|
) -> HWND ---
|
|
|
|
DestroyWindow :: proc(hWnd: HWND) -> BOOL ---
|
|
|
|
ShowWindow :: proc(hWnd: HWND, nCmdShow: c_int) -> BOOL ---
|
|
BringWindowToTop :: proc(hWnd: HWND) -> BOOL ---
|
|
GetTopWindow :: proc(hWnd: HWND) -> HWND ---
|
|
SetForegroundWindow :: proc(hWnd: HWND) -> BOOL ---
|
|
GetForegroundWindow :: proc() -> HWND ---
|
|
UpdateWindow :: proc(hWnd: HWND) -> BOOL ---
|
|
SetActiveWindow :: proc(hWnd: HWND) -> HWND ---
|
|
GetActiveWindow :: proc() -> HWND ---
|
|
|
|
GetMessageW :: proc(lpMsg: ^MSG, hWnd: HWND, wMsgFilterMin: UINT, wMsgFilterMax: UINT) -> BOOL ---
|
|
|
|
TranslateMessage :: proc(lpMsg: ^MSG) -> BOOL ---
|
|
DispatchMessageW :: proc(lpMsg: ^MSG) -> LRESULT ---
|
|
|
|
PeekMessageA :: proc(lpMsg: ^MSG, hWnd: HWND, wMsgFilterMin: UINT, wMsgFilterMax: UINT, wRemoveMsg: UINT) -> BOOL ---
|
|
PeekMessageW :: proc(lpMsg: ^MSG, hWnd: HWND, wMsgFilterMin: UINT, wMsgFilterMax: UINT, wRemoveMsg: UINT) -> BOOL ---
|
|
|
|
PostMessageA :: proc(hWnd: HWND, Msg: UINT, wParam: WPARAM, lParam: LPARAM) -> BOOL ---
|
|
PostMessageW :: proc(hWnd: HWND, Msg: UINT, wParam: WPARAM, lParam: LPARAM) -> BOOL ---
|
|
SendMessageA :: proc(hWnd: HWND, Msg: UINT, wParam: WPARAM, lParam: LPARAM) -> LRESULT ---
|
|
SendMessageW :: proc(hWnd: HWND, Msg: UINT, wParam: WPARAM, lParam: LPARAM) -> LRESULT ---
|
|
|
|
PostThreadMessageA :: proc(idThread: DWORD, Msg: UINT, wParam: WPARAM, lParam: LPARAM) -> BOOL ---
|
|
PostThreadMessageW :: proc(idThread: DWORD, Msg: UINT, wParam: WPARAM, lParam: LPARAM) -> BOOL ---
|
|
|
|
PostQuitMessage :: proc(nExitCode: c_int) ---
|
|
|
|
GetQueueStatus :: proc(flags: UINT) -> DWORD ---
|
|
|
|
DefWindowProcA :: proc(hWnd: HWND, Msg: UINT, wParam: WPARAM, lParam: LPARAM) -> LRESULT ---
|
|
DefWindowProcW :: proc(hWnd: HWND, Msg: UINT, wParam: WPARAM, lParam: LPARAM) -> LRESULT ---
|
|
|
|
FindWindowA :: proc(lpClassName: LPCSTR, lpWindowName: LPCSTR) -> HWND ---
|
|
FindWindowW :: proc(lpClassName: LPCWSTR, lpWindowName: LPCWSTR) -> HWND ---
|
|
FindWindowExA :: proc(hWndParent: HWND, hWndChildAfter: HWND, lpszClass: LPCSTR, lpszWindow: LPCSTR) -> HWND ---
|
|
FindWindowExW :: proc(hWndParent: HWND, hWndChildAfter: HWND, lpszClass: LPCWSTR, lpszWindow: LPCWSTR) -> HWND ---
|
|
|
|
LoadIconA :: proc(hInstance: HINSTANCE, lpIconName: LPCSTR) -> HICON ---
|
|
LoadIconW :: proc(hInstance: HINSTANCE, lpIconName: LPCWSTR) -> HICON ---
|
|
LoadCursorA :: proc(hInstance: HINSTANCE, lpCursorName: LPCSTR) -> HCURSOR ---
|
|
LoadCursorW :: proc(hInstance: HINSTANCE, lpCursorName: LPCWSTR) -> HCURSOR ---
|
|
|
|
GetWindowRect :: proc(hWnd: HWND, lpRect: LPRECT) -> BOOL ---
|
|
GetClientRect :: proc(hWnd: HWND, lpRect: LPRECT) -> BOOL ---
|
|
ClientToScreen :: proc(hWnd: HWND, lpPoint: LPPOINT) -> BOOL ---
|
|
ScreenToClient :: proc(hWnd: HWND, lpPoint: LPPOINT) -> BOOL ---
|
|
SetWindowPos :: proc(
|
|
hWnd: HWND,
|
|
hWndInsertAfter: HWND,
|
|
X: c_int,
|
|
Y: c_int,
|
|
cx: c_int,
|
|
cy: c_int,
|
|
uFlags: UINT,
|
|
) -> BOOL ---
|
|
MoveWindow :: proc(hWnd: HWND, X, Y, hWidth, hHeight: c_int, bRepaint: BOOL) -> BOOL ---
|
|
GetSystemMetrics :: proc(nIndex: c_int) -> c_int ---
|
|
AdjustWindowRect :: proc(lpRect: LPRECT, dwStyle: DWORD, bMenu: BOOL) -> BOOL ---
|
|
AdjustWindowRectEx :: proc(lpRect: LPRECT, dwStyle: DWORD, bMenu: BOOL, dwExStyle: DWORD) -> BOOL ---
|
|
AdjustWindowRectExForDpi :: proc(lpRect: LPRECT, dwStyle: DWORD, bMenu: BOOL, dwExStyle: DWORD, dpi: UINT) -> BOOL ---
|
|
|
|
SystemParametersInfoW :: proc(uiAction, uiParam: UINT, pvParam: PVOID, fWinIni: UINT) -> BOOL ---
|
|
|
|
GetWindowDC :: proc(hWnd: HWND) -> HDC ---
|
|
GetDC :: proc(hWnd: HWND) -> HDC ---
|
|
ReleaseDC :: proc(hWnd: HWND, hDC: HDC) -> c_int ---
|
|
|
|
GetUpdateRect :: proc(hWnd: HWND, lpRect: LPRECT, bErase: BOOL) -> BOOL ---
|
|
ValidateRect :: proc(hWnd: HWND, lpRect: ^RECT) -> BOOL ---
|
|
InvalidateRect :: proc(hWnd: HWND, lpRect: ^RECT, bErase: BOOL) -> BOOL ---
|
|
|
|
BeginPaint :: proc(hWnd: HWND, lpPaint: ^PAINTSTRUCT) -> HDC ---
|
|
EndPaint :: proc(hWnd: HWND, lpPaint: ^PAINTSTRUCT) -> BOOL ---
|
|
|
|
GetCapture :: proc() -> HWND ---
|
|
SetCapture :: proc(hWnd: HWND) -> HWND ---
|
|
ReleaseCapture :: proc() -> BOOL ---
|
|
TrackMouseEvent :: proc(lpEventTrack: LPTRACKMOUSEEVENT) -> BOOL ---
|
|
|
|
GetKeyState :: proc(nVirtKey: c_int) -> SHORT ---
|
|
GetAsyncKeyState :: proc(vKey: c_int) -> SHORT ---
|
|
|
|
MapVirtualKeyW :: proc(uCode: UINT, uMapType: UINT) -> UINT ---
|
|
|
|
SetWindowsHookExW :: proc(idHook: c_int, lpfn: HOOKPROC, hmod: HINSTANCE, dwThreadId: DWORD) -> HHOOK ---
|
|
UnhookWindowsHookEx :: proc(hhk: HHOOK) -> BOOL ---
|
|
CallNextHookEx :: proc(hhk: HHOOK, nCode: c_int, wParam: WPARAM, lParam: LPARAM) -> LRESULT ---
|
|
|
|
SetTimer :: proc(hWnd: HWND, nIDEvent: UINT_PTR, uElapse: UINT, lpTimerFunc: TIMERPROC) -> UINT_PTR ---
|
|
KillTimer :: proc(hWnd: HWND, uIDEvent: UINT_PTR) -> BOOL ---
|
|
|
|
// MessageBoxA :: proc(hWnd: HWND, lpText: LPCSTR, lpCaption: LPCSTR, uType: UINT) -> c_int ---
|
|
MessageBoxW :: proc(hWnd: HWND, lpText: LPCWSTR, lpCaption: LPCWSTR, uType: UINT) -> c_int ---
|
|
// MessageBoxExA :: proc(hWnd: HWND, lpText: LPCSTR, lpCaption: LPCSTR, uType: UINT, wLanguageId: WORD) -> c_int ---
|
|
MessageBoxExW :: proc(hWnd: HWND, lpText: LPCWSTR, lpCaption: LPCWSTR, uType: UINT, wLanguageId: WORD) -> c_int ---
|
|
|
|
ClipCursor :: proc(lpRect: LPRECT) -> BOOL ---
|
|
GetCursorPos :: proc(lpPoint: LPPOINT) -> BOOL ---
|
|
SetCursorPos :: proc(X: c_int, Y: c_int) -> BOOL ---
|
|
SetCursor :: proc(hCursor: HCURSOR) -> HCURSOR ---
|
|
|
|
EnumDisplaySettingsW :: proc(lpszDeviceName: LPCWSTR, iModeNum: DWORD, lpDevMode: ^DEVMODEW) -> BOOL ---
|
|
|
|
MonitorFromPoint :: proc(pt: POINT, dwFlags: Monitor_From_Flags) -> HMONITOR ---
|
|
MonitorFromRect :: proc(lprc: LPRECT, dwFlags: Monitor_From_Flags) -> HMONITOR ---
|
|
MonitorFromWindow :: proc(hwnd: HWND, dwFlags: Monitor_From_Flags) -> HMONITOR ---
|
|
EnumDisplayMonitors :: proc(hdc: HDC, lprcClip: LPRECT, lpfnEnum: Monitor_Enum_Proc, dwData: LPARAM) -> BOOL ---
|
|
|
|
SetThreadDpiAwarenessContext :: proc(dpiContext: DPI_AWARENESS_CONTEXT) -> DPI_AWARENESS_CONTEXT ---
|
|
GetThreadDpiAwarenessContext :: proc() -> DPI_AWARENESS_CONTEXT ---
|
|
GetWindowDpiAwarenessContext :: proc(hwnd: HWND) -> DPI_AWARENESS_CONTEXT ---
|
|
GetDpiFromDpiAwarenessContext :: proc(value: DPI_AWARENESS_CONTEXT) -> UINT ---
|
|
GetDpiForWindow :: proc(hwnd: HWND) -> UINT ---
|
|
SetProcessDpiAwarenessContext :: proc(value: DPI_AWARENESS_CONTEXT) -> BOOL ---
|
|
|
|
BroadcastSystemMessageW :: proc(
|
|
flags: DWORD,
|
|
lpInfo: LPDWORD,
|
|
Msg: UINT,
|
|
wParam: WPARAM,
|
|
lParam: LPARAM,
|
|
) -> c_long ---
|
|
|
|
BroadcastSystemMessageExW :: proc(
|
|
flags: DWORD,
|
|
lpInfo: LPDWORD,
|
|
Msg: UINT,
|
|
wParam: WPARAM,
|
|
lParam: LPARAM,
|
|
pbsmInfo: PBSMINFO,
|
|
) -> c_long ---
|
|
|
|
SendMessageTimeoutW :: proc(
|
|
hWnd: HWND,
|
|
Msg: UINT,
|
|
wParam: WPARAM,
|
|
lParam: LPARAM,
|
|
fuFlags: UINT,
|
|
uTimeout: UINT,
|
|
lpdwResult: PDWORD_PTR,
|
|
) -> LRESULT ---
|
|
|
|
GetSysColor :: proc(nIndex: c_int) -> DWORD ---
|
|
GetSysColorBrush :: proc(nIndex: c_int) -> HBRUSH ---
|
|
SetSysColors :: proc(cElements: c_int, lpaElements: ^INT, lpaRgbValues: ^COLORREF) -> BOOL ---
|
|
MessageBeep :: proc(uType: UINT) -> BOOL ---
|
|
|
|
IsDialogMessageW :: proc(hDlg: HWND, lpMsg: LPMSG) -> BOOL ---
|
|
GetWindowTextLengthW :: proc(hWnd: HWND) -> c_int ---
|
|
GetWindowTextW :: proc(hWnd: HWND, lpString: LPWSTR, nMaxCount: c_int) -> c_int ---
|
|
SetWindowTextW :: proc(hWnd: HWND, lpString: LPCWSTR) -> BOOL ---
|
|
CallWindowProcW :: proc(lpPrevWndFunc: WNDPROC, hWnd: HWND, Msg: UINT, wParam: WPARAM, lParam: LPARAM) -> LRESULT ---
|
|
EnableWindow :: proc(hWnd: HWND, bEnable: BOOL) -> BOOL ---
|
|
}
|
|
|
|
CreateWindowW :: #force_inline proc "stdcall" (
|
|
lpClassName: LPCTSTR,
|
|
lpWindowName: LPCTSTR,
|
|
dwStyle: DWORD,
|
|
X: c_int,
|
|
Y: c_int,
|
|
nWidth: c_int,
|
|
nHeight: c_int,
|
|
hWndParent: HWND,
|
|
hMenu: HMENU,
|
|
hInstance: HINSTANCE,
|
|
lpParam: LPVOID,
|
|
) -> HWND {
|
|
return CreateWindowExW(
|
|
0,
|
|
lpClassName,
|
|
lpWindowName,
|
|
dwStyle,
|
|
X,
|
|
Y,
|
|
nWidth,
|
|
nHeight,
|
|
hWndParent,
|
|
hMenu,
|
|
hInstance,
|
|
lpParam,
|
|
)
|
|
}
|
|
|
|
when ODIN_ARCH == .amd64 {
|
|
@(default_calling_convention="stdcall")
|
|
foreign user32 {
|
|
GetClassLongPtrW :: proc(hWnd: HWND, nIndex: c_int) -> ULONG_PTR ---
|
|
SetClassLongPtrW :: proc(hWnd: HWND, nIndex: c_int, dwNewLong: LONG_PTR) -> ULONG_PTR ---
|
|
|
|
GetWindowLongPtrW :: proc(hWnd: HWND, nIndex: c_int) -> LONG_PTR ---
|
|
SetWindowLongPtrW :: proc(hWnd: HWND, nIndex: c_int, dwNewLong: LONG_PTR) -> LONG_PTR ---
|
|
}
|
|
} else when ODIN_ARCH == .i386 {
|
|
GetClassLongPtrW :: GetClassLongW
|
|
SetClassLongPtrW :: SetClassLongW
|
|
|
|
GetWindowLongPtrW :: GetWindowLongW
|
|
SetWindowLongPtrW :: SetWindowLongW
|
|
}
|
|
|
|
GET_SC_WPARAM :: #force_inline proc "contextless" (wParam: WPARAM) -> c_int {
|
|
return c_int(wParam) & 0xFFF0
|
|
}
|
|
|
|
GET_WHEEL_DELTA_WPARAM :: #force_inline proc "contextless" (wParam: WPARAM) -> c_short {
|
|
return cast(c_short)HIWORD(cast(DWORD)wParam)
|
|
}
|
|
|
|
GET_KEYSTATE_WPARAM :: #force_inline proc "contextless" (wParam: WPARAM) -> WORD {
|
|
return LOWORD(cast(DWORD)wParam)
|
|
}
|
|
|
|
GET_NCHITTEST_WPARAM :: #force_inline proc "contextless" (wParam: WPARAM) -> c_short {
|
|
return cast(c_short)LOWORD(cast(DWORD)wParam)
|
|
}
|
|
|
|
GET_XBUTTON_WPARAM :: #force_inline proc "contextless" (wParam: WPARAM) -> WORD {
|
|
return HIWORD(cast(DWORD)wParam)
|
|
}
|
|
|
|
MAKEINTRESOURCEW :: #force_inline proc "contextless" (#any_int i: int) -> LPWSTR {
|
|
return cast(LPWSTR)uintptr(WORD(i))
|
|
}
|
|
|
|
Monitor_From_Flags :: enum DWORD {
|
|
MONITOR_DEFAULTTONULL = 0x00000000, // Returns NULL
|
|
MONITOR_DEFAULTTOPRIMARY = 0x00000001, // Returns a handle to the primary display monitor
|
|
MONITOR_DEFAULTTONEAREST = 0x00000002, // Returns a handle to the display monitor that is nearest to the window
|
|
}
|
|
|
|
Monitor_Enum_Proc :: #type proc "stdcall" (HMONITOR, HDC, LPRECT, LPARAM) -> BOOL
|
|
|
|
USER_DEFAULT_SCREEN_DPI :: 96
|
|
DPI_AWARENESS_CONTEXT :: distinct HANDLE
|
|
DPI_AWARENESS_CONTEXT_UNAWARE :: DPI_AWARENESS_CONTEXT(~uintptr(0)) // -1
|
|
DPI_AWARENESS_CONTEXT_SYSTEM_AWARE :: DPI_AWARENESS_CONTEXT(~uintptr(1)) // -2
|
|
DPI_AWARENESS_CONTEXT_PER_MONITOR_AWARE :: DPI_AWARENESS_CONTEXT(~uintptr(2)) // -3
|
|
DPI_AWARENESS_CONTEXT_PER_MONITOR_AWARE_V2 :: DPI_AWARENESS_CONTEXT(~uintptr(3)) // -4
|
|
DPI_AWARENESS_CONTEXT_UNAWARE_GDISCALED :: DPI_AWARENESS_CONTEXT(~uintptr(4)) // -5
|