Source position: ecaccordion.pas line 44
type TDrawAccordionItem = procedure(
Sender: TObject;
AIndex: Integer;
ARect: TRect;
var AHandled: Boolean
) of object;