test_pre-mlib/HTML/tabla_estilos.php

   1 <?
   2
   3 #require_once '../../lib/MECON/HTML/Tabla.php';
   4 require_once 'MECON/HTML/Tabla.php';
   5 $tablas = array();
   6 $estilos = array();
   7 #$dir = dir('../../lib/MECON/HTML/Tabla');
   8 $dir = dir('../../lib/MECON/HTML/Tabla');
   9 while (($f = $dir->read()) !== false) {
  10         if (preg_match('/^estilo_(.*)\.php$/', $f, $m)) {
  11                 $tablas[] = new MECON_HTML_Tabla(array(), $m[1]);
  12                 $estilos[] = $m[1];
  13         }
  14 }
  15
  16 ?>
  17 <html>
  18 <head>
  19 <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
  20 <title>
  21 Prueba de Tabla.
  22 </title>
  23 <?# for ($i = 0; $i < count($tablas); $i++) echo '<link rel="StyleSheet" href="' . str_replace('/MECON/css/html/tabla/', '/~llucar/meconlib/www/css/html/tabla/', $tablas[$i]->getCSS()) . '"/>' ?>
  24 <? for ($i = 0; $i < count($tablas); $i++) echo '<link rel="StyleSheet" href="' . $tablas[$i]->getCSS() . '"/>' . "\n" ?>
  25 </head>
  26 <body bgcolor="#FFFFFF" color="#000000" align="center">
  27 <table width="760" align="center">
  28 <tr>
  29 <td>
  30 <?php
  31
  32 for ($i = 0; $i < count($tablas); $i++) {
  33
  34     echo '<h3>' . $estilos[$i] . '</h3>';
  35
  36     $row =  array ('R0C0','R1C1','R1C2','R2C3','R2C4','R2C5','R2C6','R2C7','R2C8','R2C9');
  37     $tablas[$i]->addRow($row,'cabecera colspan=10');
  38     $row =  array ('R1C0','R1C1','R1C2','R2C3','R2C4','R2C5','R2C6','R2C7','R2C8','R2C9');
  39     $tablas[$i]->addRow($row);
  40     $row =  array ('R2C0','R2C1','R2C2','R2C3','R2C4','R2C5','R2C6','R2C7','R2C8','R2C9');
  41     $tablas[$i]->addRow($row);
  42     $row =  array ('R3C0','R3C1','R3C2','R3C3','R3C4','R3C5','R3C6','R3C7','R3C8','R3C9');
  43     $tablas[$i]->addRow($row);
  44
  45     $tablas[$i]->updateCellAttributes(1, 0, 'rowspan=3');
  46     $tablas[$i]->updateCellAttributes(1, 1, 'rowspan=3');
  47     $tablas[$i]->updateCellAttributes(1, 2, 'colspan=8');
  48     $tablas[$i]->updateCellAttributes(2, 2, 'colspan=2');
  49     $tablas[$i]->updateCellAttributes(2, 4, 'colspan=2');
  50     $tablas[$i]->updateCellAttributes(2, 6, array ('colspan'=>2));
  51     $tablas[$i]->updateCellAttributes(2, 8, 'colspan=2');
  52     $tablas[$i]->updateColAttributes(2, 'titulo');
  53
  54     echo $tablas[$i]->toHtml() . '<br>';
  55 }
  56
  57 ?>
  58 </td>
  59 </tr>
  60 </table>
  61 </body>
  62 </html>
  63
  64