paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-06 07:58:07 +02:00
Code Issues Packages Projects Releases Wiki Activity

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

Browse Source
This commit is contained in:
wp_xyz 2021-11-20 10:34:37 +01:00
parent c152361b72
commit c5fae8fdd1
1 changed files with 7 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1167,6 +1167,13 @@ begin
Rect.Right := Rect.Right + Abs(aABC.abcC);
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;