Icones no 10G

[Debby]

Boa tarde gentem

Estou com um probleminha nos icones. Aqui na empresa migramos do 6i para o 10G.
Não estou conseguindo fazer com que a apresentação final mostre os ícones... que mudei tudo para .GIF conforme instruções.

Alguém poderia me ajudar ?
Grata

Debby

[ballboas]

Bom dia,

Quando você diz q mudou para .GIF, você quer dizer q simplesmente renomeou ou converteu para Gif ??

Se renomeou você precisa convertê-lo.

[Debby]

Olá

Convertemos,usamos o "Ivan Bach Converter".

Grata

Debby

[ballboas]

No projeto de migração que eu paritcipei, tivemos problemas com ícones tb, você já tentou colocar como maiúsculo ou minúsculo, key sensitive pode ser um problema tb.

[Debby]

Oiiii

Foi justamente o que descobrimos após vários testes...

Obrigada.

Debby

[ballboas]

você podeira colocar o trecho do código q ele busca o ícone?
Confesso q faz tempo q fiz isso e estou tentando puxar pela memória, hehehe.....

[Debby]

Oi.
Não entendi ..

você está falando a propriedade do forms ? ou do arquivo do browser ?

Sds

[ballboas]

No nosso caso, na migração do sistema, era um menu de árvore que de acordo com fonte chamado (pasta, form, report) ele montava com um ícone diferente. Lembro q tivemos problemas com Key sensitive e no 6i ele vinha concatenado com '.ico', depois de muito esforço, descobrimos que não precisava concatenar com nada. Como você está tendo o mesmo problema, achei q poderia ser da mesma forma q vocês montavam os ícones....

[Debby]

Oiii

Aqui nosso menu é padrão. Então basicamente tivemos quatro passos importantes para os ícones.
Alteramos os arquivos :

**** Registry.dat

*****orion-web.xml

e criamos a pasta Icons no diretório oracle-home\forms\java
com os arquivos convertidos em .GIF

No forms.. verificamos o case sensitive e mudamos o nome dos icones na propriedade Icon filename sem a extensão

Espero que ajude...

Sds
Debby

[ballboas]

É um conceito que eu nunca usei, não alteramos o registry, nem usamos icon_filename, era tudo dinâmico e só usado na árvore....

hehe....

[debby_acacio]

Oi gentem

Estou criando uma rotina para mudar dinamicamente o icon-name dos botões e assim aparecer os ícones apropriados para cada um.

Coloquei a rotina em procedure no when-window-activated do forms. Basicamente corro os bloco ( loop 1 ) e depois os itens de para ver se é tipo botão ( loop 2 ). e ai faço as mudanças.

A minha dúvida :

O next_block funciona neste nivel.

Acredito que seja uma bobagem rsrs mas?!?!?!?!

Segue o código... se alguém puder me dar uma luz, agradeço.

Selecionar tudo

PROCEDURE P_VALIDA_ICON IS

/******

Esta procedure faz o processo de validação dos ícones dos botões ---> Débora Acácio em 15/07/2010

******/

  cur_blk VARCHAR2(140)  ;
  cUltimo_bloco   VARCHAR2(150) := Get_Form_Property(name_in(':System.Current_Form'),LAST_BLOCK);
  cUltimo_Item      VARCHAR2(150)  ;
  cTipo_Item        VARCHAR2(30); 
  cParametro        VARCHAR2(150);
  cValor_Parametro  VARCHAR2(100);
  
  w_icon_name varchar2(100);  

BEGIN
	
  Loop -- BLOCOS

     message('novo blocco = '||name_in(':System.Cursor_Block'));

     cur_blk := name_in(':System.Cursor_Block') ;
     cUltimo_item := cur_blk||'.'||get_block_property( cur_blk, LAST_ITEM );
     
	   Loop  -- ITENS
	   	
	     cParametro       := name_in(':SYSTEM.CURSOR_ITEM');
		   cValor_Parametro := ltrim(rtrim(name_in(cParametro)));
		   cTipo_item       := GET_ITEM_PROPERTY( cParametro, ITEM_TYPE );
	     

       MESSAGE ( 'ultimo_bloco = '||cUltimo_bloco ||
                 'cur_blk = '||cur_blk ||
                 'cParametro = '||cParametro ||
                 'cUltimo_item = '|| cUltimo_item ||
                 'cValor_Parametro ='|| cValor_Parametro ||
                 'cTipo_item       = '||cTipo_item );


				   IF cTipo_item = 'BUTTON'
				    then
				       w_icon_name := get_item_property(cParametro,icon_name);
	             set_item_property(cParametro,icon_name,lower(w_icon_name));	
				   End if;
	        
	        if cParametro = cUltimo_item then
	        	message('ultimo item');
	          exit;
	        end if;
	        
				   	 message('proximo_item 001');
				   	 next_item;
  	         cParametro := null;            
	   
	   End loop; -- ITENS	

	  If cUltimo_bloco = cur_blk then
	      exit;
	  End if;
    next_block;
    
  End loop ; --BLOCOS

  
END;