Monkeybread Xojo plugin - Example: /Picture/Picture to Binary Data Test

Platforms to show: All Mac Windows Linux Cross-Platform

/Picture/Picture to Binary Data Test

Required plugins for this example: MBS Main Plugin, MBS Picture Plugin

You find this example project in your Plugins Download as a Xojo project file within the examples folder: /Picture/Picture to Binary Data Test

This example is the version from Wed, 16th May 2017.

Project "Picture to Binary Data Test.xojo_binary_project"

Class App Inherits Application

Const kEditClear = "&Delete"

Const kFileQuit = "&Quit"

Const kFileQuitShortcut = ""

End Class

Class TestWindow Inherits Window

Control Canvas1 Inherits Canvas

ControlInstance Canvas1 Inherits Canvas

End Control

Control TextArea1 Inherits TextArea

ControlInstance TextArea1 Inherits TextArea

End Control

Control Canvas2 Inherits Canvas

ControlInstance Canvas2 Inherits Canvas

End Control

EventHandler Sub Open() dim p as Picture = LogoMBS(200) canvas1.Backdrop = p dim s as string = PictureToBinaryStringMBS(p) dim q as Picture = BinaryStringtoPictureMBS(s) canvas2.Backdrop = q if s.Encoding = nil then s = DefineEncoding(s, Encodings.ISOLatin1) end if TextArea1.text= s End EventHandler

End Class

MenuBar MainMenuBar

MenuItem FileMenu = "&File"

MenuItem FileQuit = "#App.kFileQuit"

MenuItem EditMenu = "&Edit"

MenuItem EditUndo = "&Undo"

MenuItem EditSeparator1 = "-"

MenuItem EditCut = "Cu&t"

MenuItem EditCopy = "&Copy"

MenuItem EditPaste = "&Paste"

MenuItem EditClear = "#App.kEditClear"

MenuItem EditSeparator2 = "-"

MenuItem EditSelectAll = "Select &All"

End MenuBar

End Project