<?php
// Criar objeto Janela
$oJanelaPrinc = New R_Janela();
$oJanelaPrinc->sIdObj  = "iJan_CfgImg"; 
$oJanelaPrinc->nTop    = 30;
$oJanelaPrinc->nLeft   = 70;
$oJanelaPrinc->nWidth  = 620;   // Largura
$oJanelaPrinc->nHeight = 0;     // Altura
$oJanelaPrinc->nLeft  += ($nTela_W/2)-($oJanelaPrinc->nWidth/2);
$oJanelaPrinc->sTitulo = 'Imagens de fundo';
$oJanelaPrinc->sJavKeyDown = "return Car_".$sNomeAcesso."3.Teclas_F(this,event);";
//
$sJavaTravarJ = "parent.document.getElementById('".$oJanelaPrinc->sIdObj."_Travar').style.visibility='visible'; parent.Disabled_In_Elems('".$oJanelaPrinc->sIdObj."',true);";
$oJanelaPrinc->sJavOnClickF = 
    $sJavaTravarJ.
	"parent.document.forms.fmPCfgImg.acao.value='FECHAR'; ".
	"parent.document.forms.fmPCfgImg.submit();".
	"";
//
$sNome_Sel = @$_POST['IMAGEM_DO_FUNDO'];
//
// LISTAR AS IMAGENS
If ( $sAcao=="LISTAR" ) {
   $sHTML_Lista = '';
   $sCaminho_Dir = Url_Site_Path."images/planos_de_fundo";
   If ( IS_DIR( $sCaminho_Dir ) ) {
      $aListaArqs = DIR($sCaminho_Dir);
      $nColunas = 0;
      While ( $sArquivo = $aListaArqs->READ() ){
         If ( STRLEN($sArquivo)<4 ) { CONTINUE; }
		 $sExtencao = SUBSTR($sArquivo,STRLEN($sArquivo)-3,3);
		 If ( $sExtencao<>"jpg" && $sExtencao<>"png" ) { CONTINUE; }
		 If ( $nColunas==4 ) {
		    $nColunas = 0;
            $sHTML_Lista .= '</tr><tr>';
		 }
      	 //
		 $bSelecionado = STRTOUPPER($sNome_Sel)==STRTOUPPER($sArquivo);
		 $nColunas++;
         $sHTML_Lista .=
		   '<td width="140px" height="120px" align="center" valign="middle" style="background-color:'.($bSelecionado ? '#00CCFF' : '#FFFFFF').';">'.
		   '<span onclick="Car_'.$sNomeAcesso.'2.P_Sel('."'".$sArquivo."'".');" style="cursor:pointer;">'.
		   '<img src="./images/planos_de_fundo/'.$sArquivo.'" width="120px" height="80px" border="0">'.
		   '<br>'.$sArquivo.
		   '</span>'.
		   '</td>';
		 //
      }
	  $sHTML_Lista =
	     '<table>'.
		 '<tr>'.
		 $sHTML_Lista.
		 '</tr>'.
		 '</table>';
   }
   $sRet_Javs .=
      'parent.document.getElementById("Cfg_LstImg").innerHTML='.JAVA_CharCode($sHTML_Lista).';'.
      "";
//
// FECHAR
} ElseIf ( $sAcao=="FECHAR" ) {
   $sRet_Javs .=
	  "parent.document.getElementById('".$sNomeIdJan1."_Travar').style.visibility='hidden';".
	  "parent.Disabled_In_Elems('".$sNomeIdJan1."',false);".
      "parent.RmElem('".$oJanelaPrinc->sIdObj."');";
//
// FECHAR
} ElseIf ( $sAcao=="CFM" ) {
   $sRet_Javs .=
	  "parent.document.getElementById('sp_IMAGEM_DO_FUNDO').innerHTML = '".$sNome_Sel."';".
	  "parent.document.getElementById('in_IMAGEM_DO_FUNDO').value = '".$sNome_Sel."';".
	  $oJanelaPrinc->sJavOnClickF.
      "";
//
// JANELA TELA PRINCIPAL
} Else {
   //
   // Tela HTML
   $sRet_TelaJ_HTML =
	  $oJanelaPrinc->MontaJanHTML(True).
      '<form name="fmPCfgImg" accept-charset="utf-8" method="post" action="./car_js.php" target="car_'.$sNomeAcesso.'4">'.
       '<input name="mod" type="hidden" value="'.$sModulo.'">'.
       '<input name="submod" type="hidden" value="'.$sSubModulo.'">'.
       '<input name="acao" type="hidden" value="">'.
	   '<input name="nomeacs" type="hidden" value="'.$sNomeAcesso.'">'.
       '<input name="IMAGEM_DO_FUNDO" type="hidden" value="'.$sNome_Sel.'">'.
      '</form>'.
	  '<div id="Cfg_LstImg" style="height:550px; background:#FFFFFF; border-style:solid; border-width:1px; border-color:#CCCCCC; overflow:auto;">'.
	  '</div>'.
      '<table width="100%" style="background-color:'.$sCorBarraInf.';"></tr>'.
       '<td width="4px" height="40px" align="left">&nbsp;</td>'.
       '</td>'.
       '<td align="left">'.
        HTML_Botao( 3, 'CfgImg_BT_Cfm', 'Car_'.$sNomeAcesso.'2.P_Cfm();'
                     , 'Confirma' ,'images/btimg_ativar.png').
       '</td>'.
       '<td width="114px" align="left">'.
        HTML_Botao( 3, 'CfgImg_BT_Fch', $oJanelaPrinc->sJavOnClickF
                     , 'Sair' ,'images/btimg_fechar.png').
      '</tr></table>'.
	  $oJanelaPrinc->MontaJanHTML(False);
   //
   $sRet_Javs .=
	  "parent.document.getElementById('".$sNomeIdJan1."_Travar').style.visibility='visible';".
	  "parent.Disabled_In_Elems('".$sNomeIdJan1."',true);".
      "function P_Atu() {".
	      "var fm = parent.document.forms.fmPCfgImg;".
          "fm.acao.value='LISTAR'; ".
          "fm.submit();".
      '}'.
      "function P_Sel(sIMG) {".
	      "var fm = parent.document.forms.fmPCfgImg;".
          "fm.IMAGEM_DO_FUNDO.value=sIMG; ".
          "fm.acao.value='LISTAR'; ".
          "fm.submit();".
      '}'.
      "function P_Cfm() {".
	      "var fm = parent.document.forms.fmPCfgImg;".
          "fm.acao.value='CFM'; ".
          "fm.submit();".
      '}'.
      '';
   // Java posterior
   $sRet_JavsPos .=
	  "P_Atu();".
	  //
	  "function Teclas_F( Objeto, Evento ) {".
         "vNumTecla = parent.Tecla_Apertada(Evento);".
	     "if ( vNumTecla==116) { ".        //  ** [F5] **         Não atualizar
             //
	     "} else if ( vNumTecla==27) { ".  //  ** [ESC] **        (SAIR)
              "setTimeout( parent.document.getElementById('CadCCid_BT_Fch').onclick , 100);".
	     "} else if ( vNumTecla==13) { ". //   ** [ENTER] **      Selecionar
              //"if ( parent.document.getElementById('CadCCid_BT_Sel').style.display != 'none') {".
              //     "setTimeout( parent.document.getElementById('CadCCid_BT_Sel').onclick , 100);".
			  //"}".
		 "} else {".
	          "P_TeclasPress_fm(Evento);".
		      "return true;".
		 "}".
		 "return false;".
	  '}'.
	  //
	  "";
}
?>