<!--

// Parameter
var        wartezeit        = 2500        // Wartezeit fuer Nachbarbilder

// Bilder
var        images        = new Array()

// Vorladen eines Bilds
function preload_eins(nr)
{
        if(!images[nr].geladen)
        {
                images[nr].image.src        = images[nr].datei
                images[nr].geladen        = true
        }
}

// Vorladen
function preload(nr)
{
        preload_eins(nr)
        if(nr < images.length - 1)
                setTimeout("preload_eins(" + String(nr + 1) + ")", wartezeit)
        if(nr > 0)
                setTimeout("preload_eins(" + String(nr - 1) + ")", wartezeit)
}

// Folie Nr. "nr" anzeigen
function folie(nr)
{
        var        flr        = false
        folie_nr        = nr
        if(folie_nr < 0)
        {
                flr        = true
                folie_nr        = 0
        }
        if(folie_nr >= parameter_folien.length)
        {
                flr        = true
                folie_nr        = parameter_folien.length - 1
        }
        if(flr)
                status        = "Erlaubte Seitennummern: 1 bis " + String(parameter_folien.length)
        else
                status        = ""
        self["HauptFenster"].document.Folie.src                        = parameter_folien[folie_nr].datei
        self["NavFenster"].document.NavForm.Nr.value                = String(folie_nr + 1)
        self["NavFenster"].document.NavForm.Wahl.selectedIndex        = folie_nr
        preload(folie_nr)
}

// Naechste/vorige Folie anzeigen
function wechsel(inr)
{
        folie_nr        += inr
        if(folie_nr < 0)
        {
                status        = "Erste Seite bereits erreicht."
                folie_nr        = 0
        }
        else
                status        = ""
        if(folie_nr >= parameter_folien.length)
        {
                status        = "Letzte Seite bereits erreicht."
                folie_nr        = parameter_folien.length - 1
        }
        else
                status        = ""
        self["HauptFenster"].document.Folie.src                        = parameter_folien[folie_nr].datei
        self["NavFenster"].document.NavForm.Nr.value                = String(folie_nr + 1)
        self["NavFenster"].document.NavForm.Wahl.selectedIndex        = folie_nr
        preload(folie_nr)
}

// Gezielte Seite anspringen
function sprung()
{
        var        seite        = parseInt(self["NavFenster"].document.NavForm.Nr.value)
        if(isNaN(seite))
        {
                status        = "Es sind nur Zahlen gestattet."
                seite        = folie_nr
        }
        else
        {
                status        = ""
                seite--
        }
        folie(seite)
}

// Zyklusbearbeitung
function zyklus(nr)
{
        var        aktivierung        = false

        with(self["NavFenster"].document.NavForm)
        {
                // Checkbox Aktivierung angeklickt
                if(nr == 1)
                {
                        if(!WechselAktiv.checked)
                        {
                                WechselZyklisch.checked        = false
                                clearTimeout(zyklus_timer)
                                zyklus_timer        = null
                        }
                        else
                                aktivierung        = true
                }

                // Checkbox Zyklus angeklickt
                if(nr == 3)
                {
                        if(WechselZyklisch.checked)
                        {
                                WechselAktiv.checked        = true
                                aktivierung        = true
                        }
                        if(WechselZeit.value == "")
                                WechselZeit.value        = "30"
                }

                // Zeit auswerten
                zyklus_zeit        = parseInt(WechselZeit.value)
                if(isNaN(zyklus_zeit))
                {
                        status        = "Es sind nur Zahlen gestattet."
                        WechselZeit.value        = "30"
                        zyklus_zeit        = 30
                }
                else
                        status        = ""

                // Zeit veraendert und Timer laeuft
                if((nr == 2) && zyklus_timer)
                {
                        clearTimeout(zyklus_timer)
                        zyklus_timer        = setTimeout("zyklus(4)", zyklus_zeit * 1000)
                }

                // Automatischer Selbstaufruf
                if(nr == 4 || aktivierung)
                {
                        // Zyklische Anzeige
                        if(WechselZyklisch.checked)
                        {
                                if(zyklus_timer || aktivierung)
                                        zyklus_timer        = setTimeout("zyklus(4)", zyklus_zeit * 1000)
                                if(!aktivierung && zyklus_timer)
                                {
                                        if(folie_nr == (parameter_folien.length - 1))
                                                folie(0)
                                        else
                                                wechsel(1)
                                }
                        }

                        // Einfacher Durchlauf
                        else
                        {
                                if(folie_nr < (parameter_folien.length - 1))
                                {
                                        if(zyklus_timer || aktivierung)
                                                zyklus_timer        = setTimeout("zyklus(4)", zyklus_zeit * 1000)
                                        if(!aktivierung && zyklus_timer)
                                                wechsel(1)
                                        status        = ""
                                }
                                else
                                {
                                        WechselAktiv.checked        = false
                                        WechselZyklisch.checked        = false
                                        status        = "Letztes Bild f\xFCr den automatischen Wechsel erreicht."
                                }
                        }
                }
        }
}

