Nové prechody od Microsoftu 2
 


CSS <STYLE type="text/css"><!--
.filt {
position: absolute;
top: 100px;
left: 300px;
width: 190px;
height:225px; }
--></STYLE>
Script <SCRIPT LANGUAGE=vbscript><!--
dim b,i
dim Filt(15)

function spustFilter()
Kontainer.filters.item(0).Apply
if b=0 then
b = 1
Obj2.style.visibility="visible"
Obj1.style.visibility="hidden"
else
b = 0
Obj2.style.visibility="hidden"
Obj1.style.visibility="visible"
end if
Kontainer.filters.item(0).Play
end function

function UmiestniKontainer()
Kontainer.style.posLeft=pBod.offsetLeft-Kontainer.offsetWidth/2
Kontainer.style.top=pBod.offsetTop
end function

Sub tl_onclick
Kontainer.style.filter=Filt(i)
druhFiltru.innertext=Filt(i)
spustFilter
i=i+1
if i=16 then i=0
End Sub

Sub window_onload
b = 0
i=0
UmiestniKontainer

Filt(0) = "progid:DXImageTransform.Microsoft.RandomDissolve();"
Filt(1) = "progid:DXImageTransform.Microsoft.Iris(irisStyle=star, motion=out);"
Filt(2) = "progid:DXImageTransform.Microsoft.Iris(irisStyle= diamond , motion= in );"
Filt(3) = "progid:DXImageTransform.Microsoft.Iris(irisStyle= cross , motion= out );"
Filt(4) = "progid:DXImageTransform.Microsoft.Iris(irisStyle= circle , motion= in );"
Filt(5) = "progid:DXImageTransform.Microsoft.Iris(irisStyle= square , motion= out );"
Filt(6) = "progid:DXImageTransform.Microsoft.Iris(irisStyle= plus , motion= in );"
Filt(7) = "progid:DXImageTransform.Microsoft.Barn(orientation= vertical motion= in );"
Filt(8) = "progid:DXImageTransform.Microsoft.Barn(orientation= vertical motion= out );"
Filt(9) = "progid:DXImageTransform.Microsoft.Barn(orientation= horizontal motion= in );"
Filt(10) = "progid:DXImageTransform.Microsoft.Barn(orientation= horizontal motion= out );"
Filt(11) = "progid:DXImageTransform.Microsoft.Zigzag(motion= leftup );"
Filt(12) = "progid:DXImageTransform.Microsoft.Strips(motion= leftup );"
Filt(13) = "progid:DXImageTransform.Microsoft.Strips(motion= rightup );"
Filt(14) = "progid:DXImageTransform.Microsoft.Strips(motion= leftdown );"
Filt(15) = "progid:DXImageTransform.Microsoft.Strips(motion= rightdown );"
End Sub

Sub window_onresize
UmiestniKontainer
End Sub
--></SCRIPT>

Objekty <DIV ID="Kontainer" class="filt" >
<DIV ID="Obj1" STYLE="POSITION: absolute"><IMG src="e1.gif"> </DIV>
<DIV id="Obj2" style="VISIBILITY: hidden; POSITION: absolute"><IMG src="e2.gif"></DIV>
</DIV>

<TABLE width="1" height="230" border="0" cellspacing="0" id=pBod>
<TR><TD>&nbsp;</TD></TR>
</TABLE>
<LABEL id="druhFiltru">*</LABEL><br>
<BUTTON id=tl>Štart</BUTTON>