Steema Software - Customer Support Forums
http://216.92.101.67/support/
Code: Select all
procedure TForm1.Chart1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
var SeriesIndex: Integer;
begin
for SeriesIndex:=0 to Chart1.SeriesCount-1 do
begin
if Chart1[SeriesIndex].Marks.Clicked(X, Y) > -1 then
(Chart1.Tools[0] as TDragMarksTool).Series:=Chart1[SeriesIndex];
end;
end;I'm glad to hear it works as you wish now.JimR wrote:Thanks - that first solution of setting the series property to nil is simple and it works. I would not have guessed that.
By "normal" do you mean what you said in the opening post here?JimR wrote:What is the procedure to restore it to normal?
This is not the behaviour I observe by default. The TDragMarksTool works with all the series for me by default:JimR wrote:I can just drag the marks for the points in the last series
Code: Select all
uses Series, TeeTools;
procedure TForm1.FormCreate(Sender: TObject);
var i: Integer;
begin
Chart1.View3D:=False;
for i:=0 to 3 do
with Chart1.AddSeries(TPointSeries) do
begin
Marks.Visible:=True;
FillSampleValues(5);
end;
Chart1.Tools.Add(TDragMarksTool);
end;By default, Series is nil (1). You can check it with this example:JimR wrote:I meant your first example"
"Assigning nil to the TDragMarksTool's Series property should enable it for all the series."
How does one undo that ?
Code: Select all
uses Series, TeeTools;
procedure TForm1.FormCreate(Sender: TObject);
var i: Integer;
begin
Chart1.View3D:=False;
for i:=0 to 3 do
with Chart1.AddSeries(TPointSeries) do
begin
Marks.Visible:=True;
FillSampleValues(5);
end;
Chart1.Tools.Add(TDragMarksTool);
if (Chart1.Tools[0] as TDragMarksTool).Series = nil then
Caption:='Series is nil'
else
Caption:='Series is assigned';
end;Code: Select all
var mySeries: TChartSeries;
//...
mySeries:=(Chart1.Tools[0] as TDragMarksTool).Series;
(Chart1.Tools[0] as TDragMarksTool).Series:=nil;Code: Select all
(Chart1.Tools[0] as TDragMarksTool).Series:=mySeries;