diff options
Diffstat (limited to 'wizards/source/tools/Misc.xba')
| -rw-r--r-- | wizards/source/tools/Misc.xba | 20 |
1 files changed, 19 insertions, 1 deletions
diff --git a/wizards/source/tools/Misc.xba b/wizards/source/tools/Misc.xba index 19c8b6ef6989..b7f70277c1a0 100644 --- a/wizards/source/tools/Misc.xba +++ b/wizards/source/tools/Misc.xba @@ -715,4 +715,22 @@ Dim aSwitchMode as new com.sun.star.util.URL Dim aEmptyArgs() as New com.sun.star.bean.PropertyValue oDispatch.dispatch(aSwitchMode, aEmptyArgs()) Erase aSwitchMode -End Sub</script:module> +End Sub + + +Function isHighContrast(oPeer as Object) + Dim UIColor as Long + Dim myRed as Integer + Dim myGreen as Integer + Dim myBlue as Integer + Dim myLuminance as Double + + UIColor = oPeer.getProperty( "DisplayBackgroundColor" ) + myRed = Red (UIColor) + myGreen = Green (UIColor) + myBlue = Blue (UIColor) + myLuminance = (( myBlue*28 + myGreen*151 + myRed*77 ) / 256 ) + isHighContrast = false + If myLuminance <= 25 Then isHighContrast = true +End Function +</script:module>
\ No newline at end of file |