TSeriesMarksPositions.MoveTo

All Units All Classes Properties, Methods and Events

TSeriesMarksPositions.MoveTo
TSeriesMarksPositions

procedure MoveTo(Var Position: TSeriesMarkPosition; Const XPos, YPos: Integer);

Unit
TeEngine

Description
This method allows the user to move a specific Mark to a custom position.

Code example :

procedure TForm1.BitBtn1Click(Sender: TObject);
var MarkToMove : TSeriesMarkPosition;
begin
MarkToMove := Series1.Marks.Positions.Position[1];
with Series1 do
begin
Marks.Positions.Position[1].Custom:=true;
Marks.Positions.MoveTo(MarkToMove,MarkToMove.LeftTop.X+50,
MarkToMove.LeftTop.Y+50);
Repaint;
end;
end;