procedure TForm1.Chart1BeforeDrawSeries(Sender: TObject); var i:Integer; begin for i := 0 to Series1.YValues.Count-1 do begin if Series1.YValue[i]>=0 then Series1.ValueColor[i]:= clRed else Series1.ValueColor[i]:= clGreen; end; end;
----------------------------------------------
-
// MACD柱状图颜色, TeeFunction3为TMACDFunction for i := 0 to TeeFunction3.Histogram.YValues.Count - 1 do begin if TeeFunction3.Histogram.YValue[i]>=0 then TeeFunction3.Histogram.ValueColor[i] := clRed else TeeFunction3.Histogram.ValueColor[i] := clGreen; end;
----------------------------------------------
-