// (C) 2003 - 2011 Serge Lamarche
// http://sergewebservice.ca/
// All codes copyrights Serge Lamarche, any reproduction and 
// use strictly forbidden without written consent.
// Tous les codes droits d'auteurs Serge Lamarche, toute reproduction et 
// utilisation est strictement interdite sans autorisation écrite.
// Contact: info@sergewebservice.ca, sergewebservice@yahoo.ca or/ou serge_lamarche@hotmail.com 
// ...for help with your website. Reliable, inexpensive website service. Thanks.
// ...pour de l'aide avec votre site. Service internet abordable et professionnel. Merci. 


//fonctions diaporama:
var repertoire = "photos"; var imgdiapo=new Array(); 
function precharge(nomdiapo) { 
if (!imgdiapo[nomdiapo]) imgdiapo[nomdiapo] = new Array(); 
for (var i=0;i<diapodata[nomdiapo].length;i++) { 
imgdiapo[nomdiapo][i] = new Image(); 
imgdiapo[nomdiapo][i].src = repertoire+"/"+diapodata[nomdiapo][i][0]; }; }; 

var nbidiapo = -1; if (!nbidiapo) nbidiapo=1; //prévient false; 
function diaporama(direction, nomdiapo) { 
var ladiapoimg = document.getElementById ? document.getElementById("diapoimg") : document.images["diapoimg"]; 
	if (ladiapoimg.style) ladiapoimg.style.filter="blendTrans(duration=0.5)";
	if (typeof(ladiapoimg.filters)!="undefined") { 
	ladiapoimg.filters.blendTrans.apply();
	ladiapoimg.src = imgdiapo[nomdiapo][nbidiapo].src; 
	ladiapoimg.filters.blendTrans.play(); }
	else ladiapoimg.src = imgdiapo[nomdiapo][nbidiapo].src; 
if (document.getElementById) { document.getElementById("diapolegende").innerHTML = ''; 
document.getElementById("diapolegende").innerHTML = diapodata[nomdiapo][nbidiapo][1]; }; }

var todiapo=false; 
function diapoaction(direction, nomdiapo) { if (todiapo) niltodiapo(); 
var nbidiapoavant = nbidiapo; 
if (direction) { nbidiapo++; if (nbidiapo==diapodata[nomdiapo].length) nbidiapo=0; } 
else { nbidiapo--; if (nbidiapo<0) nbidiapo = diapodata[nomdiapo].length-1; };
if (imgdiapo[nomdiapo][nbidiapo].complete) { diaporama(direction, nomdiapo); } 
else nbidiapo = nbidiapoavant;
diapoto = window.setTimeout("diapoaction("+direction+", '"+nomdiapo+"')",5000); todiapo=true; }

function niltodiapo() { if (todiapo) { window.clearTimeout(diapoto); todiapo=false; }; }



//fonctions de base:

function rien() { return; };

//change le bg comme :hover:
function cefonddevient(cetelement,couleurfond) { 
if (cetelement.style) cetelement.style.background = couleurfond; }; 


function afficheDate(maj) { if (!document.createTextNode||!document.appendChild) return; 
var dmaj = new Array(); var now = new Date(); 
var jour = new Array("dimanche","lundi","mardi","mercredi","jeudi","vendredi","samedi");
var mois = new Array("janvier","février","mars","avril","mai","juin","juillet", "août","septembre","octobre","novembre","décembre");
var day = new Array("Sunday","Monday","Tuesday","Wednesday","Thursday","Friday","Saturday");
var month = new Array("January","February","March","April","May","June","July", "August","September","October","November","December");
dmaj[0]=Number(maj.getDay()); dmaj[1]=Number(maj.getDate()); 
dmaj[2]=Number(maj.getMonth()); dmaj[3]=Number(maj.getYear()); 
if (isNaN(dmaj[0])||isNaN(dmaj[1])||isNaN(dmaj[2])||isNaN(dmaj[3])||(dmaj[3]==1970)||((1000*60)>(now.getTime() - maj.getTime()))) return; 
if (dmaj[3] < 99) {dmaj[0]=dmaj[0]-1};
var MM = dmaj[3] + ((dmaj[3] < 1999) ? (dmaj[3] < 99 ? 2000 : 1900) : 0) ;
var un = one = ""; if (dmaj[1] == 1) {un = "er"; one = "st"; }; 
var dmajtxten = document.createTextNode("Last update "+day[dmaj[0]]+", "+MM+" "+month[dmaj[2]]+" "+dmaj[1]+one+"."); document.getElementById('dmajen').appendChild(dmajtxten); dmajtxten = document.createElement("br"); document.getElementById('dmajen').appendChild(dmajtxten); dmajtxten = document.createTextNode("© Peter Bowle-Evans' family."); document.getElementById('dmajen').appendChild(dmajtxten); }; 

