Mercurial > games > semicongine

annotate semiconginev2/old/platform/windows/window.nim @ 1222:3c3d4d7a8ecd compiletime-tests

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
did: cleanup config file
author sam <sam@basx.dev>
date Wed, 17 Jul 2024 21:08:15 +0700
parents 56781cc0fc7c
children
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
840
44ec744fbedc did: package restructuring according to nimble recommendation for libraries
Sam <sam@basx.dev>
parents:
diff changeset
1 import std/options
1013
967b8fa81b6b add: thirdparty libraries into repo
sam <sam@basx.dev>
parents: 968
diff changeset
2
967b8fa81b6b add: thirdparty libraries into repo
sam <sam@basx.dev>
parents: 968
diff changeset
3 import ../../thirdparty/winim/winim
840
44ec744fbedc did: package restructuring according to nimble recommendation for libraries
Sam <sam@basx.dev>
parents:
diff changeset
4
44ec744fbedc did: package restructuring according to nimble recommendation for libraries
Sam <sam@basx.dev>
parents:
diff changeset
5 import ../../core/vector
860
3586266ba74e fix: logging output on windows
sam <sam@basx.dev>
parents: 840
diff changeset
6 import ../../core/buildconfig
840
44ec744fbedc did: package restructuring according to nimble recommendation for libraries
Sam <sam@basx.dev>
parents:
diff changeset
7 import ./virtualkey_map
44ec744fbedc did: package restructuring according to nimble recommendation for libraries
Sam <sam@basx.dev>
parents:
diff changeset
8 import ../../events
44ec744fbedc did: package restructuring according to nimble recommendation for libraries
Sam <sam@basx.dev>
parents:
diff changeset
9
44ec744fbedc did: package restructuring according to nimble recommendation for libraries
Sam <sam@basx.dev>
parents:
diff changeset
10 type
44ec744fbedc did: package restructuring according to nimble recommendation for libraries
Sam <sam@basx.dev>
parents:
diff changeset
11 NativeWindow* = object
44ec744fbedc did: package restructuring according to nimble recommendation for libraries
Sam <sam@basx.dev>
parents:
diff changeset
12 hinstance*: HINSTANCE
44ec744fbedc did: package restructuring according to nimble recommendation for libraries
Sam <sam@basx.dev>
parents:
diff changeset
13 hwnd*: HWND
44ec744fbedc did: package restructuring according to nimble recommendation for libraries
Sam <sam@basx.dev>
parents:
diff changeset
14 g_wpPrev: WINDOWPLACEMENT
44ec744fbedc did: package restructuring according to nimble recommendation for libraries
Sam <sam@basx.dev>
parents:
diff changeset
15
44ec744fbedc did: package restructuring according to nimble recommendation for libraries
Sam <sam@basx.dev>
parents:
diff changeset
16
44ec744fbedc did: package restructuring according to nimble recommendation for libraries
Sam <sam@basx.dev>
parents:
diff changeset
17 # sorry, have to use module-global variable to capture windows events
44ec744fbedc did: package restructuring according to nimble recommendation for libraries
Sam <sam@basx.dev>
parents:
diff changeset
18 var currentEvents: seq[Event]
44ec744fbedc did: package restructuring according to nimble recommendation for libraries
Sam <sam@basx.dev>
parents:
diff changeset
19
1138
02e1d2658ff5 did: more renaming
sam <sam@basx.dev>
parents: 1013
diff changeset
20 template CheckWin32Result*(call: untyped) =
840
44ec744fbedc did: package restructuring according to nimble recommendation for libraries
Sam <sam@basx.dev>
parents:
diff changeset
21 let value = call
44ec744fbedc did: package restructuring according to nimble recommendation for libraries
Sam <sam@basx.dev>
parents:
diff changeset
22 if value == 0:
44ec744fbedc did: package restructuring according to nimble recommendation for libraries
Sam <sam@basx.dev>
parents:
diff changeset
23 raise newException(Exception, "Win32 error: " & astToStr(call) & " returned " & $value)
44ec744fbedc did: package restructuring according to nimble recommendation for libraries
Sam <sam@basx.dev>
parents:
diff changeset
24
1152
2ce0c75f5715 fix: windows cursor not visible on border 1
sam <sam@basx.dev>
parents: 1151
diff changeset
25 let
2ce0c75f5715 fix: windows cursor not visible on border 1
sam <sam@basx.dev>
parents: 1151
diff changeset
26 andCursorMask = [0xff]
2ce0c75f5715 fix: windows cursor not visible on border 1
sam <sam@basx.dev>
parents: 1151
diff changeset
27 xorCursorMask = [0x00]
2ce0c75f5715 fix: windows cursor not visible on border 1
sam <sam@basx.dev>
parents: 1151
diff changeset
28 invisibleCursor = CreateCursor(HINSTANCE(0), 0, 0, 1, 1, pointer(addr andCursorMask), pointer(addr xorCursorMask))
2ce0c75f5715 fix: windows cursor not visible on border 1
sam <sam@basx.dev>
parents: 1151
diff changeset
29 defaultCursor = LoadCursor(HINSTANCE(0), IDC_ARROW)
2ce0c75f5715 fix: windows cursor not visible on border 1
sam <sam@basx.dev>
parents: 1151
diff changeset
30 var currentCursor = defaultCursor
840
44ec744fbedc did: package restructuring according to nimble recommendation for libraries
Sam <sam@basx.dev>
parents:
diff changeset
31
44ec744fbedc did: package restructuring according to nimble recommendation for libraries
Sam <sam@basx.dev>
parents:
diff changeset
32 proc MapLeftRightKeys(key: INT, lparam: LPARAM): INT =
44ec744fbedc did: package restructuring according to nimble recommendation for libraries
Sam <sam@basx.dev>
parents:
diff changeset
33 case key
44ec744fbedc did: package restructuring according to nimble recommendation for libraries
Sam <sam@basx.dev>
parents:
diff changeset
34 of VK_SHIFT:
44ec744fbedc did: package restructuring according to nimble recommendation for libraries
Sam <sam@basx.dev>
parents:
diff changeset
35 MapVirtualKey(UINT((lParam and 0x00ff0000) shr 16), MAPVK_VSC_TO_VK_EX)
44ec744fbedc did: package restructuring according to nimble recommendation for libraries
Sam <sam@basx.dev>
parents:
diff changeset
36 of VK_CONTROL:
44ec744fbedc did: package restructuring according to nimble recommendation for libraries
Sam <sam@basx.dev>
parents:
diff changeset
37 if (lParam and 0x01000000) == 0: VK_LCONTROL else: VK_RCONTROL
44ec744fbedc did: package restructuring according to nimble recommendation for libraries
Sam <sam@basx.dev>
parents:
diff changeset
38 of VK_MENU:
44ec744fbedc did: package restructuring according to nimble recommendation for libraries
Sam <sam@basx.dev>
parents:
diff changeset
39 if (lParam and 0x01000000) == 0: VK_LMENU else: VK_RMENU
44ec744fbedc did: package restructuring according to nimble recommendation for libraries
Sam <sam@basx.dev>
parents:
diff changeset
40 else:
44ec744fbedc did: package restructuring according to nimble recommendation for libraries
Sam <sam@basx.dev>
parents:
diff changeset
41 key
44ec744fbedc did: package restructuring according to nimble recommendation for libraries
Sam <sam@basx.dev>
parents:
diff changeset
42
44ec744fbedc did: package restructuring according to nimble recommendation for libraries
Sam <sam@basx.dev>
parents:
diff changeset
43 proc WindowHandler(hwnd: HWND, uMsg: UINT, wParam: WPARAM, lParam: LPARAM): LRESULT {.stdcall.} =
44ec744fbedc did: package restructuring according to nimble recommendation for libraries
Sam <sam@basx.dev>
parents:
diff changeset
44 case uMsg
44ec744fbedc did: package restructuring according to nimble recommendation for libraries
Sam <sam@basx.dev>
parents:
diff changeset
45 of WM_DESTROY:
44ec744fbedc did: package restructuring according to nimble recommendation for libraries
Sam <sam@basx.dev>
parents:
diff changeset
46 currentEvents.add(Event(eventType: events.EventType.Quit))
44ec744fbedc did: package restructuring according to nimble recommendation for libraries
Sam <sam@basx.dev>
parents:
diff changeset
47 of WM_KEYDOWN, WM_SYSKEYDOWN:
44ec744fbedc did: package restructuring according to nimble recommendation for libraries
Sam <sam@basx.dev>
parents:
diff changeset
48 let key = MapLeftRightKeys(INT(wParam), lParam)
44ec744fbedc did: package restructuring according to nimble recommendation for libraries
Sam <sam@basx.dev>
parents:
diff changeset
49 currentEvents.add(Event(eventType: KeyPressed, key: KeyTypeMap.getOrDefault(key, Key.UNKNOWN)))
44ec744fbedc did: package restructuring according to nimble recommendation for libraries
Sam <sam@basx.dev>
parents:
diff changeset
50 of WM_KEYUP, WM_SYSKEYUP:
44ec744fbedc did: package restructuring according to nimble recommendation for libraries
Sam <sam@basx.dev>
parents:
diff changeset
51 let key = MapLeftRightKeys(INT(wParam), lParam)
44ec744fbedc did: package restructuring according to nimble recommendation for libraries
Sam <sam@basx.dev>
parents:
diff changeset
52 currentEvents.add(Event(eventType: KeyReleased, key: KeyTypeMap.getOrDefault(key, Key.UNKNOWN)))
44ec744fbedc did: package restructuring according to nimble recommendation for libraries
Sam <sam@basx.dev>
parents:
diff changeset
53 of WM_LBUTTONDOWN:
44ec744fbedc did: package restructuring according to nimble recommendation for libraries
Sam <sam@basx.dev>
parents:
diff changeset
54 currentEvents.add(Event(eventType: MousePressed, button: MouseButton.Mouse1))
44ec744fbedc did: package restructuring according to nimble recommendation for libraries
Sam <sam@basx.dev>
parents:
diff changeset
55 of WM_LBUTTONUP:
44ec744fbedc did: package restructuring according to nimble recommendation for libraries
Sam <sam@basx.dev>
parents:
diff changeset
56 currentEvents.add(Event(eventType: MouseReleased, button: MouseButton.Mouse1))
44ec744fbedc did: package restructuring according to nimble recommendation for libraries
Sam <sam@basx.dev>
parents:
diff changeset
57 of WM_MBUTTONDOWN:
44ec744fbedc did: package restructuring according to nimble recommendation for libraries
Sam <sam@basx.dev>
parents:
diff changeset
58 currentEvents.add(Event(eventType: MousePressed, button: MouseButton.Mouse2))
44ec744fbedc did: package restructuring according to nimble recommendation for libraries
Sam <sam@basx.dev>
parents:
diff changeset
59 of WM_MBUTTONUP:
44ec744fbedc did: package restructuring according to nimble recommendation for libraries
Sam <sam@basx.dev>
parents:
diff changeset
60 currentEvents.add(Event(eventType: MouseReleased, button: MouseButton.Mouse2))
44ec744fbedc did: package restructuring according to nimble recommendation for libraries
Sam <sam@basx.dev>
parents:
diff changeset
61 of WM_RBUTTONDOWN:
44ec744fbedc did: package restructuring according to nimble recommendation for libraries
Sam <sam@basx.dev>
parents:
diff changeset
62 currentEvents.add(Event(eventType: MousePressed, button: MouseButton.Mouse3))
44ec744fbedc did: package restructuring according to nimble recommendation for libraries
Sam <sam@basx.dev>
parents:
diff changeset
63 of WM_RBUTTONUP:
44ec744fbedc did: package restructuring according to nimble recommendation for libraries
Sam <sam@basx.dev>
parents:
diff changeset
64 currentEvents.add(Event(eventType: MouseReleased, button: MouseButton.Mouse3))
44ec744fbedc did: package restructuring according to nimble recommendation for libraries
Sam <sam@basx.dev>
parents:
diff changeset
65 of WM_MOUSEMOVE:
44ec744fbedc did: package restructuring according to nimble recommendation for libraries
Sam <sam@basx.dev>
parents:
diff changeset
66 currentEvents.add(Event(eventType: events.MouseMoved, x: GET_X_LPARAM(lParam), y: GET_Y_LPARAM(lParam)))
44ec744fbedc did: package restructuring according to nimble recommendation for libraries
Sam <sam@basx.dev>
parents:
diff changeset
67 of WM_MOUSEWHEEL:
44ec744fbedc did: package restructuring according to nimble recommendation for libraries
Sam <sam@basx.dev>
parents:
diff changeset
68 currentEvents.add(Event(eventType: events.MouseWheel, amount: float32(GET_WHEEL_DELTA_WPARAM(wParam)) / WHEEL_DELTA))
1157
dd757eb5ca86 fix: minimizing window on windows breaks everything, also: do not try to acquire next frame for inifinity
sam@sambook-windows.localdomain
parents: 1152
diff changeset
69 of WM_SIZING:
dd757eb5ca86 fix: minimizing window on windows breaks everything, also: do not try to acquire next frame for inifinity
sam@sambook-windows.localdomain
parents: 1152
diff changeset
70 currentEvents.add(Event(eventType: ResizedWindow))
dd757eb5ca86 fix: minimizing window on windows breaks everything, also: do not try to acquire next frame for inifinity
sam@sambook-windows.localdomain
parents: 1152
diff changeset
71 of WM_SIZE:
dd757eb5ca86 fix: minimizing window on windows breaks everything, also: do not try to acquire next frame for inifinity
sam@sambook-windows.localdomain
parents: 1152
diff changeset
72 if wParam == SIZE_MINIMIZED:
dd757eb5ca86 fix: minimizing window on windows breaks everything, also: do not try to acquire next frame for inifinity
sam@sambook-windows.localdomain
parents: 1152
diff changeset
73 currentEvents.add(Event(eventType: MinimizedWindow))
dd757eb5ca86 fix: minimizing window on windows breaks everything, also: do not try to acquire next frame for inifinity
sam@sambook-windows.localdomain
parents: 1152
diff changeset
74 elif wParam == SIZE_RESTORED:
dd757eb5ca86 fix: minimizing window on windows breaks everything, also: do not try to acquire next frame for inifinity
sam@sambook-windows.localdomain
parents: 1152
diff changeset
75 currentEvents.add(Event(eventType: RestoredWindow))
1146
ce180935334d fix: windows cursor not visible on border 1
sam <sam@basx.dev>
parents: 1143
diff changeset
76 of WM_SETCURSOR:
ce180935334d fix: windows cursor not visible on border 1
sam <sam@basx.dev>
parents: 1143
diff changeset
77 if LOWORD(lParam) == HTCLIENT:
1152
2ce0c75f5715 fix: windows cursor not visible on border 1
sam <sam@basx.dev>
parents: 1151
diff changeset
78 SetCursor(currentCursor)
1151
911e43f0ee50 fix: mouse-pointer handling
sam@sambook-windows.localdomain
parents: 1150
diff changeset
79 return 1
911e43f0ee50 fix: mouse-pointer handling
sam@sambook-windows.localdomain
parents: 1150
diff changeset
80 else:
911e43f0ee50 fix: mouse-pointer handling
sam@sambook-windows.localdomain
parents: 1150
diff changeset
81 return DefWindowProc(hwnd, uMsg, wParam, lParam)
840
44ec744fbedc did: package restructuring according to nimble recommendation for libraries
Sam <sam@basx.dev>
parents:
diff changeset
82 else:
44ec744fbedc did: package restructuring according to nimble recommendation for libraries
Sam <sam@basx.dev>
parents:
diff changeset
83 return DefWindowProc(hwnd, uMsg, wParam, lParam)
44ec744fbedc did: package restructuring according to nimble recommendation for libraries
Sam <sam@basx.dev>
parents:
diff changeset
84
44ec744fbedc did: package restructuring according to nimble recommendation for libraries
Sam <sam@basx.dev>
parents:
diff changeset
85
1138
02e1d2658ff5 did: more renaming
sam <sam@basx.dev>
parents: 1013
diff changeset
86 proc CreateWindow*(title: string): NativeWindow =
968
9d362151c78f add: console for windows debug builds
sam <sam@basx.dev>
parents: 950
diff changeset
87 when DEBUG:
9d362151c78f add: console for windows debug builds
sam <sam@basx.dev>
parents: 950
diff changeset
88 AllocConsole()
9d362151c78f add: console for windows debug builds
sam <sam@basx.dev>
parents: 950
diff changeset
89 discard stdin.reopen("conIN$", fmRead)
9d362151c78f add: console for windows debug builds
sam <sam@basx.dev>
parents: 950
diff changeset
90 discard stdout.reopen("conOUT$", fmWrite)
9d362151c78f add: console for windows debug builds
sam <sam@basx.dev>
parents: 950
diff changeset
91 discard stderr.reopen("conOUT$", fmWrite)
907
d9b250767942 did: improve animation system, fix a few small things
Sam <sam@basx.dev>
parents: 860
diff changeset
92
840
44ec744fbedc did: package restructuring according to nimble recommendation for libraries
Sam <sam@basx.dev>
parents:
diff changeset
93 result.hInstance = HINSTANCE(GetModuleHandle(nil))
44ec744fbedc did: package restructuring according to nimble recommendation for libraries
Sam <sam@basx.dev>
parents:
diff changeset
94 var
44ec744fbedc did: package restructuring according to nimble recommendation for libraries
Sam <sam@basx.dev>
parents:
diff changeset
95 windowClassName = T"EngineWindowClass"
44ec744fbedc did: package restructuring according to nimble recommendation for libraries
Sam <sam@basx.dev>
parents:
diff changeset
96 windowName = T(title)
44ec744fbedc did: package restructuring according to nimble recommendation for libraries
Sam <sam@basx.dev>
parents:
diff changeset
97 windowClass = WNDCLASSEX(
44ec744fbedc did: package restructuring according to nimble recommendation for libraries
Sam <sam@basx.dev>
parents:
diff changeset
98 cbSize: UINT(WNDCLASSEX.sizeof),
44ec744fbedc did: package restructuring according to nimble recommendation for libraries
Sam <sam@basx.dev>
parents:
diff changeset
99 lpfnWndProc: WindowHandler,
44ec744fbedc did: package restructuring according to nimble recommendation for libraries
Sam <sam@basx.dev>
parents:
diff changeset
100 hInstance: result.hInstance,
44ec744fbedc did: package restructuring according to nimble recommendation for libraries
Sam <sam@basx.dev>
parents:
diff changeset
101 lpszClassName: windowClassName,
1152
2ce0c75f5715 fix: windows cursor not visible on border 1
sam <sam@basx.dev>
parents: 1151
diff changeset
102 hcursor: currentCursor,
840
44ec744fbedc did: package restructuring according to nimble recommendation for libraries
Sam <sam@basx.dev>
parents:
diff changeset
103 )
907
d9b250767942 did: improve animation system, fix a few small things
Sam <sam@basx.dev>
parents: 860
diff changeset
104
840
44ec744fbedc did: package restructuring according to nimble recommendation for libraries
Sam <sam@basx.dev>
parents:
diff changeset
105 if(RegisterClassEx(addr(windowClass)) == 0):
44ec744fbedc did: package restructuring according to nimble recommendation for libraries
Sam <sam@basx.dev>
parents:
diff changeset
106 raise newException(Exception, "Unable to register window class")
44ec744fbedc did: package restructuring according to nimble recommendation for libraries
Sam <sam@basx.dev>
parents:
diff changeset
107
44ec744fbedc did: package restructuring according to nimble recommendation for libraries
Sam <sam@basx.dev>
parents:
diff changeset
108 result.hwnd = CreateWindowEx(
44ec744fbedc did: package restructuring according to nimble recommendation for libraries
Sam <sam@basx.dev>
parents:
diff changeset
109 DWORD(0),
44ec744fbedc did: package restructuring according to nimble recommendation for libraries
Sam <sam@basx.dev>
parents:
diff changeset
110 windowClassName,
44ec744fbedc did: package restructuring according to nimble recommendation for libraries
Sam <sam@basx.dev>
parents:
diff changeset
111 windowName,
44ec744fbedc did: package restructuring according to nimble recommendation for libraries
Sam <sam@basx.dev>
parents:
diff changeset
112 DWORD(WS_OVERLAPPEDWINDOW),
44ec744fbedc did: package restructuring according to nimble recommendation for libraries
Sam <sam@basx.dev>
parents:
diff changeset
113 CW_USEDEFAULT, CW_USEDEFAULT, CW_USEDEFAULT, CW_USEDEFAULT,
44ec744fbedc did: package restructuring according to nimble recommendation for libraries
Sam <sam@basx.dev>
parents:
diff changeset
114 HMENU(0),
44ec744fbedc did: package restructuring according to nimble recommendation for libraries
Sam <sam@basx.dev>
parents:
diff changeset
115 HINSTANCE(0),
44ec744fbedc did: package restructuring according to nimble recommendation for libraries
Sam <sam@basx.dev>
parents:
diff changeset
116 result.hInstance,
44ec744fbedc did: package restructuring according to nimble recommendation for libraries
Sam <sam@basx.dev>
parents:
diff changeset
117 nil
44ec744fbedc did: package restructuring according to nimble recommendation for libraries
Sam <sam@basx.dev>
parents:
diff changeset
118 )
44ec744fbedc did: package restructuring according to nimble recommendation for libraries
Sam <sam@basx.dev>
parents:
diff changeset
119
44ec744fbedc did: package restructuring according to nimble recommendation for libraries
Sam <sam@basx.dev>
parents:
diff changeset
120 result.g_wpPrev.length = UINT(sizeof(WINDOWPLACEMENT))
860
3586266ba74e fix: logging output on windows
sam <sam@basx.dev>
parents: 840
diff changeset
121 discard result.hwnd.ShowWindow(SW_SHOW)
840
44ec744fbedc did: package restructuring according to nimble recommendation for libraries
Sam <sam@basx.dev>
parents:
diff changeset
122
1138
02e1d2658ff5 did: more renaming
sam <sam@basx.dev>
parents: 1013
diff changeset
123 proc SetTitle*(window: NativeWindow, title: string) =
950
fe48b091e83f did: tons of small improvments, on the way to make GPU sync (more) correct I guess
sam <sam@basx.dev>
parents: 920
diff changeset
124 window.hwnd.SetWindowText(T(title))
fe48b091e83f did: tons of small improvments, on the way to make GPU sync (more) correct I guess
sam <sam@basx.dev>
parents: 920
diff changeset
125
840
44ec744fbedc did: package restructuring according to nimble recommendation for libraries
Sam <sam@basx.dev>
parents:
diff changeset
126 # inspired by the one and only, Raymond Chen
44ec744fbedc did: package restructuring according to nimble recommendation for libraries
Sam <sam@basx.dev>
parents:
diff changeset
127 # https://devblogs.microsoft.com/oldnewthing/20100412-00/?p=14353
1138
02e1d2658ff5 did: more renaming
sam <sam@basx.dev>
parents: 1013
diff changeset
128 proc Fullscreen*(window: var NativeWindow, enable: bool) =
840
44ec744fbedc did: package restructuring according to nimble recommendation for libraries
Sam <sam@basx.dev>
parents:
diff changeset
129 let dwStyle: DWORD = GetWindowLong(window.hwnd, GWL_STYLE)
44ec744fbedc did: package restructuring according to nimble recommendation for libraries
Sam <sam@basx.dev>
parents:
diff changeset
130 if enable:
44ec744fbedc did: package restructuring according to nimble recommendation for libraries
Sam <sam@basx.dev>
parents:
diff changeset
131 var mi = MONITORINFO(cbSize: DWORD(sizeof(MONITORINFO)))
44ec744fbedc did: package restructuring according to nimble recommendation for libraries
Sam <sam@basx.dev>
parents:
diff changeset
132 if GetWindowPlacement(window.hwnd, addr window.g_wpPrev) and GetMonitorInfo(MonitorFromWindow(window.hwnd, MONITOR_DEFAULTTOPRIMARY), addr mi):
44ec744fbedc did: package restructuring according to nimble recommendation for libraries
Sam <sam@basx.dev>
parents:
diff changeset
133 SetWindowLong(window.hwnd, GWL_STYLE, dwStyle and (not WS_OVERLAPPEDWINDOW))
44ec744fbedc did: package restructuring according to nimble recommendation for libraries
Sam <sam@basx.dev>
parents:
diff changeset
134 SetWindowPos(window.hwnd, HWND_TOP, mi.rcMonitor.left, mi.rcMonitor.top, mi.rcMonitor.right - mi.rcMonitor.left, mi.rcMonitor.bottom - mi.rcMonitor.top, SWP_NOOWNERZORDER or SWP_FRAMECHANGED)
44ec744fbedc did: package restructuring according to nimble recommendation for libraries
Sam <sam@basx.dev>
parents:
diff changeset
135 else:
44ec744fbedc did: package restructuring according to nimble recommendation for libraries
Sam <sam@basx.dev>
parents:
diff changeset
136 SetWindowLong(window.hwnd, GWL_STYLE, dwStyle or WS_OVERLAPPEDWINDOW)
44ec744fbedc did: package restructuring according to nimble recommendation for libraries
Sam <sam@basx.dev>
parents:
diff changeset
137 SetWindowPlacement(window.hwnd, addr window.g_wpPrev)
44ec744fbedc did: package restructuring according to nimble recommendation for libraries
Sam <sam@basx.dev>
parents:
diff changeset
138 SetWindowPos(window.hwnd, HWND(0), 0, 0, 0, 0, SWP_NOMOVE or SWP_NOSIZE or SWP_NOZORDER or SWP_NOOWNERZORDER or SWP_FRAMECHANGED)
44ec744fbedc did: package restructuring according to nimble recommendation for libraries
Sam <sam@basx.dev>
parents:
diff changeset
139
1138
02e1d2658ff5 did: more renaming
sam <sam@basx.dev>
parents: 1013
diff changeset
140 proc HideSystemCursor*(window: NativeWindow) =
1152
2ce0c75f5715 fix: windows cursor not visible on border 1
sam <sam@basx.dev>
parents: 1151
diff changeset
141 currentCursor = invisibleCursor
2ce0c75f5715 fix: windows cursor not visible on border 1
sam <sam@basx.dev>
parents: 1151
diff changeset
142 SetCursor(currentCursor)
840
44ec744fbedc did: package restructuring according to nimble recommendation for libraries
Sam <sam@basx.dev>
parents:
diff changeset
143
1138
02e1d2658ff5 did: more renaming
sam <sam@basx.dev>
parents: 1013
diff changeset
144 proc ShowSystemCursor*(window: NativeWindow) =
1152
2ce0c75f5715 fix: windows cursor not visible on border 1
sam <sam@basx.dev>
parents: 1151
diff changeset
145 currentCursor = defaultCursor
2ce0c75f5715 fix: windows cursor not visible on border 1
sam <sam@basx.dev>
parents: 1151
diff changeset
146 SetCursor(currentCursor)
840
44ec744fbedc did: package restructuring according to nimble recommendation for libraries
Sam <sam@basx.dev>
parents:
diff changeset
147
1138
02e1d2658ff5 did: more renaming
sam <sam@basx.dev>
parents: 1013
diff changeset
148 proc Destroy*(window: NativeWindow) =
840
44ec744fbedc did: package restructuring according to nimble recommendation for libraries
Sam <sam@basx.dev>
parents:
diff changeset
149 discard
44ec744fbedc did: package restructuring according to nimble recommendation for libraries
Sam <sam@basx.dev>
parents:
diff changeset
150
1138
02e1d2658ff5 did: more renaming
sam <sam@basx.dev>
parents: 1013
diff changeset
151 proc Size*(window: NativeWindow): (int, int) =
840
44ec744fbedc did: package restructuring according to nimble recommendation for libraries
Sam <sam@basx.dev>
parents:
diff changeset
152 var rect: RECT
1143
d7891cf88359 fix: missing API changes
user@DESKTOP-COG985U.localdomain
parents: 1138
diff changeset
153 CheckWin32Result GetWindowRect(window.hwnd, addr(rect))
840
44ec744fbedc did: package restructuring according to nimble recommendation for libraries
Sam <sam@basx.dev>
parents:
diff changeset
154 (int(rect.right - rect.left), int(rect.bottom - rect.top))
44ec744fbedc did: package restructuring according to nimble recommendation for libraries
Sam <sam@basx.dev>
parents:
diff changeset
155
1138
02e1d2658ff5 did: more renaming
sam <sam@basx.dev>
parents: 1013
diff changeset
156 proc PendingEvents*(window: NativeWindow): seq[Event] =
840
44ec744fbedc did: package restructuring according to nimble recommendation for libraries
Sam <sam@basx.dev>
parents:
diff changeset
157 # empty queue
44ec744fbedc did: package restructuring according to nimble recommendation for libraries
Sam <sam@basx.dev>
parents:
diff changeset
158 currentEvents = newSeq[Event]()
44ec744fbedc did: package restructuring according to nimble recommendation for libraries
Sam <sam@basx.dev>
parents:
diff changeset
159 var msg: MSG
44ec744fbedc did: package restructuring according to nimble recommendation for libraries
Sam <sam@basx.dev>
parents:
diff changeset
160 # fill queue
44ec744fbedc did: package restructuring according to nimble recommendation for libraries
Sam <sam@basx.dev>
parents:
diff changeset
161 while PeekMessage(addr(msg), window.hwnd, 0, 0, PM_REMOVE):
44ec744fbedc did: package restructuring according to nimble recommendation for libraries
Sam <sam@basx.dev>
parents:
diff changeset
162 TranslateMessage(addr(msg))
44ec744fbedc did: package restructuring according to nimble recommendation for libraries
Sam <sam@basx.dev>
parents:
diff changeset
163 DispatchMessage(addr(msg))
44ec744fbedc did: package restructuring according to nimble recommendation for libraries
Sam <sam@basx.dev>
parents:
diff changeset
164 return currentEvents
44ec744fbedc did: package restructuring according to nimble recommendation for libraries
Sam <sam@basx.dev>
parents:
diff changeset
165
1138
02e1d2658ff5 did: more renaming
sam <sam@basx.dev>
parents: 1013
diff changeset
166 proc GetMousePosition*(window: NativeWindow): Option[Vec2f] =
840
44ec744fbedc did: package restructuring according to nimble recommendation for libraries
Sam <sam@basx.dev>
parents:
diff changeset
167 var p: POINT
44ec744fbedc did: package restructuring according to nimble recommendation for libraries
Sam <sam@basx.dev>
parents:
diff changeset
168 let res = GetCursorPos(addr(p))
44ec744fbedc did: package restructuring according to nimble recommendation for libraries
Sam <sam@basx.dev>
parents:
diff changeset
169 if res:
44ec744fbedc did: package restructuring according to nimble recommendation for libraries
Sam <sam@basx.dev>
parents:
diff changeset
170 return some(Vec2f([float32(p.x), float32(p.y)]))
44ec744fbedc did: package restructuring according to nimble recommendation for libraries
Sam <sam@basx.dev>
parents:
diff changeset
171 return none(Vec2f)