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.