Changing Icon File Of Push Button At Runtime In Oracle Forms 6i

Set Icon_File property in When-Mouse-Enter trigger

Suppose you are creating icon based menu system in Oracle Forms 6i and you want to change icon when mouse over on any push button. 

You can accomplish this task by writing form level trigger when-mouse-enter and when-mouse-leave, here is the example:

Create a block, design accordingly and place push buttons as per the requirement and set iconic property to yes and specify default icon file.

Then write when-mouse-enter trigger Form Level, this trigger will fire when-ever mouse enter over on any item.
Declare
  vMousetime varchar2(100) := lower(:system.mouse_item);
Begin
-- check for your button and specify the new icon
   if vMouseitem = 'yourblock.urbutton1' then
     set_item_property(vmouseitem, icon_file, 'onhover1');
   elsif vmouseitem = 'yourblock.urbutton2' then
     set_item_property(vmouseitem, icon_file, 'onhover2');
-- and so on for your all buttons
   end if;
End;

Write when-mouse-leave trigger Form Level, this trigger will fire when-ever mouse leave any item.

Declare
  vMousetime varchar2(100) := lower(:system.mouse_item);
Begin
-- check for your button and restore the default icon
   if vMouseitem = 'yourblock.urbutton1' then
     set_item_property(vmouseitem, icon_file, 'default1');
   elsif vmouseitem = 'yourblock.urbutton2' then
     set_item_property(vmouseitem, icon_file, 'default2');
-- and so on for your all buttons
   end if;
End;

Now you can test your menu.

 

转载于:https://www.cnblogs.com/quanweiru/p/6220067.html