// HTML-Quelltext Navigation
function navigation()
{
        var        i
        var        o        = ""

        for(i = 0; i < parameter_folien.length; i++)
                o        += "<OPTION VALUE=\"" + String(i) + "\"" + ((i == 0) ? " SELECTED" : "") + ">" + parameter_folien[i].titel + "\n"

        return "<HTML>" +
                "<HEAD>\n" +
                "<TITLE>Navigation</TITLE>\n" +
                "<META HTTP-EQUIV=\"CONTENT-TYPE\" CONTENT=\"text/html; CHARSET=iso-8859-1\">\n" +
                "</HEAD>\n" +
                "<BODY " + dokfarben + " LEFTMARGIN=0 TOPMARGIN=0 BOTTOMMARGIN=0 RIGHTMARGIN=0 MARGINWIDTH=0 MARGINHEIGHT=0>\n" +
                "<FORM NAME=\"NavForm\">\n" +
                "<TABLE BORDER=\"0\" CELLPADDING=1 CELLSPACING=0 WIDTH=\"100%\" HEIGHT=\"100%\">\n" +
                "<TR ALIGN=\"CENTER\" VALIGN=\"MIDDLE\">\n" +
                "<TD WIDTH=\"49%\" ROWSPAN=2><STRONG><FONT SIZE=\"6\">" + parameter_titel + "</FONT></STRONG></TD>\n" +
                "<TD WIDTH=\"1%\" ROWSPAN=2>&nbsp;</TD>\n" +
                "<TD WIDTH=\"24%\" NOWRAP><STRONG><SELECT NAME=\"Wahl\" onChange=\"parent.folie(parseInt(this.options[this.selectedIndex].value))\">\n" +
                o +
                "</SELECT></STRONG></TD>\n" +
                "<TD WIDTH=\"1%\">&nbsp;</TD>\n" +
                "<TD WIDTH=\"24%\" NOWRAP><TABLE BORDER=0 CELLSPACING=0 CELLPADDING=0>\n" +
                "<TR ALIGN=\"CENTER\" VALIGN=\"MIDDLE\">\n" +
                "<TD><STRONG><INPUT TYPE=\"BUTTON\" VALUE=\"Gehe zu Seite\" onClick=\"parent.sprung()\"></STRONG></TD>\n" +
                "<TD>&nbsp;</TD>\n" +
                "<TD><STRONG><INPUT TYPE=\"TEXT\" NAME=\"Nr\" SIZE=3 MAXLENGTH=3 onChange=\"parent.sprung()\"></STRONG></TD>\n" +
                "</TR>\n" +
                "</TABLE></TD>\n" +
                "<TD WIDTH=\"1%\">&nbsp;</TD>\n" +
                "<TD WIDTH=\"23%\" NOWRAP><STRONG><INPUT TYPE=\"BUTTON\" VALUE=\" |&lt; \" onClick=\"parent.folie(0)\">\n" +
                "<INPUT TYPE=\"BUTTON\" VALUE=\" &nbsp;&lt;&nbsp; \" onClick=\"parent.wechsel(-1)\">\n" +
                "<INPUT TYPE=\"BUTTON\" VALUE=\" &nbsp;&gt;&nbsp; \" onClick=\"parent.wechsel(1)\">\n" +
                "<INPUT TYPE=\"BUTTON\" VALUE=\" &gt;| \" onClick=\"parent.folie(" + String(parameter_folien.length - 1) + ")\"></STRONG></TD>\n" +
                "<TD WIDTH=\"2%\" ROWSPAN=2>&nbsp;</TD>\n" +
                "</TR>\n" +
                "<TR ALIGN=\"CENTER\" VALIGN=\"MIDDLE\">\n" +
                "<TD COLSPAN=5><TABLE BORDER=0 CELLSPACING=0 CELLPADDING=0>\n" +
                "<TR ALIGN=\"CENTER\" VALIGN=\"MIDDLE\">\n" +
                "<TD NOWRAP><SMALL><INPUT TYPE=\"CHECKBOX\" NAME=\"WechselAktiv\" ID=\"WAktiv\" onClick=\"parent.zyklus(1)\"> <LABEL FOR=\"WAktiv\">automatischer Wechsel</LABEL> alle <INPUT TYPE=\"TEXT\" NAME=\"WechselZeit\" SIZE=3 MAXLENGTH=3 VALUE=\"10\" ID=\"WZeit\" onChange=\"parent.zyklus(2)\"> <LABEL FOR=\"WZeit\">Sekunden</LABEL></SMALL></TD>\n" +
                "<TD>&nbsp;</TD>\n" +
                "<TD NOWRAP><SMALL><INPUT TYPE=\"CHECKBOX\" NAME=\"WechselZyklisch\" ID=\"WZyklisch\" onClick=\"parent.zyklus(3)\"> <LABEL FOR=\"WZyklisch\">zyklischer Wechsel</LABEL></SMALL></TD>\n" +
                "</TR>\n" +
                "</TABLE></TD>\n" +
                "</TR>\n" +
                "</TABLE>\n" +
                "</FORM>\n" +
                "</BODY>\n" +
                "</HTML>"
}

