Page 1 of 1

Vector or arrow series marks

Posted: Thu Apr 26, 2007 10:14 am
by 9337510
I am using a vector 3 d series and I need to show marks at the arrow end rather than the origin - all my vectors come from the origin 0,0 and hence all the marks overlay each other - the same for the arrow series.

I have sort of got round this by using a second 3d point series with just marks, but that is now causing me a few problems - is there any way I can do this - or has this been added to the new version?

Richard

Posted: Thu Apr 26, 2007 10:46 am
by narcis
Hi Richard,

In that case you could set custom marks position as told here.

Using Vector3D series you could use something like this:

Code: Select all

procedure TForm1.FormCreate(Sender: TObject);
var
  i: Integer;
begin
  Series1.FillSampleValues(25);
  Chart1.Draw();

  for i:=0 to Series1.Count-1 do
  begin
    With Series1.Marks.Positions.Position[i] do
    Begin
      Custom:=True;
      LeftTop.X := Series1.CalcXPosValue(Series1.EndXValues[i]);
      LeftTop.Y := Series1.CalcYPosValue(Series1.EndYValues[i]);
    end;
  end;
  Series1.Marks.Arrow.Visible:=false;
  Series1.Repaint;
end;
Another option would be using TAnnotationTool instead of marks.