Есть график. По оси У только три величины 1 и -1 и еще 0. Как сделать так, чтоб например плюсовые значения были зеленого цвета, а минусовые - красного. Получается выбрать только один цвет графика для всех величин, а вот отдельбно для + и - не знаю как.
Помогите

Ну помогите
Очень надо

Значит ситуация такая
Имею базу
В ней поля: имя, время, результат
Имена могу как добавлятся ак и убывать
Скажем по одному имени строю график, потом по второму и т.д.
Все графики строятся программно, тоесть на основании данных из таблыцы, - сколько имен столько и графиков будет
В поле результат возможны варинты 1 и -1 ну и 0 может быть, в соответствии с временем (ось Х)
Вот суть вопроса. Все что ниже оси Х должно быть красным а все что выше зеленым, для каждого отдельного графика

А в ответ тишина

Вот собственно процедура построения нового графика на основе уже имеющегося DBChart1

procedure TForm1.AddGraf(S: AnsiString;Sender: TObject);
Var
Graf: TDBChart;
Series: TBarSeries;

SeriesClass: TChartSeriesClass;
NewSeries: TChartSeries;
w : String;
begin
w := 'Test napisi';
if ListC.Count > 0 then
begin
Graf := TDBChart.Create(Form1);
Graf.Parent := Form1;
Graf.Top := (TDBChart (ListC.Items[ListC.Count-1])).Top +
(TDBChart(ListC.Items[ListC.Count-1])).Height+1;

Graf.Left := DBChart1.Left;
Graf.Width := 200;
Graf.Height := 161 ;

Graf.BackWall.Brush.Color := clWhite;
Graf.BackWall.Brush.Style := bsClear;
with graf.Title.Text do
begin
clear;
Add(w);
end;
Graf.Visible := true;

SeriesClass:= TBarSeries;
NewSeries:=SeriesClass.Create(Graf);
NewSeries.ParentChart:=Graf;
NewSeries.DataSource := Table1;
NewSeries.ColorEachPoint := False;
NewSeries.PercentFormat := '##0.##,%' ;
NewSeries.SeriesColor := clRed;
NewSeries.XLabelsSource := 'DD';
NewSeries.XValues.DateTime := False;
NewSeries.XValues.Name := 'X';
NewSeries.XValues.Multiplier := 1;
NewSeries.XValues.Order := loAscending;
NewSeries.YValues.DateTime := False;
NewSeries.YValues.Name := 'Bar';
NewSeries.YValues.Multiplier := 1;
NewSeries.YValues.Order := loNone;
NewSeries.YValues.ValueSource := 'Тест';
ListC.Add(Graf);
end
else
begin
ListC.Add(DBChart1);
DBChart1.Visible := true;
end;
end;

Ну я уже не знаю что рассказывать и показывать.........