3state Button with Cursor change

 

Compatibilities:

This item has not yet been rated

3 state Button with Cursor change

---- written for Director 8 --- ---- Kumar.K ---- ---- kumark@icode.com ---- ------ Custom Properties ------ property  WhereTo,RolloverCursor,Rollovermember,StandardMember,savedCursor,Clickedmember,ClickedCursor,spritenum ------ Get Behavior Description List ------ on getPropertyDescriptionList me   set description = [:]   if the currentspritenum = 0 then exit   theMember = sprite(the currentSpriteNum).member   theMemberNumber = theMember.number       addProp description, #RolloverCursor, [#comment: "Set the Cursor To(On Rollver) :",#format:#cursor,#default:280]     addProp description, #Rollovermember, [#comment: "Set RollOver Member To :" ,#format:#Graphic,#default:member(theMemberNumber+1)]       addProp description, #ClickedCursor, [#comment: "Set the Cursor To(On Click) :",#format:#cursor,#default:280]     addProp description, #Clickedmember, [#comment: "Set Clicked Member To :" ,#format:#Graphic,#default:member(theMemberNumber+2)]   return description end getPropertyDescriptionList ------ Get Behavior Description List ------ -- Get Behavior description -- on getBehaviorDescription me   return     "Change Cursor & Memer On Rollover and Click" & RETURN & RETURN &     "This Behavior Changes the Member & Cursor of the sprite to the Specified member and Cursor." & RETURN & RETURN &     "PARAMETERS:" & RETURN &     "* RollOver Cursor" & RETURN &     "* RollOver Member" & RETURN &     "* MouseDown/Clicked Cursor" & RETURN &     "* MouseDown/Clicked Member" & RETURN &     "* Where To assign this Script." end getBehaviorDescription -- Get Behavior description -- ------ Availbale for both Frame and Sprite Script ------ on isOKToAttach (me, aSpriteType, aSpriteNum)   case aSpriteType of     #graphic:       return true     #script:       return false   end case end isOKToAttach ------ Availbale for both Frame and Sprite Script ------ -- Events -- on beginsprite   StandardMember = sprite(spritenum).member   savedCursor=sprite(spritenum).cursor end on MouseDown me     repeat while the stilldown       Sprite(Spritenum).cursor=ClickedCursor       sprite(spritenum).member=Clickedmember       updatestage     end repeat end MouseDown on MouseWithin me     Sprite(Spritenum).member=Rollovermember     Sprite(Spritenum).cursor=RolloverCursor end MouseEnter on MouseLeave me     Sprite(Spritenum).member=StandardMember     Sprite(Spritenum).cursor=savedCursor end MouseLeave ------ Events ------

Upload Provided by ABCUpload ASP