<?       
function ShowJava($skup, $adresar_nahled, $zobr, $poc_stranka, $pocet_obr, $adresar_fotky, $adresar_titulek, $font, $filtr) {
global $jmeno_obr;
$radkovani=0;
echo "<script language=\"JavaScript\">
       <!-- \n";
for ($i=$zobr;$i<=$poc_stranka;$i++):
   $radkovani++;
   $adres = $filtr."/".$skup."/".$adresar_fotky."/". $jmeno_obr["$i"];
   @$parametry=GetImageSize($adres);
   
   $delka_s=StrLen($jmeno_obr["$i"]);
   $soubor=SubStr($jmeno_obr["$i"],0,$delka_s-3);
   $soub_titul=$soubor ."txt";
   $adresa_t = $filtr."/".$skup."/".$adresar_titulek."/". $soub_titul;
   @$poc_znak = FileSize("$adresa_t");
   
   $s_okraje = 45;
   $font_vys = ImageFontHeight($font);
   $font_sir = ImageFontWidth($font);
   $sirka_znak = $font_sir * $poc_znak;
   if ($sirka_znak<>0):
    $font_radku = Ceil($sirka_znak / ($parametry[0]));
   else:
    $font_radku = 0;
   endif; 
   $titul_v = ($font_radku * $font_vys) + $font_vys + 10 + ($font_radku * $font_vys * 0.2) + 27; //konecny vypocet vysky titulku k fotkam, navic pricitam 1 radek a 10 bodu na delici bunku, a mezeru mezi radky, standart je 0.3
   
   $param0 = Ceil($parametry[0] + $s_okraje);
   $param1 = Ceil($parametry[1] + $titul_v);
   if ($parametry[3])
    echo "function open". $radkovani ."(){
         u_okno=window.open(\"\",\"foto_lupa\",\"width=". $param0 .",height=". $param1 .",toolbar=no,location=no,directories=no,status=no,menubar=no,scrollbars=no,resizable=no,copyhistory=no,left=100\");
         } \n";
   if ($i >= $pocet_obr)             //ukončí výpis Scriptu při konci pole
     break;
       
endfor;
echo "//-->
      </script>";
     
}
       
function ShowImage($skup, $adresar_nahled, $zobr, $poc_stranka, $obr_radek, $pocet_obr, $filtr) {
global $jmeno_obr;
$radkovani=0; 

echo "<center> \n <table border=\"0\" cellpadding=\"0\" cellspacing=\"0\" style=\"border-collapse: collapse\" width=\"90%\" bordercolor=\"#0099FF\"> \n <tr> \n";
for ($i=$zobr;$i<=$poc_stranka;$i++):
//echo $i;
  $radkovani++;
  $adresa = $filtr."/".$skup."/".$adresar_nahled."/". $jmeno_obr["$i"];
  @$parametr=GetImageSize($adresa);   //zjistujeme rozmery obrazku
   echo "<td width=\"33%\" align=center>
         <table border=\"2\" cellpadding=\"1\" cellspacing=\"1\" style=\"border-collapse: collapse\"  bordercolor=\"#9EF6B5\"><tr><td> \n
         <a href=\"./fotografie/foto_lupa.php?filtr=$filtr&skup=$skup&obrazek=". $jmeno_obr["$i"] ." \" onClick=\"open". $radkovani ."()\" target=\"foto_lupa\">\n
         <img border=\"1\" src=\"". $adresa ." \" ". $parametr[3] ."></a></td></tr></table> \n
         </td> \n ";
   if ((($radkovani%$obr_radek)==0) AND ($radkovani<>0)):
     echo "</tr><tr> \n "; 
     echo "<tr><td height=\"10\" colspan=". $obr_radek ."  align=center></td></tr>";
   endif;
   if ($i >= $pocet_obr)             //ukončí výpid tabulek při konci pole
     break;
       
endfor;

while (!($radkovani%$obr_radek)==0):
   echo "<td width=\"33%\" align=center></td> \n";
   $radkovani++;
   if ((($radkovani%$obr_radek)==0) AND ($radkovani<>0))
     echo "</tr> \n ";
endwhile;
echo "</table></center>";
 
}

function ShowMenu($zobr, $zac, $limit, $pocet_obr, $skup, $pom) {
echo "<table width=\"80%\"><tr>";
echo "<td width=\"50%\" align=\"left\">";
$dalsi=$zobr+1+$limit;
$predchozi=$zobr-1-$limit;
if ($zobr>$zac)
   echo "<a href=\"xxxxxx.php?filtr=fotografie&ukaz=fotografie&ram_1=fot_l&ram_x=$pom&zobr=$predchozi&skup=$skup\">..předchozí</a>";
echo "<td width=\"50%\" align=\"right\">";
if ($pocet_obr>($zobr+$limit))
   echo "<a href=\"xxxxxx.php?filtr=fotografie&ukaz=fotografie&ram_1=fot_l&ram_x=$pom&zobr=$dalsi&skup=$skup\">další..</a>";
echo "</tr></table>";
}             
?>
         
<?php
//ve skriptu menu se prenasi odkazem hodnota promene $zobr..od ktere polozky pole se ma zacit vykreslovat obrazky, na tuto hodnute se musi nastavit i promena $zac
  $obr_radek=3;       
  $adresar_nahled = "foto_n";
  $adresar_fotky = "foto";
  $adresar_titulek = "titulek";
  $font = 2;
         
  // generace skriptu pro nacitani fotek
   $pocet_obr=0;
   @$adresar = Dir("$filtr/$skup/$adresar_nahled");  // nacteni fotek do pole z adresare
   while (@$polozka=$adresar->Read()):
     $pocet_obr = $pocet_obr + 1;
     $jmeno_obr[$pocet_obr] = $polozka;
  endwhile; 
  $adresar->Close();

  $zac=3;
  $limit=14;
  if (($pocet_obr-$zac)>($limit+2)):
   $poc_stranka=$zobr+$limit;
   $menu=true;
  else:
   $poc_stranka=$pocet_obr;
   $menu=false;
  endif;   

?>     
<?php
ShowJava($skup, $adresar_nahled, $zobr, $poc_stranka, $pocet_obr, $adresar_fotky, $adresar_titulek, $font, $filtr);
?>     
 
<table width="100%" border="0" cellpadding="0" cellspacing="0">
<tr>
  <td width="100%" height="10" colspan="4"></td>
</tr>
<tr>
  <td width="100%" height="1" colspan="4" bgcolor="#0099FF"></td>
</tr>
<tr>
  <td width="100%" colspan="4"><p style="margin-bottom:1">
   <b><i><span class="nadpis">  Fotogalerie</span></i></b>
  </td>
</tr>
<tr>
  <td width="100%" height="1" bgcolor="#0099FF" colspan="4"></td>
</tr>
<tr>
  <td width="100%" height="1" colspan="4"></td>
</tr>
<tr>
  <td width="100%" height="2" bgcolor="#0099FF" colspan="4"></td>
</tr>
<tr>
  <td width="100%" height="10" colspan="4"></td>
</tr>
</table>   
     
  <div aling=center>
  <table width="100%" border="0" cellpadding="0" cellspacing="0" align="center">
    <tr>
     <td width="100%" align="center">
     
      <?php
       ShowImage($skup, $adresar_nahled, $zobr, $poc_stranka, $obr_radek, $pocet_obr,$filtr);
      ?>
     </td>
    </tr>
    <tr>
     <td width="100%" align="center">
       
       
        <?php
          if ($menu)
           ShowMenu($zobr, $zac, $limit, $pocet_obr, $skup, $ram_x);
        ?>
     
     </td>
    </tr>
  </table>