mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-07-25 15:56:13 +02:00
LCL-GTK3: Use double for font angle calculation, was rounded to whole degrees. Orientation is not rendered yet. Issue #35697, patch from Alexey Tor.
git-svn-id: trunk@61347 -
This commit is contained in:
parent
89a7a7414e
commit
9c792cd818
@ -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;
|
||||||
|
|
||||||
|
Loading…
Reference in New Issue
Block a user