TAChart: drag demo: compilation fix and minor update

git-svn-id: trunk@32180 -

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

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;