Procedure TWPRuler.CalcItemLeft(x:Integer; y:Integer; h:Integer; Typ:TWPRulerItemType)Unit: WPRulerClass: WPRuler.TWPRulerParameters x:Integer y:Integer h:Integer Typ:TWPRulerItemType