' ------------------------------------------------------------------------------------
'					SetTypeHTML.vbs
'         		Set the current picture to the HTML type
' By setting the picture type to HTML, you instruct MyAlbum to use Microsoft
' Internet Explorer to view the file. With the proper plugins installed you will
' then be able to view Adobe Acrobat (pdf) files, Macromedia Shockwave Flash (swf)
' animations and many other files without leaving MyAlbum!
' ------------------------------------------------------------------------------------

Option Explicit

const TYPE_HTML = 20

dim alb, pic, st

set alb = app.GetCurrentAlbum
if not alb is nothing then
  set pic = alb.GetVisiblePicture( alb.nCurrentPicture )
  if not pic is nothing then
    st = pic.lStatus
    st = (st and &HFFFFFF00) or TYPE_HTML
    pic.lStatus = st
  end if
end if