TRulerBox.OnRulerClick

Declaration

property OnRulerClick: TRulerClickEvent;

Description

Occurs when the user clicks the ruler.

Example

procedure TForm1.RulerClick(Sender: TObject; RulerDir: TRulerDir; Ps: double);
begin
  case RulerDir of
    rdHorizontal : ShowMessage( 'Horizontal ruler clicked at: ' + FloatToStr( Ps ));
    rdVertical   : ShowMessage( 'Vertical ruler clicked at: ' + FloatToStr( Ps ));
  end;
end;

---