Prev: bugs in director 11
Next: Pre dir11 memory issue
From: smileInVietnam on 19 Apr 2008 13:56
cast member name: simFn
this is handler about controling Divx Video.
U should use below xtras.
-- AC3Filter.x32
-- simDS.x32
-- XvidDecoder.x32
-------------------------------------------------
on FileOpenDialog initFolder,filtStr,dlogTitle
ObjFileXtra4=xtra("FileXtra4").new()
return ObjFileXtra4.fx_FileOpenDialog (initFolder, filtStr, dlogTitle,
true,false)
end
-------------------------------------------------
on ReadStringItem str,num,Del
preDel=_player.itemDelimiter
_player.itemDelimiter=Del
restr= str.item[num]
_player.itemDelimiter=preDel
return restr
end
-------------------------------------------------
on ReadStringItemTo str,num,num1,Del
preDel=_player.itemDelimiter
_player.itemDelimiter=Del
restr= str.item[num..num1]
_player.itemDelimiter=preDel
return restr
end
-------------------------------------------------
on ReadStringItems str,Del
preDel=_player.itemDelimiter
_player.itemDelimiter=Del
restr= str.items.count
_player.itemDelimiter=preDel
return restr
end
-------------------------------------------------
on ReadStringItemLast stringtext,Del
Num=ReadStringItems(stringtext,Del)
return ReadStringItem(stringtext,Num,Del)
end
-------------------------------------------------
on FileOnlyName fName
str=ReadStringItemLast(fName,"\")
num=-1
if ReadStringItems(str,".")>1 then num=ReadStringItemLast(str,".").length
return str.char[1..str.length-num-1]
end
-------------------------------------------------
on FileFolder fName
mNum=ReadStringItems(fName,"\")
return ReadStringItemTo(fName,1,mNum-1,"\")&"\"
end
-------------------------------------------------
on FileExist Pathname
ObjFileXtra4=xtra("FileXtra4").new()
return ObjFileXtra4.fx_FileExists(Pathname)
end
-------------------------------------------------
on FileterText mStr
mLineSu=mStr.line.count
reStr=""
repeat with i=1 to mLineSu
mLineStr=mStr.line[i]
if i=1 then
reStr=mLineStr
next repeat
end if

charNum=charToNum(mLineStr.char[1])
if charNum=10 then mLineStr=mLineStr.char[2..mLineStr.length]
reStr=reStr&return&mLineStr
end repeat
return reStr
end

From: smileInVietnam on 19 Apr 2008 13:51
cast member name : behavior filmStrip

-- ??? ???? ???? ??? ????? ????? ??????...

global gFilmStripMgr
global gImageViewerMgr

property pIconNum
property pMySprite
property pSprite_back1
property pSprite_back2
property pMovieSprite

on beginSprite me
pMySprite = sprite(me.spriteNum)
pSprite_back1 = sprite(me.spriteNum - 6)
pSprite_back2 = sprite(me.spriteNum - 12)
pMovieSprite = sprite(me.spriteNum - 18)

-- ? ????? ??? ????.
gFilmStripMgr.registSpriteOrder(pIconNum)

me.resetMyImg()
end

on resetMyImg me
myFileName = gFilmStripMgr.getIconImgPath(pIconNum)
if myFileName <> pMySprite.member.fileName then
pMySprite.member.fileName = myFileName
pMySprite.member.regPoint = point(pMySprite.member.width / 2,
pMySprite.member.height / 2)

if myFileName contains "avi" then
pMovieSprite.locZ = me.spriteNum + 1
else
pMovieSprite.locZ = pMovieSprite.spriteNum
end if
end if
end

on mouseUp me
gImageViewerMgr.showClickedImg(pIconNum)

sendAllSprites(#setSpeedBarLocZ)
end

on prepareFrame me
me.setMyPos()
me.resetMyImg()
me.setBackRect()
end

on setMyPos me
-- ? ??? ???...
pMySprite.locH = gFilmStripMgr.getIconPos(pIconNum)
pMovieSprite.locH = pMySprite.locH
end

on setBackRect me
-- ???? ??? ????...
pSprite_back1.rect = pMySprite.rect + rect(-1, -1, 1, 1) * 5
pSprite_back2.rect = pMySprite.rect + rect(-1, -1, 1, 1) * 7
end


on getPropertyDescriptionList
propertyList = [:]

propertyList[#pIconNum] = [:]
propertyList.pIconNum[#comment] = "icon number :"
propertyList.pIconNum[#default] = 1
propertyList.pIconNum[#format] = #integer

return propertyList
end

From: smileInVietnam on 19 Apr 2008 13:51
cast member name : behavior flow filmStrip


-- ??? ??? ??? ??? ??????...

global gFilmStripMgr

property pMySprite
property pDirection
property pLocZ_down

on beginSprite me
pMySprite = sprite(me.spriteNum)
pLocZ_down = me.spriteNum - 20
end

on mouseDown me
pMySprite.locZ = pLocZ_down
end

on mouseUp me
me.setSpeedBarLocZ()
end

on mouseLeave me
me.setSpeedBarLocZ()
end

on setSpeedBarLocZ me
pMySprite.locZ = me.spriteNum
end

on prepareFrame me
if the rollover <> me.spriteNum then exit

case pDirection of
#left : -- ???? ???? ??? ????? ??? ??? ???...
speedPower = float(pMySprite.left - the mouseH) / pMySprite.width
#right :
speedPower = float(pMySprite.right - the mouseH) / pMySprite.width
end case

gFilmStripMgr.setMove(speedPower)

-- put pDirection && speedPower
end



on getPropertyDescriptionList
propertyList = [:]

propertyList[#pDirection] = [:]
propertyList.pDirection[#comment] = "move Direction :"
propertyList.pDirection[#default] = #left
propertyList.pDirection[#format] = #symbol
propertyList.pDirection[#range] = [#left, #right]
return propertyList
end

From: smileInVietnam on 19 Apr 2008 14:02
if I have your e-mail address then I can send file

but I don't have it.

if you use MSN messenger, I can send sample file.

msn Id is hanul22(a)dreamwiz.com.

don't send e-mail with this address, it is just msn id, i don't use this...

From: jclegs on 22 Apr 2008 08:23
This looks awfully like our coursework mmm.....
First  |  Prev  |  Next  |  Last
Pages: 1 2 3
Prev: bugs in director 11
Next: Pre dir11 memory issue