TRulerBox.OnRulerPosChange
Declaration
property OnRulerPosChange: TRulerGripPosChangeEvent;
Description
Occurs when
ViewPos changes.
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;