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:
//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.