Zitat von
interminator:
bringt leider nicht das gewünschte ergebnis
Soll heißen? Ich hab's grad nochmal mit deinem Code ausprobiert und da geht das sehr wohl:
Delphi-Quellcode:
BarSerie :=tBarSeries.Create (Self);
with BarSerie do
begin
ParentChart :=DBChart1;
Active := False;
Marks.ArrowLength := 20;
Marks.Style := smsValue;
Marks.Visible := True;
DataSource := IBCTable1;
PercentFormat := '##0 %';
SeriesColor := 56576;
ShowInLegend := False;
ValueFormat := ',#';
VertAxis := aRightAxis;
XLabelsSource := 'ID';
BarBrush.Color := clWhite;
BarPen.Visible := False;
BarWidthPercent := 65;
XValues.DateTime := False;
XValues.Name := 'ID';
XValues.Order := loAscending;
XValues.ValueSource := 'ID';
YValues.DateTime := False;
YValues.Name := 'AMount';
YValues.Order := loNone;
YValues.ValueSource := 'AMOUNT';
ColorRange(YValues, -100000, 0, clRed); // Das hier färbt's rot unter Teechart 7.10 / Delphi 2007
end;