Hi Stephen,
I use ScrnXtra with FilIO in 8.0 and it works great.
Modify this and I hope it will solve your problem.
Excuce for the swedish and multiLang in the script
/ Tony
_______________
-- Put this in the moviescritr:
member("left").text = "0"
member("top").text = "0"
member("right").text = "800"
member("bottom").text = "525"
_______________
-- Specifi the picturename
global gFile, gLang
-- Display filesave dialog
--
-- Purpose: Uses FileIO to display a file save dialog
-- and puts the chosen path in a field
--
-- Usage: Drop behavior on a button sprite
--
-- Requires: FileIO Xtra and a field to store the path.
-- Field does not have to be on stage.
--
-- myField: name of field storing path
-- dialogTitle: title to display at top of save dialog
-- defaultFilename: default saved file name to display in dialog
--
property myField,dialogTitel,defaultFilenamn
on mouseUp me
angeProNamn
member("returnmessage").text = ""
-- if not xtraExists("fileio") then exit
set gFile = new(xtra "fileio")
if not objectP(gFile) then exit
proNamn = member("kundnamn").text
-- put proNamn into defaultFilenamn
if gLang = "sve" then
dialogTitel = "Ange ett bildnamn. Se (?) "
defaultFilenamn = proNamn
else
dialogTitel = "Specify a picturename. See (?) "
defaultFilenamn = proNamn
end if
set thePath = displaySave(gFile,dialogTitel,defaultFilenamn)
langd = thePath.length - 4
if the machinetype = 256 then
foo = ".bmp"
put thePath.char[1..langd] & foo into field myField
else
foo = ".pct"
put thePath & foo into field myField
end if
if member("bildnamn").text.length < 5 then -- cansel om endast foo
go to frame "hisskorg_artnr"
else
go to frame "ta_bild"
end if
set gFile = 0
end
on mouseEnter me
cursor 280
end if
end
on mouseLeave me
cursor -1
end if
end
-- on xtraExists theName
-- set n = the number of xtras
-- repeat with x = 1 to n
-- if the name of xtra x = theName then
-- return TRUE
-- end if
-- end repeat
-- return FALSE
-- end
on getPropertyDescriptionList me
set retlist = [:]
set sublist = [:]
addProp sublist,#comment,"Field-namn f�r lagring av s�kv�g:" --"Field name
to store path:"
addProp sublist,#format,#string
addProp sublist,#default,"Filepath"
addProp retList,#myField,duplicate(sublist)
set sublist = [:]
addProp sublist,#comment,"Dialog titel:"
addProp sublist,#format,#string
addProp sublist,#default,"Spara dokumentet som:" -- "Save this document
as:"
addProp retList,#dialogTitel,duplicate(sublist)
set sublist = [:]
addProp sublist,#comment," F�rvat filenamn:" -- "Default file name:"
addProp sublist,#format,#string
addProp sublist,#default,"Utan titel"
addProp retList,#defaultFilenamn,duplicate(sublist)
return retList
end
_______________
-- And the StageToFile button script.
on mouseUp
-- get coordinates of capture rectangle
set left to the value of field "left"
set top to the value of field "top"
set right to the value of field "right"
set bottom to the value of field "bottom"
-- get filename argument
if length(field "bildnamn") = 0 then
ShowRetVals("", "You must specify a filename")
return
else
puppetsound "cameraclick"
set filename to field "bildnamn" -- string specified
end if
set retVal to StageToFile(left, top, right, bottom, filename)
ShowRetVals(retVal, GetMessage(retVal))
go to frame "hisskorg_artnr"
updateStage
member("bildnamn").text = ""
end
on mouseEnter me
cursor 280
end if
end
on mouseLeave me
cursor -1
end if
end
_______________
_______________
Stephen Recker wrote:
> Hello,
>
> Does anyone know an alternative to ScrnXtra for capturing a protion of the
> screen to a cast member? I'd been using ScrnXtra but it fails sometimes in
> D8.5. Thanks.
>
> Stephen
>
> [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!]
[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!]
