Source position: ectabctrl.pas line 94
type TDrawECTabEvent = procedure(
Sender: TObject;
AIndex: Integer;
Rect: TRect;
AActive: Boolean
) of object;