CCG de Noël
Explications

Bonjour!
 
Après un formatage, aie! Pourvu que Jceel ne me lise pas, il y a quelques jours.
j'ai de nouveau une machine toute propre...qui tourne comme une horloge....enfin presque.
 
Je vous ai donc préparé le CCG de Noël.
Pas trop compliqué, il adapte seul la dimension des images,
il pourra donc resservir facilement pour envoyer vos cartes de voeux.
 
En bleu, ma prose....
 
--------------------------------------------------------------------------
Pour commencer: le script
Il va ouvrir la fenêtre "popup"
Et ouvrir ou fermer la carte de voeux
Les plus hardis tenteront de changer les transitions, en vert.
<HTML>
<HEAD>
<SCRIPT language=VBScript>
'----------------------------------------------------------------------------
' Popup Greeting Card (shutter open), by Bill Scott
'----------------------------------------------------------------------------
' All HTML and script by Bill Scott, March, 2001
' IE 5.5+ only
 
' Note: When sending as an e-mail or post, be sure to remove the entire BASE tag
' found near the top of the script in the OE compose "SOURCE" window. Failure
' to remove this tag will cause an error when previewing and at the receiver's
' end. OE adds this tag automatically when used as stationery. It is not
' compatible with the new 5.5 popup window. In doing this, you must also use
' the full file path to any files used by this script.
 
' Note: **You must use the full file path to each of the files in this script.
 
 

Option Explicit
 

Dim Popup
Dim PopupBody
Dim PopupAll
 
Set Popup=window.createPopup()
Set PopupBody=Popup.document.body
Set PopupAll=PopupBody.all
 

PopupBody.style.backgroundColor="#000000"
 

Sub Window_OnLoad()
 
On Error Resume Next
PopupBody.style.backgroundImage="URL(" & bkg.src & ")"
PopupBody.innerHTML="<div style='display:none'>" & PopupStyle.innerHTML & "</div>" & src.innerHTML
Popup.show 0,0,window.parent.screen.width,window.parent.screen.height
 

'General Greeting Card script starts here.
With PopupAll
 .CardText.style.backgroundColor="transparent"
 .CardImage.style.posWidth=545
 .CardImage.style.posHeight=346
 .CardFront.style.pixelLeft=(window.parent.screen.width-.CardImage.style.posWidth)/2
 .CardInside.style.pixelLeft=.CardFront.style.pixelLeft
 .CardFront.style.pixelTop=((window.parent.screen.height-.CardImage.style.posHeight)/2)-50
 .CardInside.style.pixelTop=.CardFront.style.pixelTop
 .CardImage.style.pixelLeft=0
 .CardImage.style.pixelTop=0
 .note.style.pixelLeft=30
 .CardFront.style.visibility="visible"
 .note.style.visibility="visible"
End With
End Sub
 
Sub showPopup()
 Popup.show 0,0,window.screen.width,window.screen.height
End Sub
 
Sub hideFront()
With PopupAll
 .CardFront.filters.item(0).Apply()
 .CardFront.style.visibility = "hidden"
 .CardFront.filters.item(0).Transition=12
 .CardFront.filters.item(0).play(5.000)
 
 .CardInside.filters.item(0).Apply()
 .CardInside.style.visibility = "visible"
 .CardInside.filters.item(0).Transition=15
 .CardInside.filters.item(0).play(5.000)
End With
End Sub
 
Sub closeCard()
With PopupAll
 .CardInside.filters.item(0).Apply()
 .CardInside.style.visibility = "hidden"
 .CardInside.filters.item(0).Transition=16
 .CardInside.filters.item(0).play(5.000)
 
 .CardFront.filters.item(0).Apply()
 .CardFront.style.visibility = "visible"
 .CardFront.filters.item(0).Transition=12
 .CardFront.filters.item(0).play(5.000)
End With
End Sub
 
</script>
 
</HEAD>
 
Ici le fond sonore

<BGSOUND src="c:/Mes documents/CCG/jingle.mid" volume=0 loop=1>
Puis le fond de la fenêtre lorsque le popup est fermé
Ici, j'ai mis le même fond que celui du popup, mais il peut être différent.
 
<BODY bgcolor="#ffffff" background="c:/Mes documents/CCG/fd3.jpg">
 
Ici un DIV de la taille que vous voulez et placé ou vous voulez,
Il contient le texte qui apparait à la fermeture du popup
Vous pouvez supprimer ceci:
 
<div style="position:absolute;top:150 px;left:200px;width:300px;height:150px;background-color:#ffffff;filter:alpha(opacity=70);z-index:10;padding:20px">Des explications suivent...<br>Merci à Bill Scott pour ce script. <br><br>A bientôt</div>
 
 
 
