Platforms to show: All Mac Windows Linux Cross-Platform

/LargePicture/PictureMBS drawing
Feedback.

Function:
You find this example project in your Plugins Download as a Realbasic project file within the examples folder: /LargePicture/PictureMBS drawing
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
  // Properties
  Dim p As PictureMBS
  Private Dim logo As picture
  
  // Event implementations
  Sub Open()
    p=new PictureMBS(500,500,PictureMBS.ImageFormatRGB)
    p.FillRect(0) // fill all with black
    
    Backdrop=p.CopyPicture
    
    logo=LogoMBS(200)
    
    
  End Sub
  Function MouseDown(X As Integer, Y As Integer) As Boolean
    
    
    p.FillRect(0) // fill all with black
    
    // this clips to the bounds of the p object
    p.DrawPictureRGB(logo, x-logo.Width/2, y-logo.Height/2, logo.Width, logo.Height)
    
    Backdrop=p.CopyPicture
    
  End Function
End Class

See also:



Links
MBS REALbasic Plugins - Bilder aus Nickenich