You find this example project in your Plugins Download as a Xojo project file within the examples folder: /GraphicsMagick/GraphicsMagick/MontageTest
Class App Inherits Application
Const kEditClear = "&Delete"
Const kFileQuit = "&Quit"
Const kFileQuitShortcut = ""
End Class
Class MainWindow Inherits Window
Control btnAddFrame Inherits PushButton
ControlInstance btnAddFrame Inherits PushButton
EventHandler Sub Action()
// make picture
dim logo as Picture = LogoMBS(500)
dim img as New GM16ImageMBS(logo)
img.label("Sample label")
// Put the current image into the array
StackingFrames.insert(img)
// show result
dim resultImages as GM16ImageArrayMBS = StackingFrames.montageImages(StackingMontage)
dim pic As GM16ImageMBS = resultImages.Image(0)
'cvsStackingThumbs.Height = pic.height
'cvsStackingThumbs.Width = pic.width
'cvsStackingThumbs.Backdrop = pic.CopyPicture
Self.Backdrop = pic.CopyPicture
End EventHandler
End Control
EventHandler Sub Open()
// build montage
StackingMontage = New GM16MontageMBS
StackingMontage.backgroundColor = New GM16ColorMBS(&cE7E7E7)
StackingMontage.fillColor = New GM16ColorMBS(&c000000)
StackingMontage.tile = New GM16GeometryMBS("3x3")
StackingMontage.geometry = New GM16GeometryMBS("160x120+5+5")
#if TargetWin32 then
StackingMontage.font = "Arial"
#else
StackingMontage.font = "Helvetica"
#endif
StackingMontage.pointSize = 12
StackingMontage.title = "Title goes here"
// make picture
dim logo as Picture = LogoMBS(500)
dim img as New GM16ImageMBS(logo)
img.label("Sample label")
// Put the current image into the array
StackingFrames = new GM16ImageArrayMBS
StackingFrames.insert(img)
// show result
dim resultImages as GM16ImageArrayMBS = StackingFrames.montageImages(StackingMontage)
Self.Backdrop = resultImages.Image(0).CopyPicture
End EventHandler
Property Private StackingFrames As GM16ImageArrayMBS
Property Private StackingMontage As GM16MontageMBS
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