/*   Created by:                                         */
/*   Hans-Norbert Alt  Postfach 1234  D-34362 Hofgeismar */
/*   eMail: alt@adhog.de                                 */
/*                                                       */
/*   Juni 2003                                           */
/*-------------------------------------------------------*/


function Bildlader() { //v3.0
  var d=document; if(d.images){ if(!d.Bild) d.Bild=new Array();
    var i,j=d.Bild.length,a=Bildlader.arguments; for(i=0; i<a.length; i++)
    if (a[i].indexOf("#")!=0){ d.Bild[j]=new Image; d.Bild[j++].src=a[i];}}
}

function Bildfinden(n, d) { //v4.0
  var p,i,x;  if(!d) d=document; if((p=n.indexOf("?"))>0&&parent.frames.length) {
    d=parent.frames[n.substring(p+1)].document; n=n.substring(0,p);}
  if(!(x=d[n])&&d.all) x=d.all[n]; for (i=0;!x&&i<d.forms.length;i++) x=d.forms[i][n];
  for(i=0;!x&&d.layers&&i<d.layers.length;i++) x=Bildfinden(n,d.layers[i].document);
  if(!x && document.getElementById) x=document.getElementById(n); return x;
}

function Gruppe(event, Gruppenname) { //v3.0
  var i,img,hnaArr,args=Gruppe.arguments;
  if (event == "init" && args.length > 2) {
    if ((img = Bildfinden(args[2])) != null && !img.Initial) {
      img.Initial = true; img.Auf = args[3]; img.Ab = img.src;
      if ((hnaArr = document[Gruppenname]) == null) hnaArr = document[Gruppenname] = new Array();
      hnaArr[hnaArr.length] = img;
      for (i=4; i < args.length-1; i+=2) if ((img = Bildfinden(args[i])) != null) {
        if (!img.Auf) img.Auf = img.src;
        img.src = img.Ab = args[i+1];
        hnaArr[hnaArr.length] = img;
    } }
  } else if (event == "ueber") {
    document.Tueber = hnaArr = new Array();
    for (i=1; i < args.length-1; i+=3) if ((img = Bildfinden(args[i])) != null) {
      if (!img.Auf) img.Auf = img.src;
      img.src = (img.Ab && args[i+2]) ? args[i+2] : args[i+1];
      hnaArr[hnaArr.length] = img;
    }
  } else if (event == "out" ) {
    for (i=0; i < document.Tueber.length; i++) {
      img = document.Tueber[i]; img.src = (img.Ab) ? img.Ab : img.Auf; }
  } else if (event == "down") {
    if ((hnaArr = document[Gruppenname]) != null)
      for (i=0; i < hnaArr.length; i++) { img=hnaArr[i]; img.src = img.Auf; img.Ab = 0; }
    document[Gruppenname] = hnaArr = new Array();
    for (i=2; i < args.length-1; i+=2) if ((img = Bildfinden(args[i])) != null) {
      if (!img.Auf) img.Auf = img.src;
      img.src = img.Ab = args[i+1];
      hnaArr[hnaArr.length] = img;
  } }
}

function Statusanzeige(Bezeichnung)  {
	window.status=Bezeichnung; document.Rueckgabewert = true;
	}