Cool Control Button

Added on 6/10/1999

Compatibilities:
behavior D6_5 Mac

This item has not yet been rated

Use this simple behavior to have a up graphic, a rollover graphic and a mouseDown graphic. And Sounds

property  standardImage, OverImage, DownImage, nextCM, OverSound, DownSound, OverSoundChannel, DownSoundChannel
property  OSoundON, DSoundON, DownON, OverON

on mouseEnter me
  if OverON then
    set the member of sprite the spritenum of me = the OverImage of me
  end if
  if OSoundON then
    puppetSound OverSoundChannel, OverSound
  end if
end

on mouseLeave me
  set the member of sprite the spritenum of me = the standardImage of me
end

on mouseDown me
  if DownON then
    set the member of sprite the spritenum of me = the DownImage of me
  end if
  if DSoundON then
    puppetSound DownSoundChannel, DownSound
  end if
end

on mouseUp me
  if OverON then
    set the member of sprite the spritenum of me = the OverImage of me
  else
    set the member of sprite the spritenum of me = the standardImage of me
  end if
end

on beginSprite me

  set the standardImage of me = the member of sprite the spriteNum of me

end

on getPropertyDescriptionList

  if the currentspritenum = 0 then
    set memdefault = 0
  else
    set memref     = the member of sprite the currentspritenum
    set castlibnum = the castlibnum of memref
    set memdefault = member (the membernum of member memref + 1) of castlib castlibnum
  end if

  set p_list =[  #OverON: [#comment:"Rollover ON:",#format: #boolean, #default:  FALSE ], ¬
                             #OverImage:[#comment:"Rollover Cast Member:",  #format:#graphic, #default: memdefault ], ¬
                             #OSoundON: [#comment:"Rollover Sound ON:",#format: #boolean, #default:  FALSE ], ¬
                             #OverSound:[#comment:"Rollover Sound:",        #format:#sound,   #default:"" ], ¬
                             #OverSoundChannel:[#comment:"Channel Number:",   #format:#integer, #default: 1 ], ¬
                             #DownON: [#comment:"MouseDown ON:",#format: #boolean, #default:  FALSE ], ¬
                             #DownImage:[#comment:"MouseDown Cast Member:", #format:#graphic, #default: memdefault ], ¬
                             #DSoundON: [#comment:"MouseDown Sound ON:",#format: #boolean, #default:  FALSE ], ¬
                             #DownSound:[#comment:"MouseDown Sound:",            #format:#sound,   #default:"" ], ¬
                             #DownSoundChannel:[#comment:"Channel Number:",   #format:#integer, #default: 1 ]]
  return p_list

end

on getBehaviorDescription
  return ¬
            "Use this simple behavior to have a up graphic, a rollover graphic and a mouseDown graphic.  And Sounds"
end

Upload Provided by ABCUpload ASP

Contact

MMI
22 West Court Sq
Suite 2C
Newnan, GA 30263
USA

Fax - (206) 339-5833

Send e-mail