Xojo Developer Conference
Join us from 25th to 27th April 2018 in Denver.

MBS Real Studio Plugin Tutorial Videos

ScreenRecording Source

Note: The function DesktopFolder is deprecated in Real Studio. You can replace it with SpecialFolder.desktop.

Class App
Inherits Application
// Constants
Const kFileQuitShortcut = Ctrl+Q
Const kFileQuit = E&xit
Const kEditClear = &Delete
End Class

Class Window1
Inherits Window
// Controls
ControlInstance
Sub Action() Handles Event
timer1.mode=2
End Sub
End ControlInstance
ControlInstance
Sub Action() Handles Event
timer1.mode=0
End Sub
End ControlInstance
ControlInstance
Sub Action() Handles Event
dim p as Picture

p=ScreenshotMBS

track.AppendPicture p

End Sub
End ControlInstance

// Properties
Dim mov As editableMovie
Dim track As qtvideotrack

// Event implementations
Sub Open()
dim f as FolderItem
dim e as EditableMovie
dim s as Screen
dim t as QTVideoTrack

s=Screen(0)

f=DesktopFolder.Child("test.mov")
e=f.CreateMovie
t=e.NewVideoTrack(s.Width, s.Height, 10) // 10 pictures per second

call t.SelectCompressionSettings

track=t
mov=e
End Sub
Sub Close()
track=nil
mov=nil


End Sub
End Class


All movies




Links
MBS FileMaker Plugins