This is a simple script that will stretch the stage to attempt to fill the scree. This is a very basic example and will not scale text or field members.
--Copyright 1999 Chuck Neal
--chuck@mediamacros.com
--If you find this code helpful, send me an e-mail and let me know. :-)
global oldSettings
on goFullScreen me
if float(the DesktopRectList[1][3]) / the deskTopRectList[1][4] <> (640.0/480) then
oldSettings = [(the stage).rect, (the stage).drawRect]
(the stage).rect = the deskTopRectList[1]
(the stage).drawRect = the deskTopRectList[1]
end if
end
on returnScreen me
if listP(oldSettings) then
(the stage).rect = oldSettings[1]
(the stage).drawRect = oldSettings[2]
end if
end
on getBehaviorDescription me
describe = "This script allows you to enlarge the stage to full screen and stretches the cast members with it. Note that Text and Field members do not scale and this could slow performance."
return describe
end
Contact
MMI
36 South Court Sq
Suite 300
Newnan, GA 30263
USA