From bf45896b721c5e95778c7a5d51a5199e8888bc10 Mon Sep 17 00:00:00 2001
From: juha <juha@lazarus-ide.org>
Date: Wed, 24 Apr 2019 18:29:15 +0000
Subject: [PATCH] LCL-GTK2: Support fractions of degrees in font orientation.
 Issue #35437.

git-svn-id: trunk@61049 -
---
 lcl/interfaces/gtk2/gtk2devicecontext.inc | 2 +-
 lcl/interfaces/gtk2/gtk2winapi.inc        | 6 +++---
 2 files changed, 4 insertions(+), 4 deletions(-)

diff --git a/lcl/interfaces/gtk2/gtk2devicecontext.inc b/lcl/interfaces/gtk2/gtk2devicecontext.inc
index cd3d67179e..cd1f958e8e 100644
--- a/lcl/interfaces/gtk2/gtk2devicecontext.inc
+++ b/lcl/interfaces/gtk2/gtk2devicecontext.inc
@@ -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);
diff --git a/lcl/interfaces/gtk2/gtk2winapi.inc b/lcl/interfaces/gtk2/gtk2winapi.inc
index a716a91c47..764561c109 100644
--- a/lcl/interfaces/gtk2/gtk2winapi.inc
+++ b/lcl/interfaces/gtk2/gtk2winapi.inc
@@ -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;