Monkeybread Realbasic plugin - Example: /LargePicture/PictureMBS display huge picture

Platforms to show: All Mac Windows Linux Cross-Platform

/LargePicture/PictureMBS display huge picture
Feedback.

Function:
You find this example project in your Plugins Download as a Realbasic project file within the examples folder: /LargePicture/PictureMBS display huge picture
This example is the version from Tue, 18th Jan 2010.
Notes: Last modified: Tue, 18th Jan 2010

Class App
Inherits Application
  // Constants
  Const kFileQuitShortcut = Ctrl+Q
  Const kFileQuit = E&xit
  Const kEditClear = &Delete
End Class

Class Window1
Inherits Window
  // Controls
  ControlInstance
  End ControlInstance
  ControlInstance
    Sub Action() Handles Event
      dim f as FolderItem
      f=GetopenFolderItem(FileTypes.Png)
      if f<>Nil then
        Current=nil
        dim p as new PNGReaderMBS
        if p.OpenFile(f) then
          if p.ApplyOptions(0) then
            Current=new PictureMBS(p.Width,1000,PictureMBS.ImageFormatRGB)
            dim i,c as integer
            
            // ignore 4500 lines
            for i=1 to 4500
              call p.ReadRow()
            next
            
            // read next 1000 lines
            for i=0 to 999
              Current.RowInFormat(i, PictureMBS.ImageFormatRGBA)=p.ReadRow()
            next
            
            // display with x=7000
            Canvas1.Backdrop=current.CopyPicture(7000,0,1000,1000)
            
          end if
        end if
        
      end if
      
    End Sub
  End ControlInstance
  
  // Properties
  Dim Current As PictureMBS
  
  // Event implementations
  Sub Open()
    self.Maximize
  End Sub
  Sub Close()
    quit
  End Sub
End Class