Skip to main content

Oracle Forms - Window Resize ( Changing window size upon minimizing and maximising)

-- Added by Qutub M for View SU Redesign Proj. (Notes)
DECLARE
ln_width_diff NUMBER;
ln_item_width NUMBER;
ln_canvas_width NUMBER;
ln_view_width NUMBER;
BEGIN
IF :system.EVENT_WINDOW = 'FULL_NOTE_DISPLAY' THEN
ln_width_diff := TO_NUMBER(GET_WINDOW_PROPERTY('FULL_NOTE_DISPLAY',width)) - :PARAMETER.FULL_NOTES_WIDTH;
ln_item_width := TO_NUMBER(GET_ITEM_PROPERTY('FULL_NOTE_DISPLAY.FULL_NOTE',width));
ln_canvas_width := TO_NUMBER(GET_CANVAS_PROPERTY('FULL_NOTE_DISPLAY',width));
ln_view_width := TO_NUMBER(GET_VIEW_PROPERTY('FULL_NOTE_DISPLAY',width));
-- SET_VIEW_PROPERTY('FULL_NOTE_DISPLAY', X_POS, 0);
SET_VIEW_PROPERTY('FULL_NOTE_DISPLAY', WIDTH, :parameter.view_width+ln_width_diff);
SET_CANVAS_PROPERTY('FULL_NOTE_DISPLAY', WIDTH, :parameter.canvas_width+ln_width_diff);
    SET_ITEM_PROPERTY('FULL_NOTE_DISPLAY.FULL_NOTE', width, :parameter.item_width+ln_width_diff);
    --MESSAGE(ln_width_diff );
ELSE
-- End Added by Qutub M for View SU Redesign Proj. (Notes)
NULL;
END IF; -- Added by Qutub M for View SU Redesign Proj. (Notes)
END;-

Comments

Post a Comment

Popular posts from this blog

Oracle Forms -- Important Syntaxes

1. To get the enabled property of the item APP_ITEM_PROPERTY.GET_PROPERTY('CONTROL.FILTER_HOLD_RECORDS',ENABLED) 2. Disable Attachment for this Block in WHEN-NEW-BLOCK-INSTANCE  APP_SPECIAL.ENABLE('ATTACHMENTS', PROPERTY_OFF); 3. Default Where / Default Order By Set_block_property('XWII_MATL_DISP_HOLDS_V', Default_where, Lc_query); Set_block_property('XWII_MATL_DISP_HOLDS_V', order_by, Lc_query); 4. Visual Attribute    a. Define Visual Attribute for eg 'XWII' where you can set Colour  b. SET_ITEM_INSTANCE_PROPERTY('block.item_name',CURRENT_RECORD,VISUAL_ATTRIBUTE ,'XWII'); 4. Visual Attribute for Record APP_RECORD.HIGHLIGHT('XWII'); Where 'XWII' is the visual attribute where you can set Colour. 5. Initiliaze SPECIAL Menu app_special.instantiate ('SPECIAL1', GET_GROUP_CHAR_CELL ('SPECIAL_MENU.SPECIAL_MENU_ITEM', 1), '', TRUE, ''); 6. execute_trigger('SPECIAL25...
1 comment
Read more
Xdoxslt XML Publisher RTF Important Syntax’s     1.        To convert CASE of a tag to UPPER case      xdoxslt:convert_case(.//MATERIALTYPE,'UPPER')     2.        To convert CASE of a tag to LOWER case      xdoxslt:convert_case(.//MATERIALTYPE,'UPPER')     3.        Syntax for CONTAIN      contains(xdoxslt:convert_case(.//MATERIALTYPE,'UPPER'),’IC CREDIT MEMO’)     4.        Syntax for NOT CONTAIN      not(contains(xdoxslt:convert_case(.//REFERENCE_ID,'UPPER'),'WSC'))     5.        CHOOSE-WHEN-OTHERWISE Syntax     <?choose:?><?when: contains(xdoxslt:convert_case(.//MATERIALTYPE,'UPPER'),’IC CREDIT       MEMO’)?><?’Interco Credit Memo’?><?end when?><?otherwis...
Post a Comment
Read more