paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-14 00:59:38 +02:00
Code Issues Packages Projects Releases Wiki Activity

TAChart: Fix positioning of rotated text by AggPas drawer.

Browse Source 
git-svn-id: trunk@55488 -
This commit is contained in:
wp 2017-07-11 22:06:36 +00:00
parent 7465018e20
commit 15891477c3
1 changed files with 9 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
components/tachart/aggpas/tadraweraggpas.pas
View File

@ -268,7 +268,7 @@ begin
f.LoadFromFile(
AFont.Name, f.SizeToAggHeight(fontSize), AFont.Bold, AFont.Italic);
f.FPColor := ApplyTransparency(FPColorOrMono(AFont.FPColor));
f.AggAngle := OrientToRad(-FGetFontOrientationFunc(AFont));
f.AggAngle := -OrientToRad(FGetFontOrientationFunc(AFont));
end;
type
@ -293,8 +293,15 @@ begin
end;
procedure TAggPasDrawer.SimpleTextOut(AX, AY: Integer; const AText: String);
var
h: Integer;
p: TPoint;
begin
FCanvas.TextOut(AX, AY, AText);
h := SimpleTextExtent('Tg').y;
p := RotatePoint(Point(0, h * 9 div 10), FCanvas.Font.AggAngle);
// * 9/10 fits to fit the text into bounding box
FCanvas.TextOut(AX + p.X, AY + p.Y - h, AText);
// -h to avoid rotated text drifting away
end;
initialization