MBS Xojo Plugin Tutorial Videos
ImageCapture Source
Deprecated: The each() function is deprecated. This message will be suppressed on further calls in /kunden/macsw.de/webseiten/monkeybreadsoftware-video/rbformat/rbcode.php on line 244
Class App
Inherits Application
// Constants
Const kFileQuitShortcut = Ctrl+Q
Const kFileQuit = E&xit
Const kEditClear = &Delete
// Event implementations
Sub Open()
dim flags as integer = ImageCaptureObjectMBS.kICAAllowMultipleImages
dim types(-1) as string
dim m as new ImageCaptureMBS
types.Append "tif"
types.Append "tiff"
types.append "jpg"
types.append "png"
dim files(-1) as string = m.ImportImage(flags, types)
for each data as string in files
ShowPicture data
next
End Sub
// Methods
Sub ShowPicture(data as string)
dim p as Picture = JPEGStringToPictureMBS(data, true)
if p = nil then
p = TIFFStringToPictureMBS(data)
if p = nil then
p = PNGStringToPictureMBS(data, 0)
end if
end if
if p<>nil then
dim pw as new PicWindow
pw.Backdrop=p
pw.width = min(p.Width, screen(0).AvailableWidth - pw.left)
pw.height = min(p.Height, screen(0).AvailableHeight - pw.top)
pw.show
else
MsgBox "Got a picture, but failed to decode it."
end if
End Sub
End Class
Class PicWindow
Inherits Window
End Class
Links
MBS Xojo Plugins