paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-30 11:10:23 +02:00
Code Issues Packages Projects Releases Wiki Activity

TAChart: Add dpdoPermanent option to TDataPointDistanceTool

Browse Source 
git-svn-id: trunk@38441 -
This commit is contained in:
ask 2012-08-30 08:21:49 +00:00
parent 3926cc6b0e
commit a51ed493bb
2 changed files with 13 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
components/tachart/tadatatools.pas
View File

@ -52,7 +52,8 @@ type
TDataPointDistanceTool = class(TDataPointDrawTool)
published
type
TOptions = set of (dpdoLockToData, dpdoRotateLabel, dpdoLabelAbove);
TOptions = set of (
dpdoLockToData, dpdoRotateLabel, dpdoLabelAbove, dpdoPermanent);
strict private
// Workaround for FPC 2.6 bug. Remove after migration to 2.8.
@ -208,6 +209,7 @@ var
p1, p2: TPoint;
dummy: TPointArray = nil;
begin
if not (IsActive or (FChart <> nil) and (dpdoPermanent in Options)) then exit;
p1 := FChart.GraphToImage(PointStart.GraphPos);
p2 := FChart.GraphToImage(PointEnd.GraphPos);
case MeasureMode of
@ -315,11 +317,19 @@ begin
end;
procedure TDataPointDistanceTool.MouseUp(APoint: TPoint);
var
ch: TChart;
begin
MouseMove(APoint);
if Assigned(OnMeasure) and (PointStart.GraphPos <> PointEnd.GraphPos) then
OnMeasure(Self);
Deactivate;
if dpdoPermanent in Options then begin
ch := FChart;
Deactivate;
FChart := ch;
end
else
Hide;
end;
function TDataPointDistanceTool.SameTransformations(

2
components/tachart/tatools.pas
View File

@ -1658,7 +1658,7 @@ end;
procedure TDataPointDrawTool.Hide;
begin
DoHide;
FChart := nil;
Deactivate;
end;
procedure TDataPointDrawTool.KeyDown(APoint: TPoint);