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

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

Browse Source 
git-svn-id: trunk@20286 -
This commit is contained in:
paul 2009-05-28 14:40:17 +00:00
parent 119c2796bf
commit 8a9fdf48eb
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lcl/interfaces/gtk2/gtk2winapi.inc
View File

@ -155,7 +155,7 @@ begin
if PangoDesc = nil then if PangoDesc = nil then
PangoDesc := pango_context_get_font_description(pango_layout_get_context(CurFont)); PangoDesc := pango_context_get_font_description(pango_layout_get_context(CurFont));
aFamily := StrPas(pango_font_description_get_family(PangoDesc)); aFamily := StrPas(pango_font_description_get_family(PangoDesc));
if (aSize = 0) then if (aSize = 0) and (lfHeight = 0) then
begin begin
aSize := pango_font_description_get_size(PangoDesc); aSize := pango_font_description_get_size(PangoDesc);
if not pango_font_description_get_size_is_absolute(PangoDesc) then if not pango_font_description_get_size_is_absolute(PangoDesc) then