thanx Kerry, you're a genius! I finally got the code to work:)


>From: Kerry Thompson <[EMAIL PROTECTED]>
>Reply-To: [EMAIL PROTECTED]
>To: [EMAIL PROTECTED]
>Subject: Re: <lingo-l> ARGGGGHHH!......pls help!
>Date: Mon, 07 May 2001 07:09:26 -0700
>
>
>>If it is 600X480 then I want to continue else I would like to change the
>>settings to 600 X 480. When the user clicks the exit button I would like
>>to reset the settings to what they were when the movie was launched i.e.
>>to the user's screen resolution.
>
>You need an Xtra for this--Buddy API. Check it at www.mods.com.au.
>
>Here's some code to set the resolution:
>
>global gScrHgt
>global gScrWidth
>global gScrDepth
>global gCantBeSet
>global gChanged
>
>   -- test & set the display size & depth
>   gScrHgt = baScreenInfo("height")
>   gScrWidth = baScreenInfo("width")
>   gScrDepth = baScreenInfo("depth")
>   if gScrWidth < 800 then
>     if gScrDepth < 16 then
>       gCantBeSet = baSetDisplay (800, 600, 16, "temp", false)
>       CheckChangeScreen
>     else
>       gCantBeSet = baSetDisplay (800, 600, 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
>
>then to reset it:
>
>on stopMovie
>   if gChanged then
>     baSetDisplay (gScrWidth, gScrHgt, gScrDepth, "temp", false)
>   end if
>end
>
>
>>How to check whether a specific application is installed on a users 
>>system.
>
>I think you need another Xtra, MasterApp, for that. I haven't used it much,
>though, so I can't give you any example code. Check the archives,
>though--there was a thread about that within the last month.
>
>>Cordially,
>
>
>Kerry Thompson
>
>
>[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!]
>

_________________________________________________________________________
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!]

Reply via email to