mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-08-06 20:26:13 +02:00
gtk2: fix CreateFontIndirect for default font with non-default height (issue #0013851)
git-svn-id: trunk@20286 -
This commit is contained in:
parent
119c2796bf
commit
8a9fdf48eb
@ -155,7 +155,7 @@ begin
|
||||
if PangoDesc = nil then
|
||||
PangoDesc := pango_context_get_font_description(pango_layout_get_context(CurFont));
|
||||
aFamily := StrPas(pango_font_description_get_family(PangoDesc));
|
||||
if (aSize = 0) then
|
||||
if (aSize = 0) and (lfHeight = 0) then
|
||||
begin
|
||||
aSize := pango_font_description_get_size(PangoDesc);
|
||||
if not pango_font_description_get_size_is_absolute(PangoDesc) then
|
||||
|
Loading…
Reference in New Issue
Block a user