Platforms to show: All Mac Windows Linux Cross-Platform
/Picture/Picture Scale/Scale Compare
Required plugins for this example: MBS Picture Plugin
You find this example project in your Plugins Download as a Xojo project file within the examples folder: /Picture/Picture Scale/Scale Compare
This example is the version from Thu, 16th Nov 2016.
Project "Scale Compare.xojo_binary_project"
Class Window1 Inherits Window
EventHandler Function KeyDown(Key As String) As Boolean
if asc(key)=32 then
if p1=Backdrop then
Backdrop=p2
else
Backdrop=p1
end if
Return true
end if
End EventHandler
EventHandler Sub Open()
dim p as Picture
p=SpecialFolder.Desktop.IconImageMBS(128)
p1=p.ScaleMBS(p.Width*8,p.Height*8,true)
Width=p1.Width
Height=p1.Height
Backdrop=p1
'p2=New Picture(p1.Width,p1.Height,32)
'p2.Graphics.DrawPicture p,0,0,p2.Width,p2.Height,0,0,p.Width,p.Height
p2=p.ScaleMBS(p.Width*8,p.Height*8,false)
End EventHandler
Property Protected p1 As picture
Property Protected p2 As picture
End Class
MenuBar Menu
MenuItem UntitledMenu3 = ""
MenuItem UntitledMenu2 = "File"
MenuItem FileQuit = "Quit"
MenuItem UntitledMenu0 = "Edit"
MenuItem EditUndo = "Undo"
MenuItem UntitledMenu1 = "-"
MenuItem EditCut = "Cut"
MenuItem EditCopy = "Copy"
MenuItem EditPaste = "Paste"
MenuItem EditClear = "Clear"
End MenuBar
Class App Inherits Application
End Class
End Project
See also:
- /Picture/Picture Blending test
- /Picture/Picture blending/blend with mask
- /Picture/Picture blending/blend without plugin
- /Picture/Picture Blur
- /Picture/Picture Matrix/matrix with plugin
- /Picture/Picture MinMax/mmx_demo
- /Picture/Picture MinMax/mmx_demo with plugin
- /Picture/Picture Mirror
- /Picture/Picture To Memoryblock
- /Picture/Picture To String
The items on this page are in the following plugins: MBS Picture Plugin.