HighLowPen in Candle Series

[msd48]

Hi!

How can I set the color of HighLowPen according to the UpCloseColor (or DownCloseColor) in a TCandleSeries ?

[Narcís]

Hi msd48,

You can use candle's OnGetPointerStyle event like this:

Code: Select all

function TForm1.Series1GetPointerStyle(Sender: TChartSeries;
  ValueIndex: Integer): TSeriesPointerStyle;
begin
  Series1.HighLowPen.Color := Series1.DownCloseColor;

  if (ValueIndex>0) then
  begin
    if Series1.CloseValues[ValueIndex] > Series1.CloseValues[ValueIndex-1] then
      Series1.HighLowPen.Color := Series1.UpCloseColor;
  end;

  result:=psRectangle;
end;

[msd48]

Hi Narcís,

Thanks for help.
Question is closed.