PROCEDURE Proc_Scroll_Control
IS
BEGIN
  IF Name_In(':system.last_record') = 'TRUE'
     AND Name_In(':system.cursor_record') = '1' THEN
    Set_Item_Property('toolbar_blk.scroll_up',Icon_Name,'PRVREC_DISABLE');
    Set_Item_Property('toolbar_blk.up',Icon_Name,'PRVBLK_DISABLE');
    Set_Item_Property('toolbar_blk.DOWN',Icon_Name,'NXTBLK_DISABLE');
    Set_Item_Property('toolbar_blk.scroll_down',Icon_Name,'NXTREC_DISABLE');
    Set_Item_Property('toolbar_blk.SCROLL_UP',Enabled,Property_Off);
    Set_Item_Property('toolbar_blk.UP',Enabled,Property_Off);
    Set_Item_Property('toolbar_blk.DOWN',Enabled,Property_Off);
    Set_Item_Property('toolbar_blk.SCROLL_DOWN',Enabled,Property_Off);
  ELSIF Name_In(':system.last_record') = 'TRUE' THEN
    Set_Item_Property('toolbar_blk.scroll_up',Icon_Name,'PRVREC');
    Set_Item_Property('toolbar_blk.up',Icon_Name,'PRVBLK');
    Set_Item_Property('toolbar_blk.DOWN',Icon_Name,'NXTBLK_DISABLE');
    Set_Item_Property('toolbar_blk.scroll_down',Icon_Name,'NXTREC_DISABLE');
    Set_Item_Property('toolbar_blk.SCROLL_UP',Enabled,Property_On);
    Set_Item_Property('toolbar_blk.UP',Enabled,Property_On);
    Set_Item_Property('toolbar_blk.DOWN',Enabled,Property_Off);
    Set_Item_Property('toolbar_blk.SCROLL_DOWN',Enabled,Property_Off);
  ELSIF Name_In(':system.cursor_record') = '1' THEN
    Set_Item_Property('toolbar_blk.scroll_up',Icon_Name,'PRVREC_DISABLE');
    Set_Item_Property('toolbar_blk.up',Icon_Name,'PRVBLK_DISABLE');
    Set_Item_Property('toolbar_blk.DOWN',Icon_Name,'NXTBLK');
    Set_Item_Property('toolbar_blk.scroll_down',Icon_Name,'NXTREC');
    Set_Item_Property('toolbar_blk.SCROLL_UP',Enabled,Property_Off);
    Set_Item_Property('toolbar_blk.UP',Enabled,Property_Off);
    Set_Item_Property('toolbar_blk.DOWN',Enabled,Property_On);
    Set_Item_Property('toolbar_blk.SCROLL_DOWN',Enabled,Property_On);
  ELSE
    Set_Item_Property('toolbar_blk.scroll_up',Icon_Name,'PRVREC');
    Set_Item_Property('toolbar_blk.up',Icon_Name,'PRVBLK');
    Set_Item_Property('toolbar_blk.DOWN',Icon_Name,'NXTBLK');
    Set_Item_Property('toolbar_blk.scroll_down',Icon_Name,'NXTREC');
    Set_Item_Property('toolbar_blk.SCROLL_UP',Enabled,Property_On);
    Set_Item_Property('toolbar_blk.UP',Enabled,Property_On);
    Set_Item_Property('toolbar_blk.DOWN',Enabled,Property_On);
    Set_Item_Property('toolbar_blk.SCROLL_DOWN',Enabled,Property_On);
  END IF;
END Proc_Scroll_Control;