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

CairoCanvas, TextExtent patch from Julio Jiménez Borreguero

Browse Source 
git-svn-id: trunk@40716 -
This commit is contained in:
jesus 2013-04-04 19:40:08 +00:00
parent 7c0279641e
commit 7e17e5a27a
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
components/cairocanvas/cairocanvas.pas
View File

@ -901,14 +901,14 @@ begin
cairo_text_extents(cr, PChar(Text), @extents);
pango_layout_set_text(Layout, pchar(Text), -1);
pango_layout_get_extents(Layout, @theRect, nil);
Result.cx := Round((theRect.width/PANGO_SCALE-extents.x_bearing)/ScaleX);
Result.cy := Round((theRect.height/PANGO_SCALE-extents.y_bearing)/ScaleY);
Result.cx := Round((theRect.width/PANGO_SCALE)/ScaleX-extents.x_bearing);
Result.cy := Round((theRect.height/PANGO_SCALE)/ScaleY-extents.y_bearing);
g_object_unref(Layout);
pango_font_description_free(desc);
{$else}
cairo_text_extents(cr, PChar(Text), @extents); //transformation matrix is here ignored
Result.cx := Round((extents.width+extents.x_bearing)/ScaleX);
Result.cy := Round((extents.height+extents.y_bearing)/ScaleY);
Result.cx := Round((extents.width)/ScaleX+extents.x_bearing);
Result.cy := Round((extents.height)/ScaleY-extents.y_bearing);
{$endif}
end;