5) Scherm met scroll

<! 5) Scherm met scroll

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 1 maal, zie het blauwe deel: <IMG id=pic1 src="c:\image\wet\herfst.jpg" . Waar de xxxxx staan kun je ook muziek invullen. Doe dat net als een afbeelding maar dan met de map muziek. >

<META content="text/html; charset=iso-8859-1" http-equiv=Content-Type><BASE

href=file://C:\aaa-aaday\><!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN"><BASE

href="file://C:\Program Files\Common Files\Microsoft Shared\Stationery\"><!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">

<STYLE type=text/css>BODY {

BACKGROUND-COLOR: #285fa2; COLOR: #2303c5; FONT-FAMILY: "Comic Sans MS"; FONT-SIZE: 18pt; MARGIN-LEFT: 430px; MARGIN-RIGHT: 10px

}

</STYLE>

<BLOCKQUOTE

style="BORDER-LEFT: #000080 0px solid; MARGIN-LEFT: 5px; MARGIN-RIGHT: 0px; PADDING-LEFT: 5px; PADDING-RIGHT: 0px">

<DIV><FONT color=#ffe060 size=4>  Groetjes </FONT></DIV><BGSOUND

balance=0 src="xxxxx " volume=0><FONT

size=4><IMG id=bkg src=" c:\image\wet\herfst.jpg "

style="HEIGHT: 400px; LEFT: -1800px; POSITION: absolute; TOP: 0px; WIDTH: 350px">

Dim w, pW, pH, pRatio, wM, hM, pT, pL, Res, numPics

Dim wW, wH, sH, wx, bH, myTimer, x, y, xD, yD

Set w=document.body

REM Set the scroll direction (use 1 or -1)

yD=1

REM OE5 vertical scrolling routine.

sub SF()

ClearTimeOut(myTimer)

y=y+yD

if yD>0 and y>=0 then y=-pH

if yD<0 and y<-pH then y=0

REM Position the background image.

box.style.top = y

REM *** repeat (larger numbers in line below give slower scroll) ***

myTimer=SetTimeOut("SF",24)

end sub

REM Initialize

sub setUp()

REM Get window dimensions

wW=w.clientWidth

wH=w.offsetHeight

sH=w.scrollHeight

REM Repeat to fix a bug in OE

wW=w.clientWidth

wH=w.offsetHeight

sH=w.scrollHeight

REM Set the scroll Width and Height

bH=wH

if sH>wH then bH=sH

y=-(pH)

REM *** SET THE LEFT MARGIN = Width of Image + 5 pixels ***

w.style.marginLeft=pW+5

chkPics=numPics

REM Adjust number of pics for message length

if int(bH/pH)>numPics then

chkPics=int(bH/pH)+2

data=""

for i=numPics+1 to chkPics

data=data&"<IMG src='"&bkg.src&"'>"

box.insertAdjacentHTML "BeforeEnd", data

end if

REM Start with a larger image

hM=pH*4

wM=pW*4

pT=-(hM-wH)

pL=-(wM-wW)

REM Position it

bkg.style.top=pT

bkg.style.left=pL

bkg.height=hM

bkg.width=wM

REM Limit visible area of the scroll

container.style.width=pW

container.style.height=bH

container.style.top=0

REM Set the size of the scrolling area

box.style.height=bH+3*pH

box.style.width=pW

box.style.top=y

box.style.left=0

REM Start the zoom-out

doIt

end sub

REM Zoom-out

sub doIt()

ClearTimeOut(myTimer)

REM Shrink image

hM=hM-10

wM=hM*pRatio

REM Adjust its position

pT=-(hM-wH)

if pT>0 then pT=0

pL=-(wM-wW)

if pL>0 then pL=0

REM Place the image

bkg.style.top=pT

bkg.style.left=pL

bkg.style.height=hM

bkg.style.width=wM

REM Is the image a normal size?

if hM>pH then

REM No so shrink some more

myTimer=SetTimeOut("doIt",2)

else

REM Yes so start the scroll

bkg.style.left=-1800

container.style.left=0

end if

end sub

REM Everything starts here

sub Window_OnLoad()

REM Get window dimensions

wW=w.clientWidth

wH=w.offsetHeight

REM Repeat to fix an OE bug

wW=w.clientWidth

wH=w.offsetHeight

REM Get users screen resolution

wx=window.screen.width

REM and adjust font size to match.

Res=INT(wx/128)

w.style.fontSize = 14+Res

REM Get dimensions of background image.

pW=bkg.style.posWidth

pH=bkg.style.posHeight

pRatio=pW/pH

REM Number of images down

numPics=INT((wx*.75)/pH)+3

if w.scrollHeight>wH then

hc=w.scrollHeight/pH

if int(hc)<hc then

numPics=int(hc)+3

else

numPics=int(hc)+2

end if

REM Tile the background

for i=1 to numPics

data=""

data="<IMG src='" & bkg.src & "'>"

box.insertAdjacentHTML "beforeEnd", data

REM Lets get started.

setUp

end sub

sub Window_OnResize()

setUp

end sub

</SCRIPT>

<!--

This is the "fake" background made up of a SPAN inside a DIV

DO NOT CHANGE OR MOVE THE FOLLOWING

--></FONT>

<DIV id=container

style="FILTER: BlendTrans(Duration=0); HEIGHT: 600px; LEFT: -1800px; POSITION: absolute; TOP: 0px; WIDTH: 800px; Z-INDEX: -1"><SPAN

id=box style="HEIGHT: 4000px; POSITION: absolute; WIDTH: 3000px"></SPAN></DIV>

<DIV style="FONT: 10pt arial"><FONT color=#00ff00

face="Calligraph421 BT"><BR></FONT></DIV>

<DIV style="FONT: 10pt arial"><FONT

color=#000000></FONT></DIV></BLOCKQUOTE></BODY>