gtk2: fix CreateFontIndirect for default font with non-default height (issue #0013851)

git-svn-id: trunk@20286 -
This commit is contained in:
paul 2009-05-28 14:40:17 +00:00
parent 119c2796bf
commit 8a9fdf48eb

View File

@ -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