ImageEn, unit imageenview

TImageEnView.OnRulerClick

TImageEnView.OnRulerClick


Declaration

property OnRulerClick: TRulerClickEvent;


Description

Occurs when the user clicks on a ruler.


Example

procedure TForm1.ImageEnView1RulerClick(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;