MojoX – ScrollView for displaying large images

[RatchetParticipant]

I want to add a ScrollView to my App to display large images. For example the main window is only 1280 x 800 but the image is 1920 x 1080. But how to set the ScrollView’s inner size to scroll?

Are there any more mojox samples then the calculator and Ted2?

[codifiesParticipant]

There could be loads more mojox examples, and I’m not sure I’d be satisfied, if you get a solution be sure to post it here…

[RatchetParticipant]

The trick is to create a view, set its MinSize/MaxSize properties and pass it to the ScrollView:

Monkey

Local Workspace := New View Workspace.MinSize = New Vec2i(800, 600) Local Scroll := New ScrollView(Workspace)

1 2 3

Local Workspace := New View Workspace.MinSize = New Vec2i(800, 600) Local Scroll := New ScrollView(Workspace)

[Mark SiblyKeymaster]

Mojox is missing an image view – here’s a quick replacement for now:

Monkey

#Import "<std>" #Import "<mojo>" #Import "<mojox>" #Import "planet.png" 'NOTE: From shoot-out banana. Using std.. Using mojo.. Using mojox.. Class ImageView Extends View Method New( image:Image=Null ) Layout="float" Image=image End Property Image:Image() Return _image Setter( image:Image ) _image=image End Protected Method OnMeasure:Vec2i() Override Return _image ? _image.Rect.Size Else New Vec2i( 16 ) End Method OnRender( canvas:Canvas ) Override If _image canvas.DrawImage( _image,0,0 ) End Private Field _image:Image End Class MyWindow Extends Window Field _scrollView:ScrollView Field _imageView:ImageView Method New() Super.New( "Simple Mojo Gui App",640,480,WindowFlags.Resizable ) _scrollView=New ScrollView _imageView=New ImageView _scrollView.ContentView=_imageView ContentView=_scrollView _imageView.Image=Image.Load( "asset::planet.png" ) End End Function Main() New AppInstance New MyWindow App.Run() End

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68

#Import "<std>" #Import "<mojo>" #Import "<mojox>"   #Import "planet.png" 'NOTE: From shoot-out banana.   Using std.. Using mojo.. Using mojox..   Class ImageView Extends View   Method New( image:Image=Null ) Layout="float" Image=image End Property Image:Image() Return _image Setter( image:Image ) _image=image End Protected Method OnMeasure:Vec2i() Override Return _image ? _image.Rect.Size Else New Vec2i( 16 ) End Method OnRender( canvas:Canvas ) Override If _image canvas.DrawImage( _image,0,0 ) End Private Field _image:Image End   Class MyWindow Extends Window   Field _scrollView:ScrollView Field _imageView:ImageView   Method New() Super.New( "Simple Mojo Gui App",640,480,WindowFlags.Resizable ) _scrollView=New ScrollView _imageView=New ImageView _scrollView.ContentView=_imageView ContentView=_scrollView _imageView.Image=Image.Load( "asset::planet.png" ) End   End   Function Main()   New AppInstance New MyWindow App.Run() End

[Author]

Posts