Set Screen Size

 

Compatibilities: Required Xtras: Buddy API

Rating:

Set Screen Size

--Code by Chuck Neal --Chuck@mediamacros.coc on setScreen whatWidth, whatHeight, whatDepth   global gRes, gColor, gChanged      if baScreenInfo( "depth" ) >= whatDepth and baScreenInfo( "height" ) >= whatHeight and  baScreenInfo( "width" ) >= whatWidth then     set gChanged = False   else         set OK = baSetDisplay( whatWidth , whatHeight , whatDepth , "test" , false )         if ok = 0 then       set gChanged = True       set gColor = the colorDepth       set myTall = getat(getat(the desktoprectlist,1),4)       set myWide = getat(getat(the desktoprectlist,1),3)       set gRes = [myWide, myTall]       baSetDisplay( whatWidth , whatHeight , whatDepth , "temp" , false )     else       alert "This Presentation is created to run in " & string(whatDepth) & "-bit color or greater and a resolution of " & string(whatwidth) & "X" & string(whatHeight) & "."             set Answer = baMsgBox( "Do you want to continue with your existing settings? Click yes to continue, or no to exit and reset your settings manualy.", "Continue?" , "YesNo", "Question" , 2 )       if Answer = "No" then         quit       else         nothing       end if       set gChanged = False     end if   end if   end