Platforms to show: All Mac Windows Linux Cross-Platform
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 Mirror
This example is the version from Tue, 16th Sep 2019.
Project "Picture Mirror.xojo_binary_project"
FileTypes
Filetype text
Filetype all
End FileTypes
Class Window1 Inherits Window
Control PushButton1 Inherits PushButton
ControlInstance PushButton1 Inherits PushButton
EventHandler Sub Action()
dim p as Picture
dim t as integer
t=Ticks
p=pic.HMirrorMBS
t=Ticks-t
Title=str(t)
Canvas1.Backdrop=p
End EventHandler
End Control
Control Canvas1 Inherits Canvas
ControlInstance Canvas1 Inherits Canvas
End Control
Control PushButton2 Inherits PushButton
ControlInstance PushButton2 Inherits PushButton
EventHandler Sub Action()
dim p as Picture
dim t as integer
dim b as Boolean
p=pic.CloneMBS
t=Ticks
b=p.HMirrorPictureMBS
t=Ticks-t
Title=str(t)
if b then
Canvas1.Backdrop=p
else
Canvas1.Backdrop=nil
end if
End EventHandler
End Control
Control PushButton3 Inherits PushButton
ControlInstance PushButton3 Inherits PushButton
EventHandler Sub Action()
dim p as Picture
dim t as integer
t=Ticks
p=pic.VMirrorMBS
t=Ticks-t
Title=str(t)
Canvas1.Backdrop=p
End EventHandler
End Control
Control PushButton4 Inherits PushButton
ControlInstance PushButton4 Inherits PushButton
EventHandler Sub Action()
dim p as Picture
dim t as integer
dim b as Boolean
p=pic.CloneMBS
t=Ticks
b=p.VMirrorPictureMBS
t=Ticks-t
Title=str(t)
if b then
Canvas1.Backdrop=p
else
Canvas1.Backdrop=nil
end if
End EventHandler
End Control
Control PushButton5 Inherits PushButton
ControlInstance PushButton5 Inherits PushButton
EventHandler Sub Action()
dim p as Picture
dim t as integer
t=Ticks
p=pic.MirrorMBS
t=Ticks-t
Title=str(t)
Canvas1.Backdrop=p
End EventHandler
End Control
Control PushButton6 Inherits PushButton
ControlInstance PushButton6 Inherits PushButton
EventHandler Sub Action()
dim p as Picture
dim t as integer
dim b as Boolean
p=pic.CloneMBS
t=Ticks
b=p.MirrorPictureMBS
t=Ticks-t
Title=str(t)
if b then
Canvas1.Backdrop=p
else
Canvas1.Backdrop=nil
end if
End EventHandler
End Control
Control PushButton7 Inherits PushButton
ControlInstance PushButton7 Inherits PushButton
EventHandler Sub Action()
Canvas1.Backdrop=pic
End EventHandler
End Control
EventHandler Sub Open()
dim f as FolderItem
f=GetopenFolderItem("all")
if f=nil then
quit
end if
pic=f.OpenAsPicture.CloneMBS
End EventHandler
Property Protected pic As picture
End Class
MenuBar MenuBar1
MenuItem UntitledMenu1 = ""
MenuItem FileMenu = "&File"
MenuItem FileQuit = "Quit"
MenuItem UntitledMenu5 = ""
MenuItem EditMenu = "&Edit"
MenuItem EditUndo = "&Undo"
MenuItem UntitledMenu0 = "-"
MenuItem EditCut = "Cu&t"
MenuItem EditCopy = "&Copy"
MenuItem EditPaste = "&Paste"
MenuItem EditClear = "Clear"
MenuItem UntitledMenu4 = ""
MenuItem UntitledMenu3 = ""
MenuItem UntitledMenu2 = ""
End MenuBar
Class App Inherits Application
End Class
End Project
See also:
- /Picture/Picture Blending test
- /Picture/Picture blending/blend with mask
- /Picture/Picture Combine
- /Picture/Picture Copy Fast Test
- /Picture/Picture Difference
- /Picture/Picture Hash/Picture Hash
- /Picture/Picture Matrix/matrix with plugin
- /Picture/Picture Matrix/matrix without plugin
- /Picture/Picture to Binary Data Test
- /Picture/Picture To Memoryblock
The items on this page are in the following plugins: MBS Picture Plugin.