<DIV id=src style="display:none">
 
Ci dessous, les style, couleur, taille du texte
Et le style de la scrollbar.
Si vous ne désirez pas un style particulier pour la scrollbr, supprimez les 8 lignes correspondantes.
 
 
<STYLE id=PopupStyle>
 BODY {
  color:#757151;
  font-size:11pt;
  font-family:cursive;
  scrollbar-3dLight-Color:#808080;
  scrollbar-Arrow-Color:#000044;
  scrollbar-Base-Color:#ffffff;
  scrollbar-DarkShadow-Color:#000000;
  scrollbar-Face-Color:#ffffff;
  scrollbar-Highlight-Color:#ffffff;
  scrollbar-Shadow-Color:#000000;
  scrollbar-Track-Color:#f4f4f4}
</STYLE>
 
<!--BE SURE TO USE THE FULL FILE PATH TO ALL FILES IN THIS SCRIPT-->
 
L'invite à cliquer sur la carte...
 
<DIV id=note style="color:#757151; LEFT:-1800px; POSITION:absolute; TOP:10px">
<b><i>Clic la carte.......</i></b>
</DIV>
 
Verso:Ici L'image de la carte ouverte, celle où va apparaitre le texte. (ecrit)
Et l'image qu'il faudra cliquer pour retourner au recto de la carte. (sapin) qui peut être remplacée par du texte
<!-- Ici la carte ouverte -->
<div id=CardInside style="filter:revealTrans; visibility:hidden; z-index:1; width:565px; height:366px; position:absolute; top:40px; left:30px">
<span language="VBScript" onClick="parent.closeCard" style="cursor:hand; color:blue; position:absolute; left:450px; top:255px"><u><img src="c:/Mes documents/CCG/sapin.gif"></u></span>
<IMG src="c:/Mes documents/CCG/ecrit.jpg" style="width:565px; height:366px">
 
 
 
<!--ici l'arrière plan est rendu transparent par le script. Il autorise simplement le choix du curseur dans OE-->
 
<div id=CardText style="z-index:2; width:565px; height:366px; position:absolute; top:0px; left:0px; background-color:#ffffff">
 
maintenant, le texte.
Attention de ne pas être trop bavard pour ne pas dépasser.....
 
<div id=text style="width:90%; HEIGHT:85%; LEFT:12%; POSITION: absolute; top:15%; overflow:auto">
Bonjour!!<br><br>
Pour le Père Noël, c'est le moment<br>
 des derniers préparatifs.
...<br>
Je l'ai rencontré, et il m'a promis<br>
Pleins de cadeaux pour les CCGistes ;-)<br><br>
Je vous souhaite un Joyeux Noël<br>
Et de Bonnes Fêtes de fin d'Année.<br>
Attention aux excès :o)<br><br>
Bisous <br>
Laurence.............clic le sapin..................
</div>
</div>
</div>
 
Recto:  

<!-- ici la carte postale. Sa taille sera ajusté automatiquement-->
<!--vous pouvez choisir le style de la bordure ci-dessous. remplacer "border-style:none" par "border-style:ridge" par exemple -->
<div id=CardFront language=VBScript onClick="parent.hideFront" style="filter:revealTrans; visibility:visible; z-index:3; width:565px; height:366px; position:absolute; top:40px; left:-1800px; border-width:10px 10px 10px 10px; border-style:none; border-color:#ffffff">
<IMG id=cardImage src="c:/Mes documents/CCG/carte1.jpg" style="LEFT: -1800px; POSITION: absolute">
</div>
 
Le bouton pour fermer le popup
 

<BUTTON id=closeButton language=vbs onclick="parent.Popup.hide" style="z-index:99; cursor:hand; position:absolute; left:90%; top:93%; background-color:#E3DDCF; color:#000000">Close</BUTTON>
 
</DIV>
 
Le fond du popup:
 
<!-- Vos pouvez mettre un fond au popup ici. Sinon, enlever cette ligne-->
 
<IMG id=bkg style="display:none" src="c:/Mes documents/CCG/fd3.jpg">
 
L'ouverture du popup
 
<!-- Ici le texte qui commande l'ouverture du popup-->
 
<span language=vbs onClick="showPopup" style="cursor:hand; font-size:9pt; color:#757151"><b><u>Ouvrir</u></b></span>
 
</BODY>
</HTML>
-------------------------------------------------------------------------
 
Voilà.
Il ne vous reste qu'à vous mettre au travail...
Je vous souhaite encore de Bonnes Fêtes.
 
Bisous
Laurence

Menu