Caret (text cursor) follow windows settings (#2534) (2)

WinMerge · Nov 11, 2024 · 1b2db57 · 1b2db57
1 parent ab1b1f7
commit 1b2db57
Showing 1 changed file with 4 additions and 2 deletions.
diff --git a/Externals/crystaledit/editlib/ccrystaltextview.cpp b/Externals/crystaledit/editlib/ccrystaltextview.cpp
@@ -2871,9 +2871,11 @@ UpdateCaret ()
         }
       else
         {
-          DWORD caretWidth = 2;
+          DWORD caretWidth = 1;
           SystemParametersInfo (SPI_GETCARETWIDTH, 0, &caretWidth, 0);
-          CreateSolidCaret (caretWidth, nCaretHeight);
+          const int dpi = CClientDC (this).GetDeviceCaps (LOGPIXELSX);
+          const int nCaretWidth = MulDiv (caretWidth, dpi, 96);
+          CreateSolidCaret (nCaretWidth, nCaretHeight);
         }
 
       SetCaretPos (TextToClient (m_ptCursorPos));