UnitWPRuler
Declaration
TWPRulerChangingEvent = procedure(Sender: TObject; Element: TWPRulerElement; var Proceed: Boolean) of object;