Example: /GraphicsMagick/GraphicsMagick/MontageTest

Online Documentation   -   Statistics   -   FAQ   -   Plugin Parts (All, Dependencies)   -   Class hierarchy

New in Version 22.2 22.3 22.4 22.5 23.0 23.1 23.2 23.3 23.4 23.5 24.0 24.1

The list of the   topics,   classes,   interfaces,   controls,   modules,   global methods by category,   global methods by name,   screenshots,   licenses   and   examples.

Platforms to show: All Mac Windows Linux Cross-Platform

/GraphicsMagick/GraphicsMagick/MontageTest


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

You find this example project in your Plugins Download as a Xojo project file within the examples folder: /GraphicsMagick/GraphicsMagick/MontageTest

This example is the version from Thu, 3rd Feb 2016.

Project "MontageTest.xojo_binary_project"
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
End Project

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


💬 Ask a question or report a problem