Scroll event example for Delphi

This example demonstrates the Scroll event.

procedure TForm1.LEADRasterView1Scroll (Sender: TObject);
begin
   //Add a TextBox control to your form and use it for this test
   Edit1.Text := 'Image origin: ' + IntToStr(Trunc(LEADRasterView1.DstLeft))
                 + ', ' + IntToStr(Trunc(LEADRasterView1.DstTop));
   Edit1.Refresh( ) ;

end;