Popup Menu ActiveX Control

 

Compatibilities:

This item has not yet been rated

This is a behaviorto control teh MS PopupMenu Object ActieX element.

--Copyright 1999 Chuck Neal --chuck@mediamacros.com --If you find this code helpful, send me an e-mail and let me know. :-) property spriteNum, itemList, doItem global tempSprite on getPropertyDescriptionList me p_list = [:] if the currentSpriteNum > 0 then if sprite(the currentSpriteNum).member.type = #ActiveX then p_list.addProp(#itemList, [#format : #string, #default : "Choice1,Choice2,Choice3", #comment : "List of options separated by a comma, and no spaces."]) p_list.addProp(#doItem, [#format : #string, #comment : "Name of handler to run with the results", #default : "alert"]) else alert "This behavior only works on ActiveX elements." end if end if return p_list end on beginSprite me   if sprite(spriteNum).member.type = #ActiveX then     the itemDelimiter =","     repeat with x = 1 to itemList.item.count       sprite(spriteNum).addItem(itemList.item[x])     end repeat   end if end on popup me   sprite(spriteNum).popup(-10000, -10000) end on click whatItem   do (sprite(tempSprite).doItem & "(" & quote & sprite(tempSprite).itemList.item[whatItem] & quote & ")") end on getBehaviorDescription me   return "This behavior works with the PopupMenu Object ActiveX element included with Microsoft Internet Explorer. The first parameter is the list of options separated by a comma. the second is the name of the handler to process the event." end

Upload Provided by ABCUpload ASP