// HTML-Quelltext Haupt/Bild
function haupt()
{
        return "<HTML>\n" +
                "<HEAD>\n" +
                "<TITLE>Pr&auml;sentation</TITLE>\n" +
                "<META HTTP-EQUIV=\"CONTENT-TYPE\" CONTENT=\"text/html; CHARSET=iso-8859-1\">\n" +
                "</HEAD>\n" +
                "<BODY " + dokfarben + ">\n" +
                "<TABLE BORDER=\"0\" WIDTH=\"100%\" HEIGHT=\"100%\">\n" +
                "<TR ALIGN=\"CENTER\" VALIGN=\"MIDDLE\">\n" +
                "<TD><IMG SRC=\"" + parameter_folien[folie_nr].datei + "\" NAME=\"Folie\" WIDTH=\"" + parameter_folien_breite + "\" HEIGHT=\"" + parameter_folien_hoehe + "\" ALT=\"\"></TD>\n" +
                "</TR>\n" +
                "</TABLE>\n" +
                "</BODY>\n" +
                "</HTML>"
}

// Generierung eines internen Images
function MakeImage(datei, geladen)
{
        this.datei        = datei
        this.image        = new Image()
        this.geladen        = geladen
}

// Dokumentaufbau
function dokumente()
{
        if(parameter_folien.length == 0)
                return

        var        i
        for(i = 0; i < parameter_folien.length; i++)
                images[i]        = new MakeImage(parameter_folien[i].datei, false)
        with(self["NavFenster"].document)
        {
                open("text/html")
                write(navigation())
                close()
        }
        self["NavFenster"].document.NavForm.Nr.value        = String(folie_nr + 1)
        with(self["HauptFenster"].document)
        {
                open("text/html")
                write(haupt())
                close()
        }

        // Erstes Bild und Nachbarbilder vorladen
        preload(0)

        // Letztes Bild vorladen
        setTimeout("preload_eins(" + String(parameter_folien.length - 1) + ")", wartezeit)
}

// Titelausgabe
with(document)
{
        open("text/html")
        write("<TITLE>" + parameter_titel + "</TITLE>")
        close()
}

//-->