Can marks be moved horizontally?
Posted: Mon Jan 03, 2005 1:37 pm
Is it possible/How do I reposition a mark horizontally? In a bar chart, for example...???
regards,
Milton Lapido
regards,
Milton Lapido
Yes, you can fully customize the position of each series mark. For example, the following code centers all series marks vertically and left aligns them horizontally:
Code: Select all
procedure TForm1.FormCreate(Sender: TObject);
begin
Series1.FillSampleValues(5);
end;
procedure TForm1.AlignMarks;
var i: Integer;
begin
// no need for arrows
Series1.Marks.Arrow.Visible := False;
for i := 0 to Series1.Count -1 do
With Series1.Marks.Positions.Position[i] do
begin
Custom := True;
LeftTop.Y := Series1.CalcYPosValue(Series1.YValues[i]*0.5);
LeftTop.X := Series1.CalcXPos(i) - Series1.Marks.Width;
end;
Chart1.Repaint;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
AlignMarks;
end;