paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-11-02 07:19:28 +01:00
Code Issues Packages Projects Releases Wiki Activity

TAChart: Take Marks.Distance into account when drawing TDataPointDistanceTool

Browse Source 
git-svn-id: trunk@38440 -
This commit is contained in:
ask 2012-08-30 08:08:37 +00:00
parent f78b270767
commit 3926cc6b0e
1 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
components/tachart/tadatatools.pas
View File

@ -52,7 +52,7 @@ type
TDataPointDistanceTool = class(TDataPointDrawTool)
published
type
TOptions = set of (dpdoLockToData, dpdoRotateLabel);
TOptions = set of (dpdoLockToData, dpdoRotateLabel, dpdoLabelAbove);
strict private
// Workaround for FPC 2.6 bug. Remove after migration to 2.8.
@ -223,10 +223,12 @@ begin
DrawPointer(PointerStart, p1);
DrawPointer(PointerEnd, p2);
if Marks.Visible then begin
p1 := (p1 + p2) div 2;
if dpdoRotateLabel in Options then
Marks.SetAdditionalAngle(-a);
Marks.DrawLabel(FChart.Drawer, p1, p1, GetDistanceText, dummy)
p1 := (p1 + p2) div 2;
a += IfThen(dpdoLabelAbove in Options, -Pi / 2, Pi / 2);
p2 := p1 + RotatePointX(Marks.Distance, a);
Marks.DrawLabel(FChart.Drawer, p1, p2, GetDistanceText, dummy)
end;
inherited;
end;