You find this example project in your Plugins Download as a Xojo project file within the examples folder: /Picture/Picture Combine Test
Class App Inherits Application
Const kEditClear = "&Löschen"
Const kFileQuit = "Beenden"
Const kFileQuitShortcut = ""
End Class
Class Window1 Inherits Window
Control Canvas1 Inherits Canvas
ControlInstance Canvas1 Inherits Canvas
End Control
Control Canvas2 Inherits Canvas
ControlInstance Canvas2 Inherits Canvas
End Control
Control Canvas3 Inherits Canvas
ControlInstance Canvas3 Inherits Canvas
End Control
Control Canvas4 Inherits Canvas
ControlInstance Canvas4 Inherits Canvas
End Control
EventHandler Sub Open()
Canvas1.Backdrop=test(24,32)
Canvas2.Backdrop=test(32,32)
Canvas3.Backdrop=test(24,24)
Canvas4.Backdrop=test(32,24)
End EventHandler
Function test(depth1 as integer, depth2 as integer) As Picture
const destx=101
const desty=101
dim l,q,p as Picture
// get the logo picture
l=LogoMBS(500)
// get the first picture
p = new Picture(500,500,depth1)
// get the second picture
q = new Picture(500,500,depth2)
// copy the logo to the first image
p.Graphics.DrawPicture l,0,0
// copy the first picture to the second picture
if not q.CombineMBS(p,nil,destx,desty,0,0,p.Width, p.Height,false) then
MsgBox "CombineMBS returns false."
end if
Return q
End Function
End Class
MenuBar MenuBar1
MenuItem FileMenu = "&Ablage"
MenuItem FileQuit = "#App.kFileQuit"
MenuItem EditMenu = "&Bearbeiten"
MenuItem EditUndo = "&Rückgängig"
MenuItem UntitledMenu1 = "-"
MenuItem EditCut = "&Ausschneiden"
MenuItem EditCopy = "&Kopieren"
MenuItem EditPaste = "&Einfügen"
MenuItem EditClear = "#App.kEditClear"
MenuItem UntitledMenu0 = "-"
MenuItem EditSelectAll = "&Alles auswählen"
End MenuBar