TRulerBox.OnRulerPosChange

Declaration

property OnRulerPosChange: TRulerGripPosChangeEvent;

Description

Occurs when ViewPos changes.

Example

procedure TForm1.RulerPosChange(Sender: TObject; RulerDir: TRulerDir; Grip: Integer; NewPos: Double);
begin
  case RulerDir of
    rdHorizontal : ShowMessage( Format( 'Grip %d moved on horizontal ruler', [ Grip ]));
    rdVertical   : ShowMessage( Format( 'Grip %d moved on vertical ruler', [ Grip ]));
  end;
end;

See Also

◼ViewPos
◼GripsPos
◼OnRulerGripClick

---