ImageEn, unit imageenview

TImageEnView.OnRulerGripPosChange

TImageEnView.OnRulerGripPosChange


Declaration

property OnRulerGripPosChange: TRulerGripPosChangeEvent;


Description

Occurs when a grip is moved on a ruler.


Example

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