Configuración tChart

[ecfisa]

Hola mi poliándrico amigo

A ver si te sirve de esta manera... (de todos modos sé que podrás mejorarlo )

Código Delphi [-]
procedure TForm1.FormCreate(Sender: TObject);
var
  i : Integer;
  P : TPoint;
begin
  // Quitar líneas
  Series1.Marks.Arrow.Visible := False;
  Series2.Marks.Arrow.Visible := False;

  //Colores de marcas
  Series1.Marks.BackColor  := Chart1.Series[0].SeriesColor;
  Series1.Marks.Font.Color := clWhite;
  Series2.Marks.BackColor  := Chart1.Series[1].SeriesColor;
  Series2.Marks.Font.Color := clWhite;

  // Cargar algunos valores
  for i:= 1 to 10 do
  begin
    Series1.Add(i*100,IntToStr(i*100),clRed);
    Series2.Add(i*100,IntToStr(i*100),clGreen);
  end;

  // Situar marcas
  Chart1.Draw(Canvas,Series1.BarBounds);
  for i:= 0 to Series1.Count-1 do
  begin
    Series1.Marks.Positions.Position[i].Custom := True;
    P.X := Series2.Marks.Positions.Position[i].LeftTop.X;
    P.Y := Series2.Marks.Positions.Position[i].LeftTop.Y;
    P.X := P.X - Round(P.X * 0.12);
    P.Y := P.Y - Round(P.Y * 0.12);
    Series1.Marks.Positions.Position[i].LeftTop := P;
  end;
  Series1.Repaint;
end;

Con este efecto:



Saludos