diff options
| author | Tom Verbeek <tv@openoffice.org> | 2002-05-30 13:57:25 +0000 |
|---|---|---|
| committer | Tom Verbeek <tv@openoffice.org> | 2002-05-30 13:57:25 +0000 |
| commit | a63b6dd19274a2ca9b80caad9cbfad0742599bd8 (patch) | |
| tree | 469ecd3f202a41440cdfeb0aefc23e698467b647 /wizards/source | |
| parent | d47893d4e7d768d8e0749b23703b5a317cd848b6 (diff) | |
#98788# Support for High-Contrast icons
Diffstat (limited to 'wizards/source')
| -rw-r--r-- | wizards/source/formwizard/Language.xba | 15 | ||||
| -rw-r--r-- | wizards/source/tools/Misc.xba | 20 |
2 files changed, 29 insertions, 6 deletions
diff --git a/wizards/source/formwizard/Language.xba b/wizards/source/formwizard/Language.xba index 245cd8df4c74..0a9ca054e988 100644 --- a/wizards/source/formwizard/Language.xba +++ b/wizards/source/formwizard/Language.xba @@ -64,6 +64,8 @@ End Sub Sub SetDialogLanguage () DlgFormDB = LoadDialog("FormWizard", "DlgFormDB") oDialogModel = DlgFormDB.Model + + Dim FNameAddOn as String With oDialogModel .cmdCancel.Label = GetResText(RID_COMMON + 1) @@ -103,19 +105,22 @@ Sub SetDialogLanguage () .optAlign2.Label = GetResText(RID_FORM + 34) .optAlign0.State = 1 - .cmdArrange1.ImageURL = FormPath & "Arrange_1.gif" + FNameAddOn = "" + If isHighContrast(DlgFormDB.getPeer) Then FNameAddOn = "_hc" + + .cmdArrange1.ImageURL = FormPath & "Arrange_1" & FNameAddOn & ".gif" .cmdArrange1.HelpText = GetResText(RID_FORM + 36) - .cmdArrange2.ImageURL = FormPath & "Arrange_2.gif" + .cmdArrange2.ImageURL = FormPath & "Arrange_2" & FNameAddOn & ".gif" .cmdArrange2.HelpText = GetResText(RID_FORM + 37) - .cmdArrange3.ImageURL = FormPath & "Arrange_3.gif" + .cmdArrange3.ImageURL = FormPath & "Arrange_3" & FNameAddOn & ".gif" .cmdArrange3.HelpText = GetResText(RID_FORM + 40) - .cmdArrange4.ImageURL = FormPath & "Arrange_4.gif" + .cmdArrange4.ImageURL = FormPath & "Arrange_4" & FNameAddOn & ".gif" .cmdArrange4.HelpText = GetResText(RID_FORM + 38) - .cmdArrange5.ImageURL = FormPath & "Arrange_5.gif" + .cmdArrange5.ImageURL = FormPath & "Arrange_5" & FNameAddOn & ".gif" .cmdArrange5.HelpText = GetResText(RID_FORM + 39) sWriterFilterName = GetResText(RID_FORM + 70) 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 |