TBarSeries...

bingo72 · Post by **bingo72** » Tue Jul 17, 2007 6:42 am

Hello Experts!!

I'm using a TBarSeries with TeeChart Pro 6 and I'm want to avoid the black spaces between the series.

I want it in this way without any black lines or spaces:

Finally here my code:

unit FMain;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  TeEngine, Series, ExtCtrls, TeeProcs, Chart, TeeEdit, TeeTools;

type
  TForm1 = class(TForm)
    Panel1: TPanel;
    Chart1: TChart;
    Series1: THorizBarSeries;
    Series2: THorizBarSeries;
    Series3: THorizBarSeries;
    Series4: THorizBarSeries;
    ChartTool1: TMarksTipTool;
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.FormShow(Sender: TObject);
begin
  Series1.AddBar(180, 'Neue Fragen', clLime);
  Series2.AddBar(69, 'Richtig beantwortete Fragen', clYellow);
  Series3.AddBar(20, 'Falsche Fragen', clred);
  Series4.AddBar(50, 'Mehrfach richtig beantwortete Fragen', clblue);
end;

end.

Thanks alot...

bingo72 · Post by **bingo72** » Tue Jul 17, 2007 7:20 am

I found it by myself....Series1.Pen.Visible := false!!
Its solved!!