Set Display Properties

 

Compatibilities: Required Xtras: Buddy API

This item has not yet been rated

Set Screen Resolution and Depth

---- written for Director 8 --- ---- Kumar.K kumark@icode.com ---- -- custom properties -- property whereto,width_height,Mode_Change,force,color_Depth ------ Get Behavior Description List ------ on getPropertyDescriptionList me   set description = [:]   addProp description, #width_height, [#comment: "Set Screen Resolution To :" ,#format:#String,     #range:["640*480","800*600","1024*768","1280*1024"],#default:"800*600"]   addProp description, #color_Depth, [#comment: "Set Colour Depth To :" ,#format:#Integer,     #range:[8,16,24,32],#default:16]   addProp description, #Mode_Change, [#comment: "Set Mode of Change To :" ,#format:#String,     #range:["Permanent","Temporary","Test"],#default:"Permanent"]   addProp description, #force, [#comment: "Force the Windows to Change Properties :" ,#format:#Boolean,#default:True]   if the currentspritenum = 0 then     addProp description, #WhereTo, [#comment: "Where To Attach ?" ,#format:#String,     #range:["On EnterFrame","On ExitFrame"],#default:"On EnterFrame"]   else     addProp description, #WhereTo, [#comment: "Where To Attach ?" ,#format:#String,     #range:["On MouseUp","On MouseDown","On MouseEnter","On MouseLeave"],#default:"On MouseUp"]       end if     return description end getPropertyDescriptionList ------ Get Behavior Description List ------ -- Get Behavior description -- on getBehaviorDescription   return "This Behavior Adjusts Display Properties. " & RETURN & RETURN & "Please use this behavior only if the projector is created with *Show Tool Bar Option* if not it will yeild undesired output. " & RETURN & RETURN &   "This Behavior requires Buddy API Xtra to work, so please ensure You Have Buddy API Xtra." & RETURN & RETURN &   "Parameters" & RETURN &   "* Display properties." & RETURN &   "* Where to attach this Script" end -- Get Behavior description -- -- Events -- on EnterFrame me   if WhereTo = "On EnterFrame" then     SetDisplayProps   end if end EnterFrame on ExitFrame me   if WhereTo = "On EnterFrame" then     SetDisplayProps   end if end ExitFrame on MouseUp   if WhereTo = "On MouseUp" then     SetDisplayProps   end if end MouseUp on MouseDown   if WhereTo = "On MouseDown" then     SetDisplayProps   end if end MouseDown on MouseEnter   if WhereTo = "On MouseEnter" then     SetDisplayProps   end if end MouseEnter on MouseLeave   if WhereTo = "On MouseLeave" then     SetDisplayProps   end if end MouseLeave ------ Events ------ -- Set Display properties -- on SetDisplayProps   case width_height of     "640*480":       Wd=640       Hg=480     "800*600":       Wd=800       Hg=600     "1024*768":       Wd=1024       Hg=768     "1280*1024":       Wd=1280       Hg=1024   end case   case mode_change of     "Permanent":       mode="perm"     "Temporary":       mode="temp"     "Test":       mode="test"   end case   set leftofscreen = baWindowInfo( baWinHandle(), "left" )   set topofscreen = baWindowInfo( baWinHandle(), "top" )     set widthofscreen = baWindowInfo( baWinHandle(), "width" )   set heightofscreen = baWindowInfo( baWinHandle(), "height" )     set OK = baSetDisplay( Wd , Hg , color_Depth , Mode , force ) end -- Set Display properties --