home *** CD-ROM | disk | FTP | other *** search
/ Dr. Watson 2.0 / DRWATSON2.iso / OFFICE / FRAME.TPL < prev    next >
Text File  |  1997-03-17  |  5KB  |  155 lines
  1. <**COMMENT
  2.      Frame.htm - frameset for the browser app. 
  3.      Created by Microsoft PowerPoint 97 
  4.  
  5.      If you modify these templates, you do so at your own risk.  Make a backup copy of any
  6.      changes you make as future installs of PowerPoint and the Internet Assistant 
  7.      will overwrite existing templates with new versions.
  8. **COMMENT>
  9. <HTML>
  10. <meta name="GENERATOR" content="Microsoft Internet Assistant for PowerPoint 97">
  11. <HEAD>
  12. <**PHEAD** <TITLE>%s</TITLE> **PHEAD**>
  13.  
  14. <SCRIPT LANGUAGE="JavaScript">
  15. <!--  Hide this from JavaScript-challenged browsers
  16.  
  17. var FirstSlide = 1;
  18. var LastSlide = <**LASTSL*%s**LASTSL*>;
  19. var CurrentSlide = FirstSlide;
  20. var ImageWidth = <**IMGWID*%s**IMGWID*> - 8;
  21. var ImageHeight = <**IMGHI**%s**IMGHI**>;
  22. var CurImageWidth = ImageWidth;
  23. var CurImageHeight = ImageHeight;
  24.  
  25. /*      This function concerts numbers to strings               */
  26. function CvtNtoS(iNum)
  27. {
  28.     return ("" + iNum);
  29. }
  30.  
  31. /* This function prefixes strings with the correct # of 0's      */
  32. function ZeroFill(iNum, iDigits)
  33. {     var sNum = CvtNtoS(iNum); 
  34.       while (sNum.length < iDigits)
  35.         sNum = "0" + sNum;
  36.        return sNum;
  37. }
  38.  
  39. /* this function handles the setting the navigation buttons.  
  40.    The name of navigation control is used here so change it if it is renamed  */
  41. function ItemClicked(iIndex, iNoteOnly)
  42. {       
  43.     var sIndex = ZeroFill(iIndex, 3);
  44.     var sNoteHref = "note" + sIndex + ".htm";
  45.     var sSlideImage = "img" + sIndex + ".htm";
  46.     if (!iNoteOnly)                 // not active X, update image and nav btns
  47.         frames["SlideImage"].location.href = sSlideImage;
  48.     frames["Notes"].location.href = sNoteHref;
  49.     CurrentSlide = iIndex;
  50. }
  51.  
  52. //      Move relative to the current slide 
  53. function MoveRelative(iRel)
  54. {
  55.     var newI = parseInt(CurrentSlide) + parseInt(iRel);
  56.     if ( (newI >= FirstSlide) && (newI <= LastSlide) )
  57.         ItemClicked(newI);
  58. }
  59.  
  60.  
  61. //      Set the presentation back to the start of the pres
  62. function StartOfPres()
  63. {
  64.     ItemClicked(FirstSlide);
  65. }
  66.  
  67. //      Code for Outline sizing
  68. function OutlineExpand(bExpand)
  69. {
  70.     if (parseInt(bExpand) != 0)
  71.         frames["Outline"].location.href = "outlinee.htm";
  72.     else
  73.         frames["Outline"].location.href = "outlinec.htm";
  74. }
  75.  
  76. //    Resize the image.  Allow Image to change +50% or -50%.  Move in +/-10% increments
  77. function SizeGraphic(iChange)
  78. {
  79.     if (iChange < 0)                    // decrease image size
  80.     {
  81.         if ( CurImageWidth > parseInt((ImageWidth/2)) )
  82.         {
  83.             CurImageWidth = CurImageWidth - parseInt((ImageWidth/10));
  84.             CurImageHeight = CurImageHeight - parseInt((ImageHeight/10));
  85.         }
  86.     }
  87.     else                                // increase image size
  88.     {
  89.         if ( CurImageWidth < parseInt((ImageWidth * 1.5)) )
  90.         {
  91.             CurImageWidth = CurImageWidth + parseInt((ImageWidth/10));
  92.             CurImageHeight = CurImageHeight + parseInt((ImageHeight/10));
  93.         }
  94.     }
  95.     WriteImage1(CurImageHeight, CurImageWidth);
  96. }
  97.  
  98.  
  99. //    Re-write the document for IMG001 to resize the Active X or embedded Animation Player
  100. function WriteImage1(sHeight, sWidth)
  101. {
  102.     var oDoc = frames("SlideImage").document;
  103.     var docText = "<HTML>\r\n";
  104.  
  105.     docText += "<BODY";
  106.     docText += ' BGCOLOR="' + oDoc.bgColor + '" TEXT="' + oDoc.fgColor + '"';
  107.     docText += ' VCOLOR="' + oDoc.vlinkColor + '" LINK="' + oDoc.linkColor + '"';
  108.     docText += ">\r\n";
  109.     docText += '<base target="_top">\r\n';
  110.  
  111.     docText += '<CENTER>\r\n';
  112.         docText += '   <OBJECT CLASSID="clsid:EFBD14F0-6BFB-11CF-9177-00805F8813FF" ';
  113.     docText += 'WIDTH=' + sWidth + ' HEIGHT=' + sHeight + '>\r\n';
  114.     docText += '   <PARAM NAME="File" VALUE="pres0.ppz">';
  115.     docText += '   <EMBED SRC="pres0.ppz"';
  116.     docText += 'WIDTH=' + sWidth + ' HEIGHT=' + sHeight + '>\r\n';
  117.      docText += '   </EMBED>\r\n';
  118.     docText += '   </OBJECT>\r\n';
  119.     docText += '</CENTER>\r\n';
  120.     docText += '</BODY>\r\n';
  121.     docText += '</HTML>';
  122.     // do the write
  123.     oDoc.close();
  124.     oDoc.writeln(docText);
  125.     oDoc.close();
  126. }
  127.  
  128. //  End of hiding comment -->
  129.  
  130. </SCRIPT>
  131. </HEAD>
  132.  
  133. <Frameset cols="*, <**IMGWID*%s**IMGWID*>" onLoad="ItemClicked(1,0)">  
  134.   <Frameset rows="51,*">
  135.      <Frame src="sizebtn.htm" MarginHeight=5 MarginWidth=1 Name="Sizebtn" border=1 NOSCROLL>
  136.      <Frame src="outlinec.htm" MarginHeight=4 MarginWidth=4 Name="Outline" border=1>
  137.   </Frameset>
  138.   <Frameset rows="51, <**IMGHI**%s**IMGHI**>, *">
  139.      <Frame src="navbtn.htm" MarginHeight=5 MarginWidth=1 Name="Navbtn" border=1 NOSCROLL>
  140.      <Frame src="img001.htm" MarginHeight=0 MarginWidth=0 Name="SlideImage">
  141.      <Frame src="note001.htm" Name="Notes">
  142.   </Frameset>
  143. </Frameset>
  144.  
  145. <NOFRAMES>
  146. <BODY>
  147.  
  148. <!--  The text to be displayed when the browser does not support frames -->
  149. <**NOFRM** %s **NOFRM**>
  150.  
  151. </BODY>
  152. </NOFRAMES>
  153.  
  154. </HTML>
  155.