Interested in a training?
Contact us for a trainings and events or meet us at Real World in Orlando, Florida.

MBS Real Studio Plugin Tutorial Videos

ImageEditPanel Source

Note: The function DesktopFolder is deprecated in Real Studio. You can replace it with SpecialFolder.desktop.

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

Class Window1
Inherits Window
  // Properties
  Dim pic As picture
  Dim panel As myimageEditPanel
  
  // Event implementations
  Sub Paint(g As Graphics)
    g.DrawPicture pic,0,0
  End Sub
  Sub Open()
    dim f as FolderItem
    
    f=DesktopFolder.Child("P9130015.JPG")
    
    pic=f.OpenAsPicture
    
    panel=new MyImageEditPanel
    panel.left=me.left+me.Width+20
    panel.top=screen(0).Height-me.top-panel.Height
    panel.show
    
  End Sub
End Class

Class MyImageEditPanel
Inherits IKImageEditPanelMBS
  // Event implementations
  Function Image() As picture
    Return window1.pic
    
  End Function
  Sub Changed(pic as picture)
    window1.pic=pic
    window1.Refresh
  End Sub
End Class

All movies

Loading


Links
MBS Realbasic tutorial videos - JUZ Nickenich