Alterar o background do campo

Dúvidas, dicas e truques de PL/SQL. Aqui também vão assuntos relacionados a pacotes, triggers, funções, Java-Stored Procedures, etc
Responder
douglasmattos
Rank: Analista Júnior
Rank: Analista Júnior
Mensagens: 75
Registrado em: Seg, 19 Mar 2012 2:28 pm

Bom dia pessoal,

Estou iniciando com oracle forms e estou com um dúvida...

Fiz um formulário em forms e gostaria que a cor de fundo do campo alterasse sempre que o campo estiver selecionado.

ex: campo seleciona cor de fundo alterada...perdeu o foco volta a cor normal...

sei que é alguma coisa como SET_ITEM_PROPERTY(‘CAMPO’,VISUAL_PROPERTY, 'CAMPO VISUAL PROPERTIES');

Help....
douglasmattos
Rank: Analista Júnior
Rank: Analista Júnior
Mensagens: 75
Registrado em: Seg, 19 Mar 2012 2:28 pm

Da uma força ai galera...

eu criei um item do visual attribute com a cor de fundo que quero e se chamo em um botão ele altera a cor de fundo do campo que me referencio.. preciso que seja alterado quando o campo obter o foco...

alguém sabe qual evento é esse?
schnu
Rank: Analista Pleno
Rank: Analista Pleno
Mensagens: 110
Registrado em: Ter, 24 Mai 2005 9:16 pm
Localização: Dongguan - Guangdong - China
Deus criou os loucos para confundir os sábios

Eu fiz assim:
Criei o bloco abaixo:
Onde tenho dois visual atribute criados, um BRANCO e outro AZUL e chamo o código abaixo na trigger WHEN-NEW-ITEM-INSTANCE

Selecionar tudo

procedure set_block_color is
 --
 cur_itm   varchar2(80) := :System.Cursor_item;
 cur_block varchar2(80) := :System.Cursor_Block;
 pitem     varchar2(80);
 --
begin
  --	
	pitem   := Get_Block_Property( cur_block, FIRST_ITEM );
	--
  while ( pitem is not null ) loop
  	--
  	pitem := cur_block||'.'||pitem;
  	--
  	if get_item_property( pitem, visible ) = 'TRUE' then
      --
      if get_item_property( pitem, item_type ) not in ( 'DISPLAY ITEM', 'BUTTON' ) then
      	Set_Item_Instance_Property( pitem, CURRENT_RECORD,VISUAL_ATTRIBUTE,'VISUAL_BRANCO');
      end if;
      --
  	end if;
  	pitem := Get_Item_Property( pitem, NEXTITEM );
  end loop;
  --
 if get_item_property( cur_itm, item_type ) not in ( 'DISPLAY ITEM', 'BUTTON' ) then
 	 --
   Set_Item_Instance_Property( cur_itm, CURRENT_RECORD,VISUAL_ATTRIBUTE,'VISUAL_AZUL');
   --
 end if;
 --
end; 
Responder
  • Informação