paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-12-02 23:37:18 +01:00
Code Issues Packages Projects Releases Wiki Activity

TAChart: Set default TDataPointDistanceTool.Distance units to cuAxis.

Browse Source 
Pass both axis and graph distance to Marks.Format.

git-svn-id: trunk@38446 -
This commit is contained in:
ask 2012-08-31 04:10:38 +00:00
parent 5f862a412a
commit 1abb40c5f4
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
components/tachart/tadatatools.pas
View File

@ -81,7 +81,7 @@ type
public
constructor Create(AOwner: TComponent); override;
destructor Destroy; override;
function Distance(AUnits: TChartUnits = cuGraph): Double;
function Distance(AUnits: TChartUnits = cuAxis): Double;
procedure KeyDown(APoint: TPoint); override;
procedure KeyUp(APoint: TPoint); override;
procedure MouseDown(APoint: TPoint); override;
@ -258,7 +258,7 @@ end;
// datetime string.
function TDataPointDistanceTool.GetDistanceText: String;
begin
Result := Format(Marks.Format, [Distance]);
Result := Format(Marks.Format, [Distance(cuAxis), Distance(cuGraph)]);
if Assigned(OnGetDistanceText) then
OnGetDistanceText(Self, Result);
end;