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

LCL-GTK2: Support fractions of degrees in font orientation. Issue #35437.

Browse Source 
git-svn-id: trunk@61049 -
This commit is contained in:
juha 2019-04-24 18:29:15 +00:00
parent e149d43e6b
commit bf45896b72
2 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1339,7 +1339,7 @@ begin
NewMatrix.x0 := 0.0;
NewMatrix.y0 := 0.0;
pango_matrix_translate(@NewMatrix, X, Y);
pango_matrix_rotate(@NewMatrix, AFont^.LogFont.lfEscapement div 10);
pango_matrix_rotate(@NewMatrix, AFont^.LogFont.lfEscapement / 10);
pango_context_set_matrix(WidgetCont, @NewMatrix);
pango_layout_context_changed(AFont^.GDIFontObject);

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

@ -2530,16 +2530,16 @@ var
var TextLeft,TextTop: Integer);
var
OffsX, OffsY: integer;
Angle: Integer;
Angle: Double;
Size: TSize;
R: TRect;
begin
R := SavedRect;
OffsX := R.Right - R.Left;
OffsY := R.Bottom - R.Top;
Size.cX := OffsX;
Size.cx := OffsX;
Size.cy := OffsY;
Angle := AFontAngle div 10;
Angle := AFontAngle / 10;
if Angle < 0 then
Angle := 360 + Angle;