Source position: kcontrols.pas line 720
type TKPrintMeasureEvent = procedure(
Sender: TObject;
var Info: TKPrintMeasureInfo
) of object;