problems with TGanttSeries and LeftAxis Labels

[Friis]

Hi,

When making the code below, The marks seems to interfere with the LeftAxis Labels. I have attached a figure illustraing the problem. How can I avoid that??

Code: Select all

procedure TForm10.FormShow(Sender: TObject);
var
  I: Integer;
begin

Chart1.View3D := false;

     with Chart1.AddSeries(TGanttSeries.Create(self)) as TGanttSeries do
        begin
          ParentChart := Chart1;
          ShowInLegend := true;
          XValues.Order:=loNone;
          ShowInLegend := false;
          Marks.visible := true;
          Marks.Transparent := true;
          Xvalues.DateTime := true;
        end;

      for I := 0 to 9 do
        with Chart1[Chart1.SeriesCount -1] as TGanttSeries do
          begin
            Pointer.VertSize:=10;
            AddGanttcolor(now-5-i,now-5+i,i div 2,'',clred);
          end;

chart1.BottomAxis.SetMinMax(now-5,now+10);
end;

[Friis]

The problem seems to be related to the problem with

Code: Select all

Marks.Transparent := true;

[Yeray]

Hi,

How can I avoid that??

It depends. How do you want to avoid that?
- Do you want the left axis labels not to be drawn? You can hide them setting a blank space in the string given at the OnGetAxisLabel event. Here it is a .NET example, but the same applies to VCL.
- Do you want the gantt marks to be drawn elsewhere? You can set a different bottom axis scale, or you can manually set the marks positions as shown here.

[Friis]

Hi Yeray,

Actually, what I would like is that, that part of the marks that are "outside" of the Chart area is not being shown. So that the area with the Left Axis Labels does not show the marks at all.

[Yeray]

Hi Friis,

This is a clipping, isn't it? There's a property for it: Marks.Clip

Code: Select all

  with Chart1.AddSeries(TGanttSeries) as TGanttSeries do
  begin
    ParentChart := Chart1;
    ShowInLegend := true;
    XValues.Order:=loNone;
    ShowInLegend := false;
    Marks.visible := true;
    Marks.Transparent := true;
    Xvalues.DateTime := true;
    OnGetMarkText:=GetMarkText;
    Marks.Clip:=true;
  end;

[Friis]

Hi Yeray,

I didn't know that property existed - Thank you; it works fantatsic know