TKGridMeasureCellEvent

type TKGridMeasureCellEvent = procedure(

  Sender: TObject;

  ACol: Integer;

  ARow: Integer;

  R: TRect;

  State: TKGridDrawState;

  Priority: TKGridMeasureCellPriority;

  var Extent: TPoint

) of object;