paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-07-28 17:35:55 +02:00
Code Issues Packages Projects Releases Wiki Activity

LCL-GTK3: Use double for font angle calculation, was rounded to whole degrees. Orientation is not rendered yet. Issue #35697, patch from Alexey Tor.

Browse Source 
git-svn-id: trunk@61347 -
This commit is contained in:
juha 2019-06-09 19:54:49 +00:00
parent 89a7a7414e
commit 9c792cd818
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lcl/interfaces/gtk3/gtk3winapi.inc
View File

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