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