Source position: tabgrautils.pas line 23
procedure DrawChocolateBar(
ASeries: TBarSeries;
ACanvas: TCanvas;
ARect: TRect;
APointIndex: Integer;
ARounded: Boolean
);