Source position: jvtimeline.pas line 158
type TJvMeasureTimeItemEvent = procedure(
Sender: TObject;
Item: TJvTimeItem;
var ItemHeight: Integer
) of object;