procedure TForm1.WeatherSerieCustomDrawPointer(ASender: TChartSeries;
ADrawer: IChartDrawer; AIndex: Integer; ACenter: TPoint);
procedure DoDrawPointer(ABitmap: Graphics.TBitmap);
var
img: TLazIntfImage;
//ser: TLineSeries;
begin
img := TLazIntfImage.Create(0,0);
try
img.LoadFromBitmap(ABitmap.Handle, ABitmap.MaskHandle);
ADrawer.PutImage(ACenter.X - ABitmap.Width div 2, ACenter.Y - ABitmap.Height div 2, img)
finally
img.Free;
end;
end;
var
imgIndex: Integer;
bmp: Graphics.TBitmap;
begin
imgIndex := trunc(ASender.GetYValue(AIndex));
bmp := Graphics.TBitmap.Create;
ImageList5.GetBitmap(imgIndex, bmp);
DoDrawPointer(bmp);
bmp.Free;
end;