Movie → Object

EditableMovie Class

Used to create, manipulate, and save QuickTime movies.

Properties
Duration | Poster | TimeScale
EOF | SaveOnClose | TimeValue
Handle | SelLength | TrackCount
Picture | SelStart | UserData
Position | TimeDuration |

Methods
AppendMovieSegment | InsertMovieSegment | SetRedoEditState
Clear | NewSoundTrack | SetUndoEditState
CommitChanges | NewVideoTrack | SoundTrack
Copy | Paste | Track
Cut | RestoreRedoEditState | VideoTrack
DataSize | RestoreUndoEditState |
Flatten | ScaleMovieSegment |

# Notes

Since EditableMovie is subclassed from Movie, you can view an EditableMovie using the MoviePlayer control.

The TimeScale parameter defines the number of time units that pass each second. For example, a TimeScale value of 60 sets the timescale in sixtieths of a second. The TimeValue and TimeDuration parameters are expressed in TimeScale units.

The Position or the TimeValue properties can be used to position the movie; at that point, the Picture property contains the image at that point in the movie.

# Examples

The following PushButton Action opens an existing movie as an EditableMovie. It updates the ImageWell and EditField with the current picture and position of the movie.

Dim f as FolderItem
Dim m as EditableMovie
f= GetFolderItem("Honey.Mov")
m=f.OpenEditableMovie
m.position=movieplayer1.position
ImageWell1.image=m.picture
Imagewell2.image=m.poster
EditField1.text=str(m.position)

The following example opens an existing movie as an EditableMovie and displays it in a MoviePlayer control named ThePlayer.

Dim f As FolderItem
Dim theEMovie as EditableMovie
f= GetOpenFolderItem("video/quicktime") //defined as a file type
If f <> Nil and f.exists then
theEMovie=f.OpenEditableMovie
If theEMovie<> Nil then
ThePlayer.movie=theEMovie
end if
end if

The following example creates a new video track from two pictures, p1 and p2, that have been dragged into the Project Editor.

Dim sequence as QTEffectSequence
Dim i,effectID as Integer
Dim theEffect as QTEffect
Dim track as QTVideoTrack
Dim m as EditableMovie
Dim f as FolderItem
f= GetFolderItem("Movie")
m=f.CreateMovie
If radiobutton1.value then
theEffect= GetQTCrossFadeEffect
else
theEffect= GetQTSMPTEEffect( Val(EffectsList.cell(EffectsList.ListIndex,1)))
end if
sequence= New QTEffectSequence(theEffect,p1,p2,96)
track=m.NewVideoTrack(p1.width, p1.height, 32)

# See Also

FolderItem, QTTrack, QTUserData, QTVideoTrack classes.