Platforms to show: All Mac Windows Linux Cross-Platform
/GraphicsMagick/GraphicsMagick/GMDescribe
You find this example project in your Plugins Download as a Xojo project file within the examples folder: /GraphicsMagick/GraphicsMagick/GMDescribe
This example is the version from Wed, 25th Jul 2023.
Project "GMDescribe.xojo_binary_project"
Class App Inherits DesktopApplication
Const kEditClear = "&Delete"
Const kFileQuit = "&Quit"
Const kFileQuitShortcut = ""
End Class
Class Window1 Inherits DesktopWindow
Control Canvas1 Inherits DesktopCanvas
ControlInstance Canvas1 Inherits DesktopCanvas
End Control
Control V1 Inherits DesktopTextArea
ControlInstance V1 Inherits DesktopTextArea
End Control
Control V0 Inherits DesktopTextArea
ControlInstance V0 Inherits DesktopTextArea
End Control
Control V2 Inherits DesktopTextArea
ControlInstance V2 Inherits DesktopTextArea
End Control
Control T_v0 Inherits DesktopLabel
ControlInstance T_v0 Inherits DesktopLabel
End Control
Control T_v1 Inherits DesktopLabel
ControlInstance T_v1 Inherits DesktopLabel
End Control
Control T_v2 Inherits DesktopLabel
ControlInstance T_v2 Inherits DesktopLabel
End Control
Control Image Inherits DesktopButton
ControlInstance Image Inherits DesktopButton
EventHandler Sub Pressed()
Var dlg As New OpenFileDialog
dlg.ActionButtonCaption = "Select File"
dlg.CancelButtonCaption = "Cancel"
dlg.Title = "Select File"
dlg.PromptText = "Choose an image"
dlg.InitialFolder = SpecialFolder.Desktop
dlg.AllowMultipleSelections = False
Var f As FolderItem = dlg.ShowModal
If f<>Nil Then
Dim gm As New GMImageMBS (f)
V0.Text = gm.Describe(0)
V1.Text = gm.Describe(1)
V2.Text = gm.Describe(2)
gm.scale New GMGeometryMBS(130,130)
Canvas1.Backdrop = gm.CopyPicture
End If
End EventHandler
End Control
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"
MenuItem HelpMenu = "&Help"
End MenuBar
End Project
The items on this page are in the following plugins: MBS GraphicsMagick Plugin.