function fureteur() { var navteur = navigator.userAgent.toLowerCase(); 
var fureteurs = ["konqueror", "safari", "omniweb", "opera", "webtv", "icab", "msie", "firefox", "gecko", "compatible", "mozilla"]; 
for (var i=0;i<fureteurs.length;i++) { var furteur = new RegExp(fureteurs[i], "i"); 
if (-1!=navteur.search(furteur)) return fureteurs[i]; }; return "inconnu"; }
//Thanks to PPK www.quirksmode.com. His infos helped me quickly create these two functions.
function systOp() { var navteur = navigator.userAgent.toLowerCase(); 
var codesSystOp = ["linux", "x11", "mac", "win"]; 
var systOps = ["linux", "unix", "macintosh", "windows"]; 
for (var i=0;i<codesSystOp.length;i++) { var OSys = new RegExp(codesSystOp[i], "i"); 
if (-1!=navteur.search(OSys)) return systOps[i]; }; return "inconnu"; }

//ajuste grandeur textes selon grandeur écran: *** à mettre à jour!!!!
function ajuste() { ; 
if (!document.styleSheets||!document.getElementById||!document.body.clientWidth) return; 
if (document.body.clientWidth>900) return; 
var pasfirefox = fureteur(); pasfirefox = (pasfirefox!="firefox"); 
for (var i=0;i<document.styleSheets.length;i++) { 
var chg = document.styleSheets[i]; 
if (chg.insertRule) { //&&pasfirefox// plusieurs changements de css fait capoter firefox.
chg.insertRule('p {font-size: 12px; line-height: 16px; }', chg.cssRules.length); 
chg.insertRule('h1 {font-size: 20px; text-align: center;}', chg.cssRules.length); 
chg.insertRule('h2, h3 {font-size: 14px; line-height: 18px; }', chg.cssRules.length); 
chg.insertRule('li {font-size: 12px; line-height: 16px; }', chg.cssRules.length);
chg.insertRule('div.nav { width: 13em; }', chg.cssRules.length); } 
else if (chg.addRule) { 
chg.addRule('p', 'font-size: 12px; line-height: 16px; '); 
chg.addRule('h1', 'font-size: 20px; '); 
chg.addRule('h2', 'font-size: 14px; line-height: 18px; '); 
chg.addRule('h3', 'font-size: 14px; line-height: 18px; '); 
chg.addRule('li', 'font-size: 12px; line-height: 16px; '); 
chg.addRule('div.nav', 'width: 13em; '); }; }; }; 



// (C) 2003 - 2011 Serge Lamarche
// http://sergewebservice.ca/
// All codes copyrights Serge Lamarche, any reproduction and 
// use strictly forbidden without written consent.
// Tous les codes droits d'auteurs Serge Lamarche, toute reproduction et 
// utilisation est strictement interdite sans autorisation écrite.
// Contact: info@sergewebservice.ca, sergewebservice@yahoo.ca or/ou serge_lamarche@hotmail.com 
// ...for help with your website. Reliable, inexpensive website service. Thanks.
// ...pour de l'aide avec votre site. Service internet abordable et professionnel. Merci.