#Region Project Attributes
#MainFormWidth: 600
#MainFormHeight: 600
'#JavaCompilerPath: 26, D:\jdk26\bin\javac.exe
#End Region
Sub Process_Globals
Private fx As JFX
Private MainForm As Form
Private xui As XUI
Private Button1 As B4XView
Private ImageView1 As ImageView
Private img As Image
Private rect As JavaObject
End Sub
Sub AppStart (Form1 As Form, Args() As String)
MainForm = Form1
MainForm.RootPane.LoadLayout("Layout1")
MainForm.Show
img.Initialize("C:/temp","Whole_world_-_land_and_oceans_12000.jpg")
Log(img.Width & " x " & img.Height)
rect.InitializeNewInstance("javafx.geometry.Rectangle2D",Array(12000.0,6000.0,1000.0,1000.0))
ImageView1.SetImage(img)
ImageView1.As(JavaObject).RunMethod("setViewport",Array(rect))
End Sub
Sub Button1_Click
' move viewport and tell imageview to use it
rect.InitializeNewInstance("javafx.geometry.Rectangle2D",Array(12500.0,6000.0,1000.0,1000.0))
ImageView1.As(JavaObject).RunMethod("setViewport",Array(rect))
End Sub