"Catálogo de Marcenaria"
contribuição de Denize Rezende
Credits:
° image: "Armario"
- (exercise on computer art software) by Guacira Sampaio Rocha
° mid: "dawnmist" (found for free, in the net)
° script author: Edgar
V. Poirier (as long
as I know)
° author address: moomoo@nbnet.nb.ca
° prepared, commented and posted (as it is in this page) by:
Denize Rezende
1) Dentro das tags "<head>
</head>" coloque:
"<STYLE>BODY
{
COLOR: #000000; FONT-FAMILY: arial, tahoma; FONT-SIZE: 10pt
}
.letterStyle {
COLOR: #000000; FONT-FAMILY: arial, tahoma; FONT-SIZE: 11pt; PADDING-RIGHT:
5px; PADDING-TOP: 40px
}
</STYLE>
<SCRIPT language=VBS>
Option Explicit
Dim screenx, screeny, proportion
Dim xxtemp
Dim pourFlag
Dim top, right, bottom, left
Dim letterWidth, letterBottom
Dim origX, origY
Dim resizeFlag
resizeFlag=false
'-------------------------------------------------------------------------------
' Things you can change.
'-------------------------------------------------------------------------------
' The padding values in the letterStyle area above are the margins
for the text in the letter.
' Set letter width here. Width is proportionate to window width.
letterWidth=.5
' Set letter bottom here. 1.00
puts the letter bottom on the bottom of the window. .7 puts it 70%
down the window.
letterBottom=.7
'-------------------------------------------------------------------------------
Sub Window_OnLoad()
document.body.scroll="no"
pourFlag=0
proportion=Image1.offsetHeight/Image1.offsetWidth
screenx=document.body.clientWidth
screeny=document.body.clientHeight
closeButton.style.posLeft=(screenx-closeButton.offsetWidth)/2
closeButton.style.posTop=5
letterBottom=screeny*letterBottom
letter.style.posWidth=screenx*letterWidth
letter.style.posLeft=(screenx-letter.offsetWidth)/2
letter.style.posHeight=letterBottom-closeButton.style.posTop+closeButton.offsetHeight+5
letter.style.posTop=(screeny-letter.style.posHeight)/2
origY=screeny-(closeButton.style.posTop+closeButton.offsetHeight+5)
origX=origY/proportion
Image1.style.posHeight=4
Image1.style.posWidth=4
xxtemp=Image1.outerHTML
xxtemp=Replace(xxtemp,"id=Image1","id=Image1a")
xxtemp=Replace(xxtemp,"z-index:2;","z-index:2; clip:
rect(0px 0px 0px 0px)")
Image1.insertAdjacentHTML"AfterEnd",xxtemp
Image1.style.posLeft=(screenx-Image1.style.posWidth)/2
Image1.style.posTop=closeButton.style.posTop+closeButton.offsetHeight+5
Image1a.style.posWidth=origX
Image1a.style.posHeight=origY
Image1a.style.posLeft=(screenx-Image1a.style.posWidth)/2
Image1a.style.posTop=Image1.style.posTop
imageContainer.style.posHeight=origY
imageContainer.style.posWidth=origX
imageContainer.style.posLeft=(screenx-imageContainer.style.posWidth)/2
imageContainer.style.posTop=Image1.style.posTop
letter.style.visibility="visible"
closeButton.style.visibility="visible"
Image1.style.visibility="visible"
End Sub
Sub showContainer()
if pourFlag=1 then
xxtemp=2
lowerPhoto
Exit Sub
end if
xxtemp=1
imageContainer.style.visibility="visible"
SetTimeOut"startStream",250
End Sub
Sub startStream()
Image1.style.posHeight=Image1.style.posHeight+xxtemp
xxtemp=xxtemp+1
if Image1.style.posHeight+xxtemp>screeny-4 then
Image1.style.posHeight=origY
xxtemp=1
top=Image1a.style.posHeight-4
bottom=Image1a.style.posHeight
left=(Image1a.style.posWidth/2)-2
right=(Image1a.style.posWidth/2)+2
Image1a.style.clip="rect(" & top & "px "
& right & "px " & bottom & "px "
& left & "px)"
Image1a.style.visibility="visible"
spreadPhoto
Exit Sub
end if
SetTimeOut"startStream",0
End Sub
Sub spreadPhoto()
if right-left+(xxtemp*2)>Image1a.style.posWidth then
left=0
right=Image1a.style.posWidth
Image1a.style.clip="rect(" & top & "px "
& right & "px " & bottom & "px "
& left & "px)"
xxtemp=2
raisePhoto
Exit Sub
end if
left=left-xxtemp
right=right+xxtemp
Image1a.style.clip="rect(" & top & "px "
& right & "px " & bottom & "px "
& left & "px)"
xxtemp=xxtemp+1
SetTimeOut"spreadPhoto",0
End Sub
Sub raisePhoto()
if top-xxtemp<0 then
top=0
Image1a.style.clip="rect(" & top & "px "
& right & "px " & bottom & "px "
& left & "px)"
closeButton.innerText="aqui
o texto do segundo botao"
pourFlag=1
Exit Sub
end if
top=top-xxtemp
Image1a.style.clip="rect(" & top & "px "
& right & "px " & bottom & "px "
& left & "px)"
SetTimeOut"raisePhoto",0
End Sub
Sub lowerPhoto()
if top+xxtemp>Image1a.style.posHeight-4 then
top=Image1a.style.posHeight-4
Image1a.style.clip="rect(" & top & "px "
& right & "px " & bottom & "px "
& left & "px)"
xxtemp=1
shrinkPhoto
Exit Sub
end if
top=top+xxtemp
Image1a.style.clip="rect(" & top & "px "
& right & "px " & bottom & "px "
& left & "px)"
SetTimeOut"lowerPhoto",0
End Sub
Sub shrinkPhoto()
if right-left-(xxtemp*2)<4 then
left=(Image1a.style.posWidth/2)-2
right=(Image1a.style.posWidth/2)+2
Image1a.style.clip="rect(" & top & "px "
& right & "px " & bottom & "px "
& left & "px)"
Image1a.style.visibility="hidden"
xxtemp=1
removeStream
Exit Sub
end if
left=left+xxtemp
right=right-xxtemp
Image1a.style.clip="rect(" & top & "px "
& right & "px " & bottom & "px "
& left & "px)"
xxtemp=xxtemp+1
SetTimeOut"shrinkPhoto",0
End Sub
Sub removeStream()
Image1.style.posHeight=Image1.style.posHeight-xxtemp
xxtemp=xxtemp+1
if Image1.style.posHeight-xxtemp<4 then
Image1.style.posHeight=4
closeButton.innerText=" aqui
o texto do terceiro botao "
pourFlag=0
imageContainer.style.visibility="hidden"
Exit Sub
end if
SetTimeOut"removeStream",0
End Sub
Sub Window_OnResize()
if resizeFlag then
resizeFlag=false
window.scrollTo 0,0
window.location.reload()
Exit Sub
else
resizeFlag=true
end if
End Sub
</SCRIPT>"
2) Logo
após coloque:
" <BODY
bgColor=#4c4849>
<DIV> </DIV>
<DIV><BR></DIV><BGSOUND balance=0 loop=2
src="aqui
o caminho do som" volume=0>
<DIV><FONT color=orange face="Comic Sans MS"
size=4></FONT> </DIV>
<BUTTON
id=closeButton language=vbs onclick=showContainer
style="BACKGROUND-COLOR: #4c4849; COLOR: #ffffff; CURSOR: hand;
FONT-FAMILY: courier; LEFT: -1800px; POSITION: absolute; Z-INDEX:
99">aqui o texto do primeiro
botao.</BUTTON>
<div id=imageContainer
style="BORDER-BOTTOM: #4c4849 1px solid; BORDER-LEFT: #4c4849
1px solid; BORDER-RIGHT: #4c4849 1px solid; BORDER-TOP: #4c4849
0px solid; LEFT: -1800px; POSITION: absolute; VISIBILITY: hidden;
Z-INDEX: 2"><font
color=#ffffff></font></div>
<DIV class=letterStyle id=letter
style="HEIGHT: 300px; LEFT: 20px; OVERFLOW: auto; POSITION:
absolute; TOP: 20px; VISIBILITY: hidden; WIDTH: 450px; Z-INDEX:
1">
<DIV><FONT color=#ffffff></FONT></DIV><FONT
color=#ffffff></FONT>
<DIV align=center><FONT color=#ffffff></FONT></DIV></DIV><!--ESPECIFIQUE
ABAIXO SUA IMAGEM--><!--NAO
HA NECESSIDADE DE DEFINIR TAMANHO--><FONT
color=#ffffff><IMG border=0 id=Image1
src="aqui a sua imagem"
style="LEFT: -1800px; POSITION: absolute; VISIBILITY: hidden;
Z-INDEX: 2">
</FONT><BR><BR><BR><BR>"
3) Feche
com as tags: " </BODY></HTML>
"
Atenção: não
esqueça de desprezar todas as aspas que não estejam
na cor branca.
Esse script pode perfeitamente
ser copiado dentro da aba Origem de seu Outlook Express, e ser enviado,
com fundo musical, como mensagem aos seus amigos.