[Libreoffice-commits] core.git: Branch 'libreoffice-7-5' - vcl/win

[Caolán McNamara (via logerrit)]

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

New commits:
commit fbb3b4db190f044fc99048116087a891e7d9f25f
Author:     Caolán McNamara <caol...@redhat.com>
AuthorDate: Wed Feb 1 15:23:10 2023 +0000
Commit:     Adolfo Jayme Barrientos <fit...@ubuntu.com>
CommitDate: Wed Feb 1 20:07:15 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/+/146405
    Tested-by: Jenkins
    Reviewed-by: Adolfo Jayme Barrientos <fit...@ubuntu.com>

diff --git a/vcl/win/window/salframe.cxx b/vcl/win/window/salframe.cxx
index e1333b4a6c67..6a7eecdb71b1 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));