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

TAChart: Fix compilation of fpvectorial drawer package broken after commit 53f7749d. Issue #40086.

Browse Source
This commit is contained in:
wp_xyz 2023-01-10 15:35:05 +01:00
parent 3b1bba21ff
commit 2320646b2d
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
components/tachart/fpvectorial/tadrawerfpvectorial.pas
View File

@ -201,7 +201,7 @@ end;
function TFPVectorialDrawer.GetFontSize: Integer;
begin
Result := IfThen(FFont.Size = 0, DEFAULT_FONT_SIZE, FFont.Size);
Result := IfThen(FFont.Size = 0, DEFAULT_FONT_SIZE, round(FFont.Size));
end;
function TFPVectorialDrawer.GetFontStyle: TChartFontStyles;
@ -410,7 +410,7 @@ begin
FFTFont.Quality := grqHighQuality;
FFontHeight := round(FFTFont.TextHeight('Tg'));
end else
FFontHeight := FFont.Size;
FFontHeight := round(FFont.Size);
end;
procedure TFPVectorialDrawer.SetPen(APen: TFPCustomPen);
@ -449,8 +449,8 @@ begin
Result.Y := FFontHeight;
end else
begin
Result.X := FFont.Size * Length(AText) * 2 div 3;
Result.Y := FFont.Size;
Result.X := round(FFont.Size * Length(AText) * 2/3);
Result.Y := round(FFont.Size);
end;
end;
@ -468,7 +468,7 @@ begin
if FFTFont <> nil then
dy := round(TFreeTypeFontOpener(FFTFont).GetAscent)
else
dy := FFont.Size;
dy := round(FFont.Size);
p := RotatePoint(Point(0, -dy), DegToRad(FFont.Orientation)) + Point(AX, InvertY(AY));
txt := FCanvas.AddText(p.X, p.Y, 0, AText);
txt.Font := FFont;