Naviguation dans :  Perl  JavaScript  Détail  - load.cgi?Appel=histoAdmin
 présentée :  par cas d'appel   par traitements 
Retour à l'accueil
  
   
 Requêtes 

 load – Admin 

 histoAdmin 

Requêtes de Ça-déménage.com
Accès professionnel
Historique des messages
 
 
 Bibliothèque CaD 

 Mise en forme 

 Couleur 

Bibliothèque de Ça-déménage.com
Paramètres de mise en forme
Mise en forme du contenu
 


 Bloc  Tracé d'un rectangle extérieur
Syntaxe Bloc(cas)
Paramètres 
nom  type  Description 
cas  IN Cas d'appel
= "<" : ouverture du rectangle
= "|" : fermeture du rectangle et réouverture d'un nouveau rectangle
= ">" : fermeture du rectangle
retourne  OUT Code HTML
Fonctions util. 
 Couleurs Définition des couleurs
 Cadre Tracé d'un cadre


Code Perl 

sub Bloc {local($cas) = @_; 
 local $x=''; 
if($cas eq "<"){
 $x.= ('<table border="0" cellpadding="0" cellspacing="0"><tr><td>');
 $x.= ('<div style="border:2 solid '."#FFFFFF".'"><div'.&Cadre($cFond,"fonce","false").'><div'.&Cadre($cFond,"clair","false").'><div style="border:1 solid '.$cFond.'">');
 $x.= ('<table border="0" cellpadding="0" cellspacing="0"><tr><td>');
 return $x;
}elsif($cas eq "|"){
 $x.= ('</td></tr><tr><td>');
 return $x;
}elsif($cas eq ">"){
 $x.= ('</td></tr></table>');
 $x.= ('</div></div></div></div>');
 $x.= ('</td></tr></table>');
 return $x;
}}
Code JavaScript 

function Bloc(cas) { 
 var x=''; 
switch(cas) {
case "<":
 x+= ('<table border="0" cellpadding="0" cellspacing="0"><tr><td>');
 x+= ('<div style="border:2 solid '+"#FFFFFF"+'"><div'+Cadre(cFond,"fonce","false")+'><div'+Cadre(cFond,"clair","false")+'><div style="border:1 solid '+cFond+'">');
 x+= ('<table border="0" cellpadding="0" cellspacing="0"><tr><td>');
 return x;
case "|":
 x+= ('</td></tr><tr><td>');
 return x;
case ">":
 x+= ('</td></tr></table>');
 x+= ('</div></div></div></div>');
 x+= ('</td></tr></table>');
 return x;
}}