Hi! I am making a movie where I want to reset the user's screen res to 680 X
480.So far I am able to achieve this if the user's screeen res is set to
1024 X 768, however, things go wrong if the resolution is set to any other
number, ie. either the movie size shrinks and all the text text appears in a
zoomed out form and nothing is readable, or the movie is not centered and
appears at the top left corner of the screen...any way, it does whatever it
feels like doing and its very infuriating.
Please tell me what to do.
TIA
-Dimple-
Here's the code i have used in my movie script....
global gScrHgt
global gScrWidth
global gScrDepth
global gCantBeSet
global gChanged
-- test & set the display size & depth
on preparemovie
--these commands help centre the movie
(the stage).rect = the deskTopRectList[1]
(the stage).drawrect = the deskTopRectList[1]
gScrHgt = baScreenInfo("height")
gScrWidth = baScreenInfo("width")
gScrDepth = baScreenInfo("depth")
--I have also tried using: if gscrwidth > 640 then ...
if gScrWidth <> 640 then
if gScrDepth < 16 then
gCantBeSet = baSetDisplay (640, 480, 16, "temp", false)
CheckChangeScreen
else
gCantBeSet = baSetDisplay (640, 480, gScrDepth, "temp", false)
CheckChangeScreen
end if
else
if gScrDepth < 16 then
gCantBeSet = baSetDisplay (gScrWidth, gScrHgt, 16, "temp", false)
CheckChangeScreen
else
gChanged = FALSE
gCantBeSet = FALSE
end if
end if
end
on checkchangescreen
if gscrWidth <> 640 or gscrDepth < 16 then
gchanged = TRUE
end if
end
on stopMovie
if gChanged then
baSetDisplay (gScrWidth, gScrHgt, gScrDepth, "temp", false)
end if
end
_________________________________________________________________________
Get Your Private, Free E-mail from MSN Hotmail at http://www.hotmail.com.
[To remove yourself from this list, or to change to digest mode, go to
http://www.penworks.com/LUJ/lingo-l.cgi To post messages to the list,
email [EMAIL PROTECTED] (Problems, email [EMAIL PROTECTED])
Lingo-L is for learning and helping with programming Lingo. Thanks!]
