home *** CD-ROM | disk | FTP | other *** search
/ Chip 2003 February / Chip_2003-02_cd2.bin / OKO_demo / movie / OKOKniha.dxr / Internal_6_ClickKniha.ls < prev    next >
Encoding:
Text File  |  2002-12-01  |  1.0 KB  |  41 lines
  1. property pSp, pKniha
  2. global gKniha
  3.  
  4. on beginSprite me
  5.   pSp = me.spriteNum
  6. end
  7.  
  8. on mouseUp me
  9.   if pKniha = "heraldika" then
  10.     closeAllWindows()
  11.     go(1)
  12.     member("OKOPDF").linkFile = the moviePath & "\knihy\" & pKniha & ".pdf"
  13.     gKniha = pKniha
  14.   else
  15.     Answer = baMsgBox("Toto je demo verze." & RETURN & "Aktivn├¡ je pouze kniha HERALDIKA!", "Demo verze", "Yes", "Exclamation", 1)
  16.   end if
  17. end
  18.  
  19. on mouseDown me
  20. end
  21.  
  22. on mouseEnter me
  23.   sprite(92).member = member(pKniha)
  24.   sprite(92).visible = 1
  25. end
  26.  
  27. on mouseLeave me
  28.   sprite(92).member = member(gKniha)
  29.   sprite(92).visible = 1
  30. end
  31.  
  32. on getPropertyDescriptionList
  33.   myPropertyList = [:]
  34.   addProp(myPropertyList, #pKniha, [#comment: "pKniha", #format: #string, #range: ["indian", "vlajky", "abraka", "fauna", "rostliny", "RYBY", "LIDE", "SPORT", "letadla", "heraldika", "doprava", "hvezdy"], #default: "vlajky"])
  35.   return myPropertyList
  36. end
  37.  
  38. on getBehaviorDescription
  39.   return "My Behaviors" & RETURN & " ┬⌐ Stan Saic" & RETURN & RETURN & "vyber knihy z menu PDF vieweru"
  40. end
  41.