Procedure TWPRuler.PaintScale(x:Integer; y:Integer; aColorLines:TColor)Unit: WPRulerClass: WPRuler.TWPRulerParameters x:Integer y:Integer aColorLines:TColor