Source position: talegend.pas line 62
type TLegendItemDrawEvent = procedure(
ACanvas: TCanvas;
const ARect: TRect;
AIndex: Integer;
AItem: TLegendItem
) of object;