From 9202316548626bcb072b857356621738d41ec2fc Mon Sep 17 00:00:00 2001
From: ask <ask@lazarus-ide.org>
Date: Mon, 5 Sep 2011 07:11:58 +0000
Subject: [PATCH] TAChart: drag demo: compilation fix and minor update

git-svn-id: trunk@32180 -
---
 components/tachart/demo/dragdrop/main.lfm |  8 ++++++--
 components/tachart/demo/dragdrop/main.pas | 12 +++++++++---
 2 files changed, 15 insertions(+), 5 deletions(-)

diff --git a/components/tachart/demo/dragdrop/main.lfm b/components/tachart/demo/dragdrop/main.lfm
index cfe9b1b772..4eca0c73de 100644
--- a/components/tachart/demo/dragdrop/main.lfm
+++ b/components/tachart/demo/dragdrop/main.lfm
@@ -16,10 +16,12 @@ object Form1: TForm1
     Width = 483
     AxisList = <    
       item
+        Minors = <>
         Title.LabelFont.Orientation = 900
       end    
       item
         Alignment = calBottom
+        Minors = <>
       end>
     Foot.Brush.Color = clBtnFace
     Foot.Font.Color = clBlue
@@ -70,19 +72,21 @@ object Form1: TForm1
     top = 129
     object ChartToolset1DataPointDragTool1: TDataPointDragTool
       Shift = [ssShift, ssLeft]
+      GrabRadius = 10
       ActiveCursor = crDrag
     end
     object ChartToolset1DataPointClickTool1: TDataPointClickTool
       Shift = [ssRight]
+      GrabRadius = 10
       ActiveCursor = crHandPoint
       OnPointClick = ChartToolset1DataPointClickTool1PointClick
     end
     object ChartToolset1DataPointHintTool1: TDataPointHintTool
       Shift = []
-      GrabRadius = 8
+      GrabRadius = 10
       ActiveCursor = crHandPoint
-      UseDefaultHintText = False
       OnHint = ChartToolset1DataPointHintTool1Hint
+      UseDefaultHintText = False
     end
   end
 end
diff --git a/components/tachart/demo/dragdrop/main.pas b/components/tachart/demo/dragdrop/main.pas
index 476f707389..025dfde3ae 100644
--- a/components/tachart/demo/dragdrop/main.pas
+++ b/components/tachart/demo/dragdrop/main.pas
@@ -39,7 +39,7 @@ implementation
 {$R *.lfm}
 
 uses
-  TAChartUtils;
+  Math, TAChartUtils;
 
 { TForm1 }
 
@@ -53,20 +53,26 @@ procedure TForm1.Chart1LineSeries1GetMark(
 begin
   if AIndex = ChartToolset1DataPointDragTool1.PointIndex then
     with Chart1LineSeries1 do
-      AFormattedMark := Source.FormatItem(Marks.Format, AIndex)
+      AFormattedMark := Source.FormatItem(Marks.Format, AIndex, 0)
   else
     AFormattedMark := '';
 end;
 
 procedure TForm1.ChartToolset1DataPointClickTool1PointClick(
   ATool: TChartTool; APoint: TPoint);
+var
+  pi: Integer;
 begin
-  Chart1LineSeries1.SetColor(ChartToolset1DataPointClickTool1.PointIndex, clRed);
+  Unused(ATool, APoint);
+  pi := ChartToolset1DataPointClickTool1.PointIndex;
+  with Chart1LineSeries1 do
+    SetColor(pi, IfThen(GetColor(pi) = clRed, clTAColor, clRed));
 end;
 
 procedure TForm1.ChartToolset1DataPointHintTool1Hint(ATool: TDataPointHintTool;
   const APoint: TPoint; var AHint: String);
 begin
+  Unused(APoint);
   AHint := 'Custom hint for point ' + IntToStr(ATool.PointIndex);
 end;