HTML-Code

<form name="Neo_Einstellungen13" action=""> <table border="0" width="400"> <tr> <td width="400" align="center" colspan="2"><font face="Arial" size="3"><b>Neoplastizismus</b></font></td> </tr> <tr> <td width="400" colspan="2">&nbsp;</td> </tr> <tr> <td width="400" colspan="2"> <script type="text/javascript"> <!-- /* © Valentin Hammer Originalversion auf http://www.supermario.homepage.eu */ var uInnerHTML = document.Neo_Einstellungen13.innerHTML ? 1:0; if(uInnerHTML==0) document.write(unescape('%3Cfont face="Arial" size="2" color="#FF0000">'+'Der Browser kann dieses Javascript nicht ausführen'.bold()+'%3C/font>')); var Hexawerte13 = "0123456789ABCDEF"; function Start_Neo13() { if(uInnerHTML==1) { var generieren13 = true; with(document.Neo_Einstellungen13) { var Feldlaenge13 = parseInt(Laenge_Feld13.value); var Feldhoehe13 = parseInt(Hoehe_Feld13.value); var Kaestchenlaenge13 = parseInt(Laenge_Kaestchen13.value); var Kaestchenbreite13 = parseInt(Breite_Kaestchen13.value); var Rahmendicke13 = parseInt(Dicke_Rahmen13.value); var Rahmenart13 = Art_Rahmen13.value; } var erstellte_Kaestchen13 = '%3Ctable border="0">'; if(Feldlaenge13+""=="NaN") Feldlaenge13 = 10; if(Feldhoehe13+""=="NaN") Feldhoehe13 = 10; if(Kaestchenlaenge13+""=="NaN") Kaestchenlaenge13 = 40; if(Kaestchenbreite13+""=="NaN") Kaestchenbreite13 = 40; if(Rahmendicke13+""=="NaN") Rahmendicke13 = 1; if(document.Neo_Einstellungen13.Kaestchenanzahl13.checked==true) generieren13 = confirm(Feldlaenge13*Feldhoehe13+" Kästchen generieren?"); if(generieren13==true) { for(var i=0;i<Feldhoehe13;i++) { erstellte_Kaestchen13 += '%3Ctr>'; for(var j=0;j<Feldlaenge13;j++) { var Farbcode13 = ""; for(var k=0;k<6;k++) Farbcode13 += Hexawerte13.charAt(Math.round(Math.random()*15)); erstellte_Kaestchen13 += '%3Ctd>%3Ctable border="0" cellspacing="0" cellpadding="0" bgcolor="#'+Farbcode13+'" width="'+Kaestchenlaenge13+'" height="'+Kaestchenbreite13+'" style="border: '+Rahmendicke13+'px '+Rahmenart13+' #000000">%3Ctr>%3Ctd>'+''.bold()+'%3C/td>%3C/tr>%3C/table>%3C/td>'; } erstellte_Kaestchen13 += '%3C/tr>'; } document.Flaeche13.innerHTML = unescape(erstellte_Kaestchen13+'%3C/table>'); } } } //--> </script></td> </tr> <tr> <td width="200" align="right"><font face="Arial" size="2"><b>Länge des erstellten Feldes:</b></font></td> <td width="200"><input type="text" name="Laenge_Feld13" size="4" value="10"></td> </tr> <tr> <td width="200" align="right"><font face="Arial" size="2"><b>Höhe des erstellten Feldes:</b></font></td> <td width="200"><input type="text" name="Hoehe_Feld13" size="4" value="10"></td> </tr> <tr> <td width="200" align="right"><font face="Arial" size="2"><b>Länge der Kästchen:</b></font></td> <td width="200"><input type="text" name="Laenge_Kaestchen13" size="4" value="40"></td> </tr> <tr> <td width="200" align="right"><font face="Arial" size="2"><b>Breite der Kästchen:</b></font></td> <td width="200"><input type="text" name="Breite_Kaestchen13" size="4" value="40"></td> </tr> <tr> <td width="200" align="right"><font face="Arial" size="2"><b>Dicke des Rahmens:</b></font></td> <td width="200"><input type="text" name="Dicke_Rahmen13" size="4" value="1"></td> </tr> <tr> <td width="200" align="right"><font face="Arial" size="2"><b>Art des Rahmens:</b></font></td> <td width="200"> <select size="1" name="Art_Rahmen13"> <option selected value="solid">durchgezogen</option> <option value="dotted">gepunktet</option> <option value="dashed">gestrichelt</option> <option value="double">doppelt</option> <option value="groove">vertiefte Linie</option> <option value="ridge">erhabene Linie</option> <option value="inset">vertiefte Fläche</option> <option value="outset">erhabene Fläche</option> <option value="">kein Rahmen</option> </select> </td> </tr> <tr> <td width="400" colspan="2"> <font face="Arial" size="2">Anzahl der Kästchen vor generieren anzeigen: <input type="checkbox" name="Kaestchenanzahl13" checked></font></td> </tr> <tr> <td width="400" colspan="2"> <input type="button" value="Kästchen generieren" onclick="Start_Neo13()"> <input type="button" value="Kästchen löschen" onclick="if(uInnerHTML==1)document.Flaeche13.innerHTML = '&nbsp;'"></td> </tr> </table> </form> <form name="Flaeche13" action="">&nbsp;</form>