alx/ueforth
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Added DPI awareness option.

Browse Source
This commit is contained in:
Brad Nelson
2022-03-26 11:03:29 -07:00
parent 1b09f7a2b0
commit 25c7397dbd
3 changed files with 11 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

1
windows/windows_core.fs
View File

@ -27,6 +27,7 @@ windows
does> dup @ swap cell+ @ execute ;
: dll ( z "name" -- )
LoadLibraryA dup 0= throw create , does> @ sofunc ;
: contains? ( z 'lib -- f ) >body @ swap GetProcAddress ;
z" Kernel32.dll" dll Kernel32

8
windows/windows_user.fs
View File

@ -170,4 +170,12 @@ IDI_ASTERISK constant IDI_INFORMATION
18 constant VK_ALT
( Check for Windows 10 DPI awareness )
z" SetThreadDpiAwarenessContext" ' User32 contains? [IF]
z" SetThreadDpiAwarenessContext" 1 User32 SetThreadDpiAwarenessContext
: dpi-aware -2 SetThreadDpiAwarenessContext drop ;
[ELSE]
: dpi-aware ;
[THEN]
only forth definitions