Platforms to show: All Mac Windows Linux Cross-Platform

/GraphicsMagick/ImageMagick7/ImageMagick 7 List Magicks


Required plugins for this example: MBS GraphicsMagick Plugin

You find this example project in your Plugins Download as a Xojo project file within the examples folder: /GraphicsMagick/ImageMagick7/ImageMagick 7 List Magicks

This example is the version from Sun, 9th May 2020.

Project "ImageMagick 7 List Magicks.xojo_binary_project"
Class App Inherits Application
Const kEditClear = "&Delete"
Const kFileQuit = "&Quit"
Const kFileQuitShortcut = ""
EventHandler Sub Open() #If TargetMacOS Then Dim f As FolderItem = GetFolderItem("libMagickCore-7.Q16HDRI.7.dylib") If ImageMagick7MBS.LoadLibraryFile(f) Then 'MsgBox "loaded" Else MsgBox "failed to load: "+ImageMagick7MBS.LoadErrorString End If #Else If ImageMagick7MBS.LoadLibrary("CORE_RL_MagickCore_.dll") Then 'MsgBox "loaded" Else MsgBox "failed to load: "+ImageMagick7MBS.LoadErrorString End If #EndIf End EventHandler
End Class
Class MainWindow Inherits Window
Control List Inherits Listbox
ControlInstance List Inherits Listbox
End Control
EventHandler Sub Open() Dim list As IMMagickInfoList7MBS = ImageMagick7MBS.MagickInfoList For i As Integer = 0 To list.Count-1 Dim m As IMMagickInfo7MBS = list.Item(i) Self.list.AddRow m.ModuleName, m.Name, m.MimeType, m.Version, m.Description Next 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

See also:

The items on this page are in the following plugins: MBS GraphicsMagick Plugin.


The biggest plugin in space...