paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-01 21:20:28 +02:00
Code Issues Packages Projects Releases Wiki Activity

gtk3: fixed font orientation. Patch by Anton Kavalenka. issue #36656

Browse Source 
git-svn-id: trunk@62611 -
This commit is contained in:
zeljko 2020-02-04 16:57:45 +00:00
parent 50b0a3f2f6
commit a2705bebc9
1 changed files with 5 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
lcl/interfaces/gtk3/gtk3objects.pas
View File

@ -1269,25 +1269,19 @@ end;
procedure TGtk3DeviceContext.drawText(X, Y: Integer; AText: PChar; ALen: Integer);
var
//e: cairo_font_extents_t;
R, G, B: Double;
gColor: TGdkColor;
Attr: PPangoAttribute;
AttrList: PPangoAttrList;
UseBack: boolean;
ornt:integer;
begin
cairo_save(Widget);
try
{
// TranslateCairoToDevice;
// cairo_surface_get_device_offset(CairoSurface, @dx, @dy);
cairo_font_extents(Widget, @e);
if e.ascent <> 0 then
begin
// WriteLn('EXTENTS !!!! ',Format('%2.2n',[e.ascent]));
end;
}
cairo_move_to(Widget, X, Y {+ e.ascent});
cairo_move_to(Widget, X, Y);
ornt := Self.FCurrentFont.FLogFont.lfOrientation;
if ornt<>0 then
cairo_rotate(Widget, - pi * (ornt / 10)/180);
ColorToCairoRGB(TColor(CurrentTextColor), R, G, B);
cairo_set_source_rgb(Widget, R, G, B);
@ -1303,7 +1297,6 @@ begin
FCurrentFont.Layout^.set_attributes(AttrList);
end;
// WriteLn('Family: ',FCurrentFont.Handle^.get_family,' size ',FCurrentFont.Handle^.get_size,' weight ',FCurrentFont.Handle^.get_weight);
pango_cairo_show_layout(Widget, FCurrentFont.Layout);
if UseBack then