Xojo Developer Conference
25/27th April 2018 in Denver.
MBS Xojo Conference
6/7th September 2018 in Munich, Germany.

MBS Xojo Plugin Tutorial Videos

ImageEditPanel Source

Note: The function DesktopFolder is deprecated in Xojo. 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




Links
MBS FileMaker Plugins