paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-17 17:39:20 +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); procedure TFPVectorialDrawer.AddToFontOrientation(ADelta: Integer);
begin begin
// Not implemented. // Not implemented.
Unused(ADelta);
end; end;
procedure TFPVectorialDrawer.ClippingStart(const AClipRect: TRect); procedure TFPVectorialDrawer.ClippingStart(const AClipRect: TRect);
@ -213,6 +214,9 @@ procedure TFPVectorialDrawer.RadialPie(
AX1, AY1, AX2, AY2: Integer; AStartAngle16Deg, AAngleLength16Deg: Integer); AX1, AY1, AX2, AY2: Integer; AStartAngle16Deg, AAngleLength16Deg: Integer);
begin begin
// Not implemented. // Not implemented.
Unused(AX1, AY1);
Unused(AX2, AY2);
Unused(AStartAngle16Deg, AAngleLength16Deg);
end; end;
procedure TFPVectorialDrawer.Rectangle(AX1, AY1, AX2, AY2: Integer); procedure TFPVectorialDrawer.Rectangle(AX1, AY1, AX2, AY2: Integer);
@ -278,7 +282,8 @@ end;
procedure TFPVectorialDrawer.SimpleTextOut( procedure TFPVectorialDrawer.SimpleTextOut(
AX, AY: Integer; const AText: String); AX, AY: Integer; const AText: String);
begin 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;
end. end.