Get high contrast mode for colors
Posted: Sun Sep 20, 2020 12:43 am
I tried to check the contrast settings in Windows 10,
as using the API to check the contrast settings feels bad.
My software users are aging and some are in their 70s and older,
so I'm looking for setup high contrast screens.
as using the API to check the contrast settings feels bad.
My software users are aging and some are in their 70s and older,
so I'm looking for setup high contrast screens.
Code: Select all
Procedure.i GetHighContrastMode()
; Windows 10
Protected GetColor.i, Result.i
GetColor = GetSysColor_(#COLOR_HOTLIGHT)
Select GetColor
; Case 13395456
; result = 0
Case 65535, 16744576, 10420224
Result + 1
EndSelect
GetColor = GetSysColor_(#COLOR_MENUHILIGHT)
Select GetColor
;Case 14120960
; result = 0
Case 0, 32768, 8388736, 16711680
Result + 1
EndSelect
ProcedureReturn Result
EndProcedure
Debug GetHighContrastMode()
CallDebugger