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

TAChart: Fix text positioning in fpvectorial back-end. Silence warnings.

Browse Source 
git-svn-id: trunk@31336 -
This commit is contained in:
ask 2011-06-22 14:23:45 +00:00
parent f1cfea45dc
commit fe8fb348a1
1 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
components/tachart/tadrawerfpvectorial.pas
View File

@ -89,6 +89,7 @@ end;
procedure TFPVectorialDrawer.AddToFontOrientation(ADelta: Integer);
begin
// Not implemented.
Unused(ADelta);
end;
procedure TFPVectorialDrawer.ClippingStart(const AClipRect: TRect);
@ -213,6 +214,9 @@ procedure TFPVectorialDrawer.RadialPie(
AX1, AY1, AX2, AY2: Integer; AStartAngle16Deg, AAngleLength16Deg: Integer);
begin
// Not implemented.
Unused(AX1, AY1);
Unused(AX2, AY2);
Unused(AStartAngle16Deg, AAngleLength16Deg);
end;
procedure TFPVectorialDrawer.Rectangle(AX1, AY1, AX2, AY2: Integer);
@ -278,7 +282,8 @@ end;
procedure TFPVectorialDrawer.SimpleTextOut(
AX, AY: Integer; const AText: String);
begin
FCanvas.AddText(AX, InvertY(AY), 0, AText);
// FPVectorial uses lower-left instead of upper-left corner as text start.
FCanvas.AddText(AX, InvertY(AY) - FFontSize, 0, AText);
end;
end.