I have a projector that works fine in all Win OS's except Windows 95. Seem that when it starts it starts minimized. If I take out some of the code that does (the stage).visible = 1, it will show up but if another application takes focus, my projector minimizes (disappears) and you can't refocus it from the task bar. I suspect that it's an easy fix, I'm just to new at Director Lingo to know what it is.
Here is my code from my Movie script.
Thanks,
-danny
+++++++++++++++++++++++++++++++++++++++++++++++++
global res
global tasksEnabled
global ok_to_switch
global currentMode
on preparemovie
if the runmode contains "projector" then
res = new(Xtra "Resolution","",""
currentMode = string(res.get_current_display_mode())
if currentMode contains "640" then
ok_to_switch = res.test_resolution(800,600,16)
if ok_to_switch then
res.set_resolution(800,600,16)
end if
end if
(the stage).visible = 1
res.center_stage()
end if
tasksEnabled = 1
end
on startMovie
returnToPlace("myFile"
end
on stopmovie
if the runmode contains "projector" then
res.reset_resolution()
res.enable_task_switching()
res = 0
end if
end
on deactivateApplication
if the runmode contains "projector" then
(the stage).visible = 0
end if
end deactivateApplication
on activateApplication
if the runmode contains "projector" then
(the stage).visible = 1
end if
end activateApplication
on savePlace filName,movName,frameName
-- Call right before opening Relaunch
-- Call with name of file to create - not a full path,
-- movie name to return to and frame label to return to.
--
-- EX: savePlace("myFile","cdr","news"
-- open the moviePath & "relaunch"
--
setPref filName, movName & "," & frameName
end
on returnToPlace filName
-- Call with name of file you created - not a full path.
--
-- EX: returnToPlace("MYFILE"
--
set returnPlace = getPref(filName)
if voidP(returnPlace) or (returnPlace = "" then
-- Not returning from Relaunch.
exit
else
set saveDelim = the itemDelimiter
set the itemDelimiter = ","
set theMovie = item 1 of returnPlace
set theFrame = item 2 of returnPlace
set the itemDelimiter = saveDelim
-- Reset so projector won't use this
-- info the next time it starts
setPref filName,""
go frame theFrame of movie theMovie
end if
end
Here is my code from my Movie script.
Thanks,
-danny
+++++++++++++++++++++++++++++++++++++++++++++++++
global res
global tasksEnabled
global ok_to_switch
global currentMode
on preparemovie
if the runmode contains "projector" then
res = new(Xtra "Resolution","",""
currentMode = string(res.get_current_display_mode())
if currentMode contains "640" then
ok_to_switch = res.test_resolution(800,600,16)
if ok_to_switch then
res.set_resolution(800,600,16)
end if
end if
(the stage).visible = 1
res.center_stage()
end if
tasksEnabled = 1
end
on startMovie
returnToPlace("myFile"
end
on stopmovie
if the runmode contains "projector" then
res.reset_resolution()
res.enable_task_switching()
res = 0
end if
end
on deactivateApplication
if the runmode contains "projector" then
(the stage).visible = 0
end if
end deactivateApplication
on activateApplication
if the runmode contains "projector" then
(the stage).visible = 1
end if
end activateApplication
on savePlace filName,movName,frameName
-- Call right before opening Relaunch
-- Call with name of file to create - not a full path,
-- movie name to return to and frame label to return to.
--
-- EX: savePlace("myFile","cdr","news"
-- open the moviePath & "relaunch"
--
setPref filName, movName & "," & frameName
end
on returnToPlace filName
-- Call with name of file you created - not a full path.
--
-- EX: returnToPlace("MYFILE"
--
set returnPlace = getPref(filName)
if voidP(returnPlace) or (returnPlace = "" then
-- Not returning from Relaunch.
exit
else
set saveDelim = the itemDelimiter
set the itemDelimiter = ","
set theMovie = item 1 of returnPlace
set theFrame = item 2 of returnPlace
set the itemDelimiter = saveDelim
-- Reset so projector won't use this
-- info the next time it starts
setPref filName,""
go frame theFrame of movie theMovie
end if
end