O estoque de imagens igbr

[adalberto]

Necessário biblioteca igbr instalada.  (Prisma-1.0.100 ou superior);

Vou postar abaixo um simples programa que lista as opções de imagens do estoque igbr.

Segue o código:

Código Selecionar Expandir


//exemplo de imagens de estoque.
inclua'igbr'

funcao principal()   
  jan = crie_janela();
  rol = crie_rolagem(jan);
  poe_estoque(rol, func_bt);
  ig.botao_mostre_imagem();   
  mostre(jan); 
fim //fim principal

//================================= funcoes abaixo =====================//

funcao crie_janela()
     local ret = ig.janela("Exemplo de Estoque", 500 , 400);
     ig.caixa_def_borda_largura(ret,6);
     ig.conecte_permutado(ret,ig['destruido'], sis.saia, 0 );
     ig.janela_def_posicao(ret,ig.JANELA_POS_CENTRO);     
     retorne ret;
fim

funcao mostre(jan)
     ig.componente_mostre_todos(jan);
     ig.loop();
fim

funcao crie_rolagem(jan)
       local rol = ig.janela_rolagem();
       ig.ad(jan,rol);
       local caixav = ig.caixavertical();
       ig.janela_rolagem_ad( rol, caixav);
       retorne caixav;
fim

funcao poe_estoque(rol, func_bt)
                   
                   local horiz = ig.caixahorizontal();
                   ig.caixa_ad(horiz, ig.rotulo("  imagem      "),falso,falso,0  );
                   ig.caixa_ad(horiz, ig.separadorvertical(),falso,falso,0  );
                   ig.caixa_ad(horiz, ig.rotulo("            rótulo                 "),falso,falso,0  );
                   ig.caixa_ad(horiz, ig.separadorvertical(),falso,falso,0  );
                   ig.caixa_ad(horiz, ig.rotulo("                     código"),falso,falso,0  );
                   
                   ig.caixa_ad(rol,horiz,falso,falso, 2);
                   ig.ad( rol, ig.separadorhorizontal() );
                   
       para i , v em pares(ig) inicio
              se string.procure( i , 'estoque_') entao             
                   
                   local horiz = ig.caixahorizontal();
                                     
                   local img = ig.imagem_estoque( ig[i], 5 );
                   ig.caixa_ad(horiz, img, falso, falso, 4 );
                   ig.caixa_ad(horiz, ig.separadorvertical(),falso,falso,0  );
                   
                   local bt = ig.botao_estoque(ig[i]);
                   ig.componente_def_tamanho(bt, 200 , 40 );
                   ig.botao_def_relevo( bt, ig.RELEVO_NULO);
                   ig.caixa_ad( horiz, bt,falso,falso,2);
                   ig.caixa_ad(horiz, ig.separadorvertical(),falso,falso,0  );
                   ig.conecte_funcao( bt , ig.clique, func_bt,i);
               
                   ig.caixa_ad(horiz, ig.rotulo( 'ig.' .. string.maiuscula(i) ) ,falso,falso,2);
                   
                   ig.caixa_ad( rol,horiz, falso , falso , 2);
                  // imprima(i);
              fim
       
       fim
fim

funcao func_bt(comp,dado)
      // ig.msg(jan,'', dado );
       local img = ig.imagem_estoque(ig[dado],6);
       local jan = ig.janela'';
       ig.caixa_def_borda_largura(jan,6);
       ig.janela_def_posicao(jan, 2); //2 = mouse
       caixah = ig.caixahorizontal();
       ig.ad(jan,caixah);
       ig.ad(caixah,img);
       ig.ad(caixah,ig.rotulo('   '.. string.troque(dado,'_' , ' ') ) );
       ig.componente_mostre_todos(jan);
fim



Veja o recorte de tela em anexo.