|
|
<!
4) Top scroll over en weer
Ga
hierboven naar "bewerken" en kies voor "alles selecteren".
Terug "bewerken" en dan "kopiëren"?. Open nu outlook
express en neem "nieuw bericht". Onderaan open je de "bron"
en klik tussen </BODY><!</HTML> <! Dat is daar waar het groene tekens
staan en klik daarna met de rechtermuisknop. Kies nu voor "plakken"
en onderaan op "voorbeeld". Je ziet dat je mail klaar is behalve je
foto's en tekst. De tekst kun je in de stand "bewerken" aan passen en
de foto's moet je in de "bron" vervangen. En dat 4 maal, zie het
blauwe deel: <IMG id=pic1 src="c:\image\wet\herfst.jpg" >
<META
content="text/html; charset=iso-8859-1"
http-equiv=Content-Type><BASE
href=file://C:\aa\scr\>
<STYLE
type=text/css>BODY {BACKGROUND-COLOR: #000000; COLOR: #fc8080; FONT-FAMILY:
"Verdana"; FONT-SIZE: 14pt; MARGIN-LEFT: 10px; MARGIN-RIGHT: 10px;
MARGIN-TOP: 130px}
</STYLE>
<META
content="MSHTML 5.00.2314.1000" name=GENERATOR>
<META
content="MSHTML 5.00.2314.1000" name=GENERATOR>
<META content="MSHTML
5.00.2314.1000" name=GENERATOR>
<META
content="MSHTML 5.00.2314.1000" name=GENERATOR>
<META
content="MSHTML 5.00.2314.1000" name=GENERATOR>
<META
content="MSHTML 5.00.2614.3500" name=GENERATOR>
<META
content="MSHTML 5.00.2614.3500" name=GENERATOR></HEAD>
<BODY
bgColor=#ffffff>
<DIV> </DIV>
<BLOCKQUOTE
style="BORDER-LEFT:
#000080 0px solid; MARGIN-LEFT: 5px; MARGIN-RIGHT: 0px; PADDING-LEFT: 5px;
PADDING-RIGHT: 0px">
<DIV
style="FONT: 10pt arial"> </DIV>
<DIV><BR></DIV><BGSOUND balance=0 src="xxxxx
"
volume=-40>
<DIV> </DIV>
<MARQUEE behavior=alternate
direction=right height=120 id=mrq scrollAmount=2
scrollDelay=1
style="LEFT: -200px; POSITION:
absolute; TOP: 0px; VISIBILITY: hidden; Z-INDEX: 5"
width=800 ALIGN="Center"><IMG
id=pic
src=" c:\image\wet\herfst.jpg " style="Z-INDEX:
6"></MARQUEE><!-- Silhouette moving right --><IMG id=pL
src=" c:\image\wet\herfst.jpg " style="VISIBILITY: hidden">
<!-- Silhouette moving left --><IMG id=pR
src=" c:\image\wet\herfst.jpg " style="FILTER: FlipH; VISIBILITY:
hidden">
<!-- Background image of sunset
--><IMG id=bkg
src=" c:\image\wet\herfst.jpg "
style="LEFT: 0px; POSITION: absolute;
TOP: 0px; VISIBILITY: hidden; Z-INDEX: 2">
<!-- Midi
Silhouette by Kenny G -->
<SCRIPT
language=VBScript>
Dim w, dFlag
Set
w=document.body
' Initialize
sub setUp()
pH=108 'Original picture height
pW=294 'Original picture width
dFlag=1 ' Start moving toward the right
pic.src=pL.src
' The following code keeps the top
border size to
' either one third of the window
height or
' the original height if the window is
large enough.
if w.clientHeight<324 then ' If window is less than 3 times pic height
pH=w.clientHeight*.3 ' Make pic 1/3 window height
pW=pH*2.72 ' and calculate pic width to keep
proportions.
pic.height=pH
pic.width=pW
else
' Window must be large enough
pic.height=pH ' So
use original size.
pic.width=pW
end if
w.style.marginTop=pH+10 ' Place the text below the border
' Make the Marquee wide enough so the
turning can be
' done offscreen. Offscreen distance
at either end
' should be equal to at least the
width of the boat picture.
mrq.style.left=-pW
mW=w.clientWidth+(2*pW)
mrq.width=mW
bkg.width=w.clientWidth ' Make the top border background fit the
window
bkg.height=pH
bkg.style.visibility="visible" ' Now show the top border.
mrq.style.visibility="visible"
end sub
' Everything
starts here
sub
Window_OnLoad()
setUp
' Initialize stuff
end sub
sub Window_OnResize()
setUp
' Window size changed so re-initialize
end sub
sub
mrq_onbounce()
if dFlag=1 then ' If we were going right
pic.src=pR.src ' Change to left-moving picture
dFlag=0
else
pic.src=pL.src '
Otherwise we must use right-moving picture
dFlag=1
end if
end sub
' If the text
scrolls we do not want the top border to move
sub
Window_OnScroll()
mrq.style.top=w.scrolltop
bkg.style.top=w.scrolltop
setUp
end sub
</SCRIPT>
</BLOCKQUOTE></BODY>