[Libreoffice-commits] core.git: vcl/win

[Caolán McNamara (via logerrit)]

 vcl/win/window/salframe.cxx |    7 +++++++
 1 file changed, 7 insertions(+)

New commits:
commit 9274d41bd72c5310491d81c6d8d938e44ed9d223
Author:     Caolán McNamara <caol...@redhat.com>
AuthorDate: Wed Feb 1 15:23:10 2023 +0000
Commit:     Caolán McNamara <caol...@redhat.com>
CommitDate: Wed Feb 1 19:28:14 2023 +0000

    tdf#148085 get a more readable hyperlink color under windows dark mode
    
    Change-Id: I392206eb9fcff7fca39c6efee747486f4dfa925e
    Reviewed-on: https://gerrit.libreoffice.org/c/core/+/146458
    Tested-by: Jenkins
    Reviewed-by: Caolán McNamara <caol...@redhat.com>

diff --git a/vcl/win/window/salframe.cxx b/vcl/win/window/salframe.cxx
index 474e48560fb9..f15a4f23e693 100644
--- a/vcl/win/window/salframe.cxx
+++ b/vcl/win/window/salframe.cxx
@@ -2683,6 +2683,13 @@ void WinSalFrame::UpdateSettings( AllSettings& rSettings 
)
         aStyleSettings.SetInactiveTabColor( ImplWinColorToSal( color ) );
         CloseThemeData(hTheme);
 
+        if (hTheme = OpenThemeData(mhWnd, L"Textstyle"))
+        {
+            GetThemeColor(hTheme, TEXT_HYPERLINKTEXT, TS_HYPERLINK_NORMAL, 
TMT_TEXTCOLOR, &color);
+            aStyleSettings.SetLinkColor(ImplWinColorToSal(color));
+            CloseThemeData(hTheme);
+        }
+
         // tdf#148448 pick a warning color more likely to be readable as a
         // background in a dark theme
         aStyleSettings.SetWarningColor(Color(0xf5, 0x79, 0x00));