ImageEn, unit imageenview

TImageEnView.OnRulerGripClick

TImageEnView.OnRulerGripClick


Declaration

property OnRulerGripClick: TRulerGripClickEvent;


Description

Occurs when the user clicks a grip on a ruler.


Example

procedure TForm1.ImageEnView1RulerGripClick(Sender: TObject; RulerDir: TRulerDir; Grip: integer; GripPos: Double);
begin
  case RulerDir of
    rdHorizontal : ShowMessage( format( 'Grip %d clicked on horizontal ruler', [ Grip ]));
    rdVertical   : ShowMessage( format( 'Grip %d clicked on vertical ruler', [ Grip ]));
  end;
end;