procedure prc_move_item (p_item varchar2)
is
x number; --Max 495(Canvas Width....)
y number := 3; --Y Position of Move Item
w number;
diff_width number:=(:global.can_width-:global.item_width);
begin
/*
Please Assign :global.w :=get_item_property ('control.show_title',width); (get item width)
:global.can_width :=get_canvas_property('can_main',width); (get canvas width)
:global.item_width :=get_item_property ('control.show_title',width); :global.x_pos:=0;
in NEW-FORM-INSTANCE trigger.
Also Create a Timer in NEW-FORM-INSTANCE trigger.
This Procedure is referred into WHEN-TIMER-EXPIRED trigger.
Change Item name which Item you want to move.
*/
x := :global.x_pos + 1;
w := :global.w;
if x < :global.can_width --(Canvas Width....) Start 1
then
if x < diff_width --(Canvas width - Item width)Maximum Move of X position of Move Item. Start 2
then
if w < :global.item_width --Item Width Start 3
then
set_item_property (p_item, width, w);
:global.w := :global.w + 1;
x := 0; --X Position still 0(zero) untill item width 181.
end if; --end 3
set_item_property (p_item, position, x, y);
:global.x_pos := x;
else
w := :global.w - 1;
set_item_property (p_item, alignment, alignment_left);
set_item_property (p_item, width, w);
set_item_property (p_item, position, x, y);
:global.w := w;
:global.x_pos := x;
end if; --end 2
else
:global.x_pos := 0;
set_item_property (p_item, alignment, alignment_right);
end if; --end 1
end;
/
is
x number; --Max 495(Canvas Width....)
y number := 3; --Y Position of Move Item
w number;
diff_width number:=(:global.can_width-:global.item_width);
begin
/*
Please Assign :global.w :=get_item_property ('control.show_title',width); (get item width)
:global.can_width :=get_canvas_property('can_main',width); (get canvas width)
:global.item_width :=get_item_property ('control.show_title',width); :global.x_pos:=0;
in NEW-FORM-INSTANCE trigger.
Also Create a Timer in NEW-FORM-INSTANCE trigger.
This Procedure is referred into WHEN-TIMER-EXPIRED trigger.
Change Item name which Item you want to move.
*/
x := :global.x_pos + 1;
w := :global.w;
if x < :global.can_width --(Canvas Width....) Start 1
then
if x < diff_width --(Canvas width - Item width)Maximum Move of X position of Move Item. Start 2
then
if w < :global.item_width --Item Width Start 3
then
set_item_property (p_item, width, w);
:global.w := :global.w + 1;
x := 0; --X Position still 0(zero) untill item width 181.
end if; --end 3
set_item_property (p_item, position, x, y);
:global.x_pos := x;
else
w := :global.w - 1;
set_item_property (p_item, alignment, alignment_left);
set_item_property (p_item, width, w);
set_item_property (p_item, position, x, y);
:global.w := w;
:global.x_pos := x;
end if; --end 2
else
:global.x_pos := 0;
set_item_property (p_item, alignment, alignment_right);
end if; --end 1
end;
/
No comments:
Post a Comment