TBarSeries...
Posted: 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:
Thanks alot...
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:
Code: Select all
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.