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

Platforms to show: All Mac Windows Linux Cross-Platform

/Picture/Picture Combine Test
Feedback.

Function:
You find this example project in your Plugins Download as a Realbasic project file within the examples folder: /Picture/Picture Combine Test
This example is the version from Wed, 6th Jan 2009.
Notes: Last modified: Wed, 6th Jan 2009

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

Class Window1
Inherits Window
  // Controls
  ControlInstance
  End ControlInstance
  ControlInstance
  End ControlInstance
  ControlInstance
  End ControlInstance
  ControlInstance
  End ControlInstance
  
  // Event implementations
  Sub Open()
    Canvas1.Backdrop=test(24,32)
    Canvas2.Backdrop=test(32,32)
    Canvas3.Backdrop=test(24,24)
    Canvas4.Backdrop=test(32,24)
    
    
  End Sub
  
  // Methods
  Function test(depth1 as integer, depth2 as integer) As Picture
    const destx=101
    const desty=101
    
    dim l,q,p as Picture
    
    // get the logo picture
    l=LogoMBS(500)
    
    // get the first picture
    p=NewPicture(500,500,depth1)
    // get the second picture
    q=NewPicture(500,500,depth2)
    
    // copy the logo to the first image
    p.Graphics.DrawPicture l,0,0
    
    // copy the first picture to the second picture
    if not q.CombineMBS(p,nil,destx,desty,0,0,p.Width, p.Height,false) then
      MsgBox "CombineMBS returns false."
    end if
    
    Return q
    
  End Function
End Class