paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-18 16:39:19 +02:00
Code Issues Packages Projects Releases Wiki Activity

Revert "lcl/win32: Fix of disappearing underline of CourierNew text for some font sizes. Issue #39472."

Browse Source 
This reverts commit 3875655f5b.
This commit is contained in:
wp_xyz 2021-11-26 00:05:56 +01:00
parent 91d47a7e97
commit fb308f81d8
1 changed files with 0 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
lcl/interfaces/win32/win32winapi.inc
View File

@ -1163,13 +1163,6 @@ begin
Rect.Right := Rect.Right + Abs(aABC.abcC); Rect.Right := Rect.Right + Abs(aABC.abcC);
end; end;
// Sometimes the underline does not appear for some sizes.
// A workaround is to move the bottom edge of the rect down by one pixel.
// https://forum.lazarus.freepascal.org/index.php/topic,57021.msg424606.html#msg424606
if lf.lfUnderline <> 0 then
inc(Rect.Bottom);
end; end;
end; end;