Text position on a Gantt Series

[Tri-Direct]

In there anyway to position the "mark" text (label) of a Gantt bar, above the actual bar, rather than displaying overlayed over the actual bar ?

[Tri-Direct]

Anybody ?

Its quite important now, as some of the bars I'm plotting are only 1 to 2 days in size, and with a piece of text over it, you lose the bar (even if the text is translucent)

[Pep]

Hi,

yes, you can set a custom position for each series mark. In the code bellow I've "left-aligned" all series marks:

Code: Select all

var i: Integer;
begin
     for i := 0 to Series1.Marks.Positions.Count - 1 do
     with Series1.Marks.Positions.Position[i] do
     begin
          Custom := true;
          LeftTop.x := Series1.CalcXPos(i);
     end;

     Series1.Repaint;
end;

Please note that series marks are created when chart is drawn for the first time. If you'll try to access TSeriesMark.Positions before chart (and marks) is drawn for the first time, you'll trigger AV error.