Align Marks Text with start of Horizontal Bar?

[VideoTrack]

I have a stacked Horizontal Bar series.

I am using custom mark position to place the marks above the bar series. However, despite efforts, the text I want to display shows at the RHS of the bar. How can I show the value at the LHS of the bar?

The values I display are the actual start positions of the bar, so accordingly I want to show them on the chart where each bar segment starts.

MarksLocation := mlStart did not seem to change anything.

2018-11-14_00-30-55.jpg (34.42 KiB) Viewed 7980 times

Code: Select all

APosition:=TSeriesMarkPosition.Create;
  try
  for j := high(IDMRecords.PhaseRecs) downto 0 do
    begin
    for i:=0 to PhDataSeries[j].Count-1 do
      if assigned(PhDataSeries[j].Marks.Positions[i]) then
      begin
      APosition.Custom:=True;
      PhDataSeries[j].MarksLocation := mlCenter; // mlStart (?);
      APosition.LeftTop.Y:=PhDataSeries[j].Marks.Positions[i].LeftTop.Y - 5; 
      APosition.LeftTop.X:=PhDataSeries[j].Marks.Positions[i].LeftTop.X - 30; 
      PhDataSeries[j].Marks.Positions[i]:=APosition;
      end; {for i}
    end; {for j}
  finally
  APosition.Free;
  end;

Many thanks!

[Yeray]

Hello,

The MarksLocation property is thought to be used with the automatic positioning of the marks, not with the Custom positions you are using.
Ie:

Code: Select all

procedure TForm1.FormCreate(Sender: TObject);
var i: Integer;
begin
  Chart1.Legend.Hide;

  for i:=0 to 3 do
    with Chart1.AddSeries(THorizBarSeries) as THorizBarSeries do
    begin
      FillSampleValues(3);

      Marks.Transparent:=True;
      MultiBar:=mbStacked;
      MarksOnBar:=True;
      MarksLocation:=mlStart;
    end;
end;

Project3_2018-11-15_10-41-55.png (14.77 KiB) Viewed 7970 times

If you want to have your marks at the start but above the bars, you can use the Custom positions as follows:

Code: Select all

procedure TForm1.Chart1BeforeDrawSeries(Sender: TObject);
var i, j: Integer;
    APosition: TSeriesMarkPosition;
begin
  APosition:=TSeriesMarkPosition.Create;
  try
    APosition.Custom:=True;

    for i:=0 to Chart1.SeriesCount-1 do
    begin
      with Chart1[i] as THorizBarSeries do
      begin
        for j:=0 to Count-1 do
        begin
          APosition.LeftTop.Y:=CalcYPos(j) - 20;
          if i=0 then
            APosition.LeftTop.X:=Chart1.Axes.Bottom.IStartPos
          else
            APosition.LeftTop.X:=Chart1[i-1].CalcXPos(j);

          Inc(APosition.LeftTop.X, Chart1.Canvas.TextWidth(ValueMarkText[j]) div 2);
          Marks.Positions[j]:=APosition;
        end;
      end;
    end;
  finally
    APosition.Free;
  end;
end;

Project3_2018-11-15_11-04-32.png (12.62 KiB) Viewed 7970 times

[VideoTrack]

Many thanks for the support. I got it working OK using a derivative of your example.