<SCRIPT language=VBS>
'----------------------------------------------------------------------------
' Grid Letter & Photo with Background, by Bill Scott
'----------------------------------------------------------------------------
' All HTML and script by Bill Scott, April, 2000
' billscott@redrivernet.com
' Change the letter's background image above in the STYLE area.
'L88
' Grid Letter & Photo with Background HTML and Script follows:
Option Explicit
Dim screenx, screeny, proportion
Dim xxtemp, yytemp, tt
Dim photoHeight
' Height of photo proportional to window height.
' Height will be re-adjusted if letter width winds up being less
than 350.
photoHeight=.8
Sub Window_OnLoad()
screenx=document.body.clientWidth
screeny=document.body.clientHeight
proportion=Image1.style.posHeight/Image1.style.posWidth
Image1.style.posHeight=(screeny*photoHeight)
Image1.style.posWidth=Image1.style.posHeight/proportion
if screenx-Image1.style.posWidth-(screenx*.05)<350 then
Image1.style.posWidth=screenx-((screenx*.05)+350)
Image1.style.posHeight=Image1.style.posWidth*proportion
end if
Image1.style.posLeft=(screenx*.95)-Image1.style.posWidth
Image1.style.posTop=(screeny-Image1.style.posHeight)/2
top1.style.posTop=Image1.style.posTop
top1.style.posLeft=0
bottom1.style.posTop=Image1.style.posTop+Image1.style.posHeight
bottom1.style.posLeft=screenx
left1.style.posTop=0
left1.style.posLeft=Image1.style.posLeft
right1.style.posTop=screeny
right1.style.posLeft=Image1.style.posLeft+Image1.style.posWidth
xxtemp=0
top1.style.visibility="visible"
drawLinesTop1
End Sub
Sub drawLinesTop1()
xxtemp=xxtemp+10
if xxtemp>screenx then
top1.style.posWidth=screenx
xxtemp=0
yytemp=screenx
bottom1.style.visibility="visible"
drawLinesBottom1
Exit Sub
end if
top1.style.posWidth=xxtemp
SetTimeOut"drawLinesTop1",0
End Sub
Sub drawLinesBottom1()
xxtemp=xxtemp+10
yytemp=yytemp-10
if yytemp<0 then
bottom1.style.posLeft=0
bottom1.style.posWidth=screenx
xxtemp=0
left1.style.visibility="visible"
drawLinesLeft1
Exit Sub
end if
bottom1.style.posLeft=yytemp
bottom1.style.posWidth=xxtemp
SetTimeOut"drawLinesBottom1",0
End Sub
Sub drawLinesLeft1()
xxtemp=xxtemp+10
if xxtemp>screeny then
left1.style.posHeight=screeny
xxtemp=0
yytemp=screeny
right1.style.visibility="visible"
drawLinesRight1
Exit Sub
end if
left1.style.posHeight=xxtemp
SetTimeOut"drawLinesLeft1",0
End Sub
Sub drawLinesRight1()
xxtemp=xxtemp+10
yytemp=yytemp-10
if yytemp<0 then
right1.style.posTop=0
right1.style.posHeight=screeny
expandImage1
Exit Sub
end if
right1.style.posTop=yytemp
right1.style.posHeight=xxtemp
SetTimeOut"drawLinesRight1",0
End Sub
Sub expandImage1()
Image1.style.posHeight=Image1.style.posHeight-2
Image1.style.posWidth=Image1.style.posWidth-2
Image1.style.posLeft=Image1.style.posLeft+2
Image1.style.posTop=Image1.style.posTop+2
Image1.filters(0).Apply()
Image1.style.visibility="visible"
Image1.filters(0).Transition=5
Image1.filters(0).Play(1.200)
SetTimeOut"showLetter",1200
End Sub
Sub showLetter()
letter.style.posHeight=Image1.style.posHeight
letter.style.posWidth=Image1.style.posLeft-2
letter.style.posLeft=0
letter.style.posTop=Image1.style.posTop
letter.filters(0).Apply()
letter.style.visibility="visible"
letter.filters(0).Transition=6
letter.filters(0).Play(1.200)
End Sub
Sub movText()
tt=((window.event.y-40)/letter.clientHeight)*(text.scrollHeight-letter.clientHeight)
text.style.top=-tt
End Sub
</SCRIPT>
<DIV id=BuryAds style="HEIGHT: 10000px"></DIV><!-- **|begin egp
html banner|**| -->
<DIV> </DIV>
<DIV id=top1
style="BACKGROUND-COLOR: #d4ca59; FONT-SIZE: 1px; HEIGHT: 2px;
LEFT: -1800px; LINE-HEIGHT: 1px; POSITION: absolute; TOP: 0px;
VISIBILITY: hidden; WIDTH: 0px"></DIV>
<DIV id=bottom1
style="BACKGROUND-COLOR: #d4ca59; FONT-SIZE: 1px; HEIGHT: 2px;
LEFT: -1800px; LINE-HEIGHT: 1px; POSITION: absolute; TOP: 0px;
VISIBILITY: hidden; WIDTH: 0px"></DIV>
<DIV id=left1
style="BACKGROUND-COLOR: #d4ca59; FONT-SIZE: 1px; HEIGHT: 0px;
LEFT: -1800px; LINE-HEIGHT: 1px; POSITION: absolute; TOP: 0px;
VISIBILITY: hidden; WIDTH: 2px"></DIV>
<DIV id=right1
style="BACKGROUND-COLOR: #d4ca59; FONT-SIZE: 1px; HEIGHT: 0px;
LEFT: -1800px; LINE-HEIGHT: 1px; POSITION: absolute; TOP: 0px;
VISIBILITY: hidden; WIDTH: 2px"></DIV><!--PUT YOUR IMAGE HERE.--><!--BESURE
TO SPECIFY ITS WIDTH AND HEIGHT--><IMG
id=Image1 src="C:\A\01.jpg"
style="FILTER: revealTrans; HEIGHT: 440px; LEFT: -1800px;
POSITION: absolute; VISIBILITY: hidden; WIDTH: 332px">
<DIV class=letterStyle id=letter
style="FILTER: revealTrans; HEIGHT: 2000px; LEFT: 0px; OVERFLOW:
hidden; POSITION: absolute; TOP: 0px; VISIBILITY: hidden; WIDTH:
350px">
<DIV id=text
style="HEIGHT: 90%; LEFT: 5%; POSITION: absolute; TOP: 5%; WIDTH:
90%">
<P align=left><FONT face="Comic Sans MS" size=3><FONT size=4>Texto
aqui</FONT></FONT>
<OBJECT classid=clsid:05589FA1-C356-11CE-BF01-00AA0055595A
height=30 id=efont1
style="DISPLAY: none" width=500><PARAM NAME="Appearance" VALUE="0"><PARAM
NAME="AutoStart" VALUE="0"><PARAM NAME="AllowChangeDisplayMode"
VALUE="-1"><PARAM NAME="AllowHideDisplay" VALUE="0"><PARAM NAME="AllowHideControls"
VALUE="-1"><PARAM NAME="AutoRewind" VALUE="-1"><PARAM NAME="Balance"
VALUE="0"><PARAM NAME="CurrentPosition" VALUE="0"><PARAM NAME="DisplayBackColor"
VALUE="0"><PARAM NAME="DisplayForeColor" VALUE="16777215"><PARAM
NAME="DisplayMode" VALUE="0"><PARAM NAME="Enabled" VALUE="-1"><PARAM
NAME="EnableContextMenu" VALUE="-1"><PARAM NAME="EnablePositionControls"
VALUE="-1"><PARAM NAME="EnableSelectionControls" VALUE="0"><PARAM
NAME="EnableTracker" VALUE="-1"><PARAM NAME="Filename" VALUE="C:\EmbeddedFonts\deloisee.eot"><PARAM
NAME="FullScreenMode" VALUE="0"><PARAM NAME="MovieWindowSize"
VALUE="0"><PARAM NAME="PlayCount" VALUE="1"><PARAM NAME="Rate"
VALUE="1"><PARAM NAME="SelectionStart" VALUE="-1"><PARAM NAME="SelectionEnd"
VALUE="-1"><PARAM NAME="ShowControls" VALUE="-1"><PARAM NAME="ShowDisplay"
VALUE="-1"><PARAM NAME="ShowPositionControls" VALUE="0"><PARAM
NAME="ShowTracker" VALUE="-1"><PARAM NAME="Volume" VALUE="0"></OBJECT></P>
<SCRIPT language=VBScript>
document.writeln("<STYLE> @font-face { font-family: deloisee;
src: url("&efont1.filename&"); }</STYLE>")
</SCRIPT>
|