Monkeybread Realbasic plugin - Example: /Picture/Picture Scale/Scale Test

Platforms to show: All Mac Windows Linux Cross-Platform

/Picture/Picture Scale/Scale Test
Feedback.

Function:
You find this example project in your Plugins Download as a Realbasic project file within the examples folder: /Picture/Picture Scale/Scale Test
This example is the version from Tue, 22th Dec 2008.
Notes: Last modified: Tue, 22th Dec 2008

Class Window1
Inherits Window
  // Properties
  Protected Dim antialias As boolean
  
  // Event implementations
  Sub Resized()
    run
  End Sub
  Function KeyDown(Key As String) As Boolean
    if asc(key)=32 then
      
      antialias=not antialias
      
      run
      
      Return true
      
    end if
  End Function
  Sub Open()
    antialias=true
    run
  End Sub
  
  // Methods
  Sub Run()
    dim p,p1 as Picture
    
    p=SpecialFolder.Desktop.IconImageMBS(128)
    if p=nil then
      p=SpecialFolder.Desktop.IconImageMBS(32)
    end if
    
    p1=p.ScaleMBS(Width,Height,antialias)
    
    Backdrop=p1
  End Sub
End Class

Class App
Inherits Application
End Class