11.01.2013 Views

Oracle Forms Developer – Form Builder Reference, Volume 1

Oracle Forms Developer – Form Builder Reference, Volume 1

Oracle Forms Developer – Form Builder Reference, Volume 1

SHOW MORE
SHOW LESS

You also want an ePaper? Increase the reach of your titles

YUMPU automatically turns print PDFs into web optimized ePapers that Google loves.

In this example, the procedure then uses the Set_Custom_Item_Property built-in to pass those values to<br />

the other JavaBean.<br />

PROCEDURE Slider_Event_Trap IS<br />

BeanHdl Item;<br />

BeanValListHdl ParamList;<br />

paramType Number;<br />

EventName VarChar2(20);<br />

CurrentValue Number(4);<br />

NewAnimationRate Number(4);<br />

Begin<br />

-- Update data items and Display fields with current radius<br />

information<br />

BeanValListHdl :=<br />

get_parameter_list(:SYSTEM.Custom_Item_Event_Parameters);<br />

EventName := :SYSTEM.Custom_Item_Event;<br />

:event_name := EventName;<br />

if (EventName = ’ValueChanged’) then<br />

get_parameter_attr(BeanValListHdl,’Value’,ParamType,<br />

CurrentValue);<br />

NewAnimationRate := (300 - CurrentValue);<br />

:Animation_Rate := NewAnimationRate;<br />

set_custom_item_property(’Juggler_Bean’,’SetAnimationRate’,<br />

NewAnimationRate);<br />

elsif (EventName = ’mouseReleased’) then<br />

get_parameter_attr(BeanValListHdl,’Value’,ParamType,<br />

CurrentValue);<br />

set_custom_item_property(’Juggler_Bean’,’SetAnimationRate’,<br />

CurrentValue);<br />

end if;<br />

End;<br />

VBX Example<br />

This is an example of a procedure that can be called when <strong>Form</strong> <strong>Builder</strong> fires the When-Custom-Item-<br />

Event trigger.<br />

DECLARE<br />

TabEvent varchar2(80);<br />

TabNumber Number;<br />

BEGIN<br />

TabEvent := :system.custom_item_event;<br />

/*<br />

** After detecting a Click event, identify the<br />

** tab selected, and use the user-defined Goto_Tab_Page<br />

** procedure to navigate to the selected page.<br />

*/<br />

IF (UPPER(TabEvent) = ’CLICK’) THEN<br />

TabNumber := VBX.Get_Property(’TABCONTROL’,’CurrTab’);<br />

Goto_Tab_Page(TabNumber);<br />

END IF;<br />

END;<br />

503

Hooray! Your file is uploaded and ready to be published.

Saved successfully!

Ooh no, something went wrong!