Get some QuickTime 7 Pro functionality for free in your QuickTime 7
You don't actually need to get Quicktime 7 to get all its functionalities.
Some of them can be conquered with simple AppleScript.
Movie plays in fullscreen:
on run
tell application "QuickTime Player"
activate
present movie 1
end tell
end run
Audio recording:
tell application "QuickTime Player"
activate
new audio recording
end tell
Video recording:
tell application "QuickTime Player"
activate
new movie recording
end tell
Voila'! They work correctly in QuickTime 7 non-Pro version. :)
And this works in Quicktime 6 as well:
on open theMovie
tell application "QuickTime Player"
activate
set request to display dialog "Select a scaling, fool!" with icon ¬
note buttons {"normal", "double", "screen"} default button "screen"
if button returned of request is "normal" then
open theMovie
present movie 1 scale normal
else if button returned of request is "double" then
open theMovie
present movie 1 scale double
else if button returned of request is "screen" then
open theMovie
present movie 1 scale screen
end if
end tell
end open
Save that as an application, and drag the file you want to see as a full screen movie to that application.
Some of them can be conquered with simple AppleScript.
Movie plays in fullscreen:
on run
tell application "QuickTime Player"
activate
present movie 1
end tell
end run
Audio recording:
tell application "QuickTime Player"
activate
new audio recording
end tell
Video recording:
tell application "QuickTime Player"
activate
new movie recording
end tell
Voila'! They work correctly in QuickTime 7 non-Pro version. :)
And this works in Quicktime 6 as well:
on open theMovie
tell application "QuickTime Player"
activate
set request to display dialog "Select a scaling, fool!" with icon ¬
note buttons {"normal", "double", "screen"} default button "screen"
if button returned of request is "normal" then
open theMovie
present movie 1 scale normal
else if button returned of request is "double" then
open theMovie
present movie 1 scale double
else if button returned of request is "screen" then
open theMovie
present movie 1 scale screen
end if
end tell
end open
Save that as an application, and drag the file you want to see as a full screen movie to that application.
0 Comments:
Post a Comment |
<< Home