Pages

Tuesday, November 25, 2014

Move an Item with Oracle Developer

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;
/

No comments:

Post a Comment