File: pfc_m_view.srm
Size: 29659
Date: Tue, 22 Jan 2008 23:30:41 +0100
$PBExportHeader$pfc_m_view.srm
$PBExportComments$PFC View Menu class
forward
global type pfc_m_view from menu
end type
type m_viewitem from menu within pfc_m_view
end type
type m_viewdisplay from menu within m_viewitem
end type
type m_largeicon from menu within m_viewdisplay
end type
type m_smallicon from menu within m_viewdisplay
end type
type m_list from menu within m_viewdisplay
end type
type m_details from menu within m_viewdisplay
end type
type m_viewdisplay from menu within m_viewitem
m_largeicon m_largeicon
m_smallicon m_smallicon
m_list m_list
m_details m_details
end type
type m_dash11 from menu within m_viewitem
end type
type m_arrangeicons from menu within m_viewitem
end type
type m_1 from menu within m_arrangeicons
end type
type m_2 from menu within m_arrangeicons
end type
type m_3 from menu within m_arrangeicons
end type
type m_4 from menu within m_arrangeicons
end type
type m_5 from menu within m_arrangeicons
end type
type m_6 from menu within m_arrangeicons
end type
type m_7 from menu within m_arrangeicons
end type
type m_8 from menu within m_arrangeicons
end type
type m_9 from menu within m_arrangeicons
end type
type m_10 from menu within m_arrangeicons
end type
type m_dash12 from menu within m_arrangeicons
end type
type m_autoarrange from menu within m_arrangeicons
end type
type m_arrangeicons from menu within m_viewitem
m_1 m_1
m_2 m_2
m_3 m_3
m_4 m_4
m_5 m_5
m_6 m_6
m_7 m_7
m_8 m_8
m_9 m_9
m_10 m_10
m_dash12 m_dash12
m_autoarrange m_autoarrange
end type
type m_viewitem from menu within pfc_m_view
m_viewdisplay m_viewdisplay
m_dash11 m_dash11
m_arrangeicons m_arrangeicons
end type
end forward

global type pfc_m_view from menu
m_viewitem m_viewitem
end type
global pfc_m_view pfc_m_view

type variables
Protected:
listview ilv_parent
end variables

forward prototypes
public function integer of_setparent (listview alv_parent)
end prototypes

public function integer of_setparent (listview alv_parent);//////////////////////////////////////////////////////////////////////////////
//
// Function:  of_SetParent
//
// Access:  Public
//
// Arguments:
// alv_parent:  ListView
//
// Returns:   integer
//  1 = success
// -1 = error
//
// Description:  Establishes a listview reference for the menu
//
//////////////////////////////////////////////////////////////////////////////
//
// Revision History
//
// Version
// 5.0   Initial version
//
//////////////////////////////////////////////////////////////////////////////
//
/*
 * Open Source PowerBuilder Foundation Class Libraries
 *
 * Copyright (c) 2004-2005, All rights reserved.
 *
 * Redistribution and use in source and binary forms, with or without
 * modification, are permitted in accordance with the GNU Lesser General
 * Public License Version 2.1, February 1999
 *
 * http://www.gnu.org/copyleft/lesser.html
 *
 * ====================================================================
 *
 * This software consists of voluntary contributions made by many
 * individuals and was originally based on software copyright (c) 
 * 1996-2004 Sybase, Inc. http://www.sybase.com.  For more
 * information on the Open Source PowerBuilder Foundation Class
 * Libraries see http://pfc.codexchange.sybase.com
*/
//
//////////////////////////////////////////////////////////////////////////////

integer  li_rc

if IsValid (alv_parent) then
   ilv_parent = alv_parent 
   li_rc = 1
else
   li_rc = -1
end if

return li_rc
end function

on pfc_m_view.create
pfc_m_view=this
this.m_viewitem=create m_viewitem
this.Item[]={this.m_viewitem}
end on

on pfc_m_view.destroy
destroy(this.m_viewitem)
end on

type m_viewitem from menu within pfc_m_view
m_viewdisplay m_viewdisplay
m_dash11 m_dash11
m_arrangeicons m_arrangeicons
end type

on m_viewitem.create
this.Text="&View"
this.m_viewdisplay=create m_viewdisplay
this.m_dash11=create m_dash11
this.m_arrangeicons=create m_arrangeicons
this.Item[]={this.m_viewdisplay, &
this.m_dash11, &
this.m_arrangeicons}
end on

on m_viewitem.destroy
destroy(this.m_viewdisplay)
destroy(this.m_dash11)
destroy(this.m_arrangeicons)
end on

type m_viewdisplay from menu within m_viewitem
m_largeicon m_largeicon
m_smallicon m_smallicon
m_list m_list
m_details m_details
end type

event clicked;//////////////////////////////////////////////////////////////////////////////
//
// Event:  Clicked
//
// Description:   Check the menu option that is the current view.
//
//////////////////////////////////////////////////////////////////////////////
// 
// Revision History
//
// Version
// 5.0   Initial version
//
//////////////////////////////////////////////////////////////////////////////
//
/*
 * Open Source PowerBuilder Foundation Class Libraries
 *
 * Copyright (c) 2004-2005, All rights reserved.
 *
 * Redistribution and use in source and binary forms, with or without
 * modification, are permitted in accordance with the GNU Lesser General
 * Public License Version 2.1, February 1999
 *
 * http://www.gnu.org/copyleft/lesser.html
 *
 * ====================================================================
 *
 * This software consists of voluntary contributions made by many
 * individuals and was originally based on software copyright (c) 
 * 1996-2004 Sybase, Inc. http://www.sybase.com.  For more
 * information on the Open Source PowerBuilder Foundation Class
 * Libraries see http://pfc.codexchange.sybase.com
*/
//
//////////////////////////////////////////////////////////////////////////////

This.m_largeicon.Checked = False
This.m_smallicon.Checked = False
This.m_list.Checked = False
This.m_details.Checked = False

Choose Case ilv_Parent.View
   Case ListViewLargeIcon!
      This.m_largeicon.Checked = True
   Case ListViewSmallIcon!
      This.m_smallicon.Checked = True
   Case ListViewList!
      This.m_list.Checked = True
   Case ListViewReport!
      This.m_details.Checked = True
End Choose

end event

on m_viewdisplay.create
this.Text="&View"
this.Microhelp="Contains commands for customizing display of items"
this.m_largeicon=create m_largeicon
this.m_smallicon=create m_smallicon
this.m_list=create m_list
this.m_details=create m_details
this.Item[]={this.m_largeicon, &
this.m_smallicon, &
this.m_list, &
this.m_details}
end on

on m_viewdisplay.destroy
destroy(this.m_largeicon)
destroy(this.m_smallicon)
destroy(this.m_list)
destroy(this.m_details)
end on

type m_largeicon from menu within m_viewdisplay
end type

event clicked;//////////////////////////////////////////////////////////////////////////////
//
// Event:  Clicked
//
// Description:   Change the ListView to display the items
//                in Large Icon view.
//
//////////////////////////////////////////////////////////////////////////////
// 
// Revision History
//
// Version
// 5.0   Initial version
//
//////////////////////////////////////////////////////////////////////////////
//
/*
 * Open Source PowerBuilder Foundation Class Libraries
 *
 * Copyright (c) 2004-2005, All rights reserved.
 *
 * Redistribution and use in source and binary forms, with or without
 * modification, are permitted in accordance with the GNU Lesser General
 * Public License Version 2.1, February 1999
 *
 * http://www.gnu.org/copyleft/lesser.html
 *
 * ====================================================================
 *
 * This software consists of voluntary contributions made by many
 * individuals and was originally based on software copyright (c) 
 * 1996-2004 Sybase, Inc. http://www.sybase.com.  For more
 * information on the Open Source PowerBuilder Foundation Class
 * Libraries see http://pfc.codexchange.sybase.com
*/
//
//////////////////////////////////////////////////////////////////////////////

ilv_Parent.View = ListViewLargeIcon!

end event

on m_largeicon.create
this.Text="Lar&ge Icons"
this.Microhelp="Displays items by using large icons"
end on

on m_largeicon.destroy
end on

type m_smallicon from menu within m_viewdisplay
end type

event clicked;//////////////////////////////////////////////////////////////////////////////
//
// Event:  Clicked
//
// Description:   Change the ListView to display the items
//                in Small Icon view.
//
//////////////////////////////////////////////////////////////////////////////
// 
// Revision History
//
// Version
// 5.0   Initial version
//
//////////////////////////////////////////////////////////////////////////////
//
/*
 * Open Source PowerBuilder Foundation Class Libraries
 *
 * Copyright (c) 2004-2005, All rights reserved.
 *
 * Redistribution and use in source and binary forms, with or without
 * modification, are permitted in accordance with the GNU Lesser General
 * Public License Version 2.1, February 1999
 *
 * http://www.gnu.org/copyleft/lesser.html
 *
 * ====================================================================
 *
 * This software consists of voluntary contributions made by many
 * individuals and was originally based on software copyright (c) 
 * 1996-2004 Sybase, Inc. http://www.sybase.com.  For more
 * information on the Open Source PowerBuilder Foundation Class
 * Libraries see http://pfc.codexchange.sybase.com
*/
//
//////////////////////////////////////////////////////////////////////////////

ilv_Parent.View = ListViewSmallIcon!

end event

on m_smallicon.create
this.Text="S&mall Icons"
this.Microhelp="Displays items by using small icons"
end on

type m_list from menu within m_viewdisplay
end type

event clicked;//////////////////////////////////////////////////////////////////////////////
//
// Event:  Clicked
//
// Description:   Change the ListView to display the items
//                in List view.
//
//////////////////////////////////////////////////////////////////////////////
// 
// Revision History
//
// Version
// 5.0   Initial version
//
//////////////////////////////////////////////////////////////////////////////
//
/*
 * Open Source PowerBuilder Foundation Class Libraries
 *
 * Copyright (c) 2004-2005, All rights reserved.
 *
 * Redistribution and use in source and binary forms, with or without
 * modification, are permitted in accordance with the GNU Lesser General
 * Public License Version 2.1, February 1999
 *
 * http://www.gnu.org/copyleft/lesser.html
 *
 * ====================================================================
 *
 * This software consists of voluntary contributions made by many
 * individuals and was originally based on software copyright (c) 
 * 1996-2004 Sybase, Inc. http://www.sybase.com.  For more
 * information on the Open Source PowerBuilder Foundation Class
 * Libraries see http://pfc.codexchange.sybase.com
*/
//
//////////////////////////////////////////////////////////////////////////////

ilv_Parent.View = ListViewList!

end event

on m_list.create
this.Text="&List"
this.Microhelp="Displays items in a list"
end on

type m_details from menu within m_viewdisplay
end type

event clicked;//////////////////////////////////////////////////////////////////////////////
//
// Event:  Clicked
//
// Description:   Change the ListView to display the items
//                in Report view.
//
//////////////////////////////////////////////////////////////////////////////
// 
// Revision History
//
// Version
// 5.0   Initial version
//
//////////////////////////////////////////////////////////////////////////////
//
/*
 * Open Source PowerBuilder Foundation Class Libraries
 *
 * Copyright (c) 2004-2005, All rights reserved.
 *
 * Redistribution and use in source and binary forms, with or without
 * modification, are permitted in accordance with the GNU Lesser General
 * Public License Version 2.1, February 1999
 *
 * http://www.gnu.org/copyleft/lesser.html
 *
 * ====================================================================
 *
 * This software consists of voluntary contributions made by many
 * individuals and was originally based on software copyright (c) 
 * 1996-2004 Sybase, Inc. http://www.sybase.com.  For more
 * information on the Open Source PowerBuilder Foundation Class
 * Libraries see http://pfc.codexchange.sybase.com
*/
//
//////////////////////////////////////////////////////////////////////////////

ilv_Parent.View = ListViewReport!

end event

on m_details.create
this.Text="&Details"
this.Microhelp="Displays information about each item"
end on

type m_dash11 from menu within m_viewitem
end type

on m_dash11.create
this.Text="-"
end on

type m_arrangeicons from menu within m_viewitem
m_1 m_1
m_2 m_2
m_3 m_3
m_4 m_4
m_5 m_5
m_6 m_6
m_7 m_7
m_8 m_8
m_9 m_9
m_10 m_10
m_dash12 m_dash12
m_autoarrange m_autoarrange
end type

on m_arrangeicons.create
this.Text="Arrange &Icons"
this.Microhelp="Contains commands for arranging items"
this.m_1=create m_1
this.m_2=create m_2
this.m_3=create m_3
this.m_4=create m_4
this.m_5=create m_5
this.m_6=create m_6
this.m_7=create m_7
this.m_8=create m_8
this.m_9=create m_9
this.m_10=create m_10
this.m_dash12=create m_dash12
this.m_autoarrange=create m_autoarrange
this.Item[]={this.m_1, &
this.m_2, &
this.m_3, &
this.m_4, &
this.m_5, &
this.m_6, &
this.m_7, &
this.m_8, &
this.m_9, &
this.m_10, &
this.m_dash12, &
this.m_autoarrange}
end on

on m_arrangeicons.destroy
destroy(this.m_1)
destroy(this.m_2)
destroy(this.m_3)
destroy(this.m_4)
destroy(this.m_5)
destroy(this.m_6)
destroy(this.m_7)
destroy(this.m_8)
destroy(this.m_9)
destroy(this.m_10)
destroy(this.m_dash12)
destroy(this.m_autoarrange)
end on

type m_1 from menu within m_arrangeicons
end type

on m_1.create
this.Text="1"
this.Visible=false
end on

on m_1.destroy
end on

event clicked;//////////////////////////////////////////////////////////////////////////////
//
// Event:  Clicked
//
// Description:   Arrange the items ordered by column 1.
//
//////////////////////////////////////////////////////////////////////////////
// 
// Revision History
//
// Version
// 5.0   Initial version
//
//////////////////////////////////////////////////////////////////////////////
//
/*
 * Open Source PowerBuilder Foundation Class Libraries
 *
 * Copyright (c) 2004-2005, All rights reserved.
 *
 * Redistribution and use in source and binary forms, with or without
 * modification, are permitted in accordance with the GNU Lesser General
 * Public License Version 2.1, February 1999
 *
 * http://www.gnu.org/copyleft/lesser.html
 *
 * ====================================================================
 *
 * This software consists of voluntary contributions made by many
 * individuals and was originally based on software copyright (c) 
 * 1996-2004 Sybase, Inc. http://www.sybase.com.  For more
 * information on the Open Source PowerBuilder Foundation Class
 * Libraries see http://pfc.codexchange.sybase.com
*/
//
//////////////////////////////////////////////////////////////////////////////

ilv_Parent.event ColumnClick(1)

end event

type m_2 from menu within m_arrangeicons
end type

on m_2.create
this.Text="2"
this.Visible=false
end on

event clicked;//////////////////////////////////////////////////////////////////////////////
//
// Event:  Clicked
//
// Description:   Arrange the items ordered by column 2.
//
//////////////////////////////////////////////////////////////////////////////
// 
// Revision History
//
// Version
// 5.0   Initial version
//
//////////////////////////////////////////////////////////////////////////////
//
/*
 * Open Source PowerBuilder Foundation Class Libraries
 *
 * Copyright (c) 2004-2005, All rights reserved.
 *
 * Redistribution and use in source and binary forms, with or without
 * modification, are permitted in accordance with the GNU Lesser General
 * Public License Version 2.1, February 1999
 *
 * http://www.gnu.org/copyleft/lesser.html
 *
 * ====================================================================
 *
 * This software consists of voluntary contributions made by many
 * individuals and was originally based on software copyright (c) 
 * 1996-2004 Sybase, Inc. http://www.sybase.com.  For more
 * information on the Open Source PowerBuilder Foundation Class
 * Libraries see http://pfc.codexchange.sybase.com
*/
//
//////////////////////////////////////////////////////////////////////////////

ilv_Parent.event ColumnClick(2)

end event

type m_3 from menu within m_arrangeicons
end type

on m_3.create
this.Text="3"
this.Visible=false
end on

event clicked;//////////////////////////////////////////////////////////////////////////////
//
// Event:  Clicked
//
// Description:   Arrange the items ordered by column 3.
//
//////////////////////////////////////////////////////////////////////////////
// 
// Revision History
//
// Version
// 5.0   Initial version
//
//////////////////////////////////////////////////////////////////////////////
//
/*
 * Open Source PowerBuilder Foundation Class Libraries
 *
 * Copyright (c) 2004-2005, All rights reserved.
 *
 * Redistribution and use in source and binary forms, with or without
 * modification, are permitted in accordance with the GNU Lesser General
 * Public License Version 2.1, February 1999
 *
 * http://www.gnu.org/copyleft/lesser.html
 *
 * ====================================================================
 *
 * This software consists of voluntary contributions made by many
 * individuals and was originally based on software copyright (c) 
 * 1996-2004 Sybase, Inc. http://www.sybase.com.  For more
 * information on the Open Source PowerBuilder Foundation Class
 * Libraries see http://pfc.codexchange.sybase.com
*/
//
//////////////////////////////////////////////////////////////////////////////

ilv_Parent.event ColumnClick(3)

end event

type m_4 from menu within m_arrangeicons
end type

on m_4.create
this.Text="4"
this.Visible=false
end on

event clicked;//////////////////////////////////////////////////////////////////////////////
//
// Event:  Clicked
//
// Description:   Arrange the items ordered by column 4.
//
//////////////////////////////////////////////////////////////////////////////
// 
// Revision History
//
// Version
// 5.0   Initial version
//
//////////////////////////////////////////////////////////////////////////////
//
/*
 * Open Source PowerBuilder Foundation Class Libraries
 *
 * Copyright (c) 2004-2005, All rights reserved.
 *
 * Redistribution and use in source and binary forms, with or without
 * modification, are permitted in accordance with the GNU Lesser General
 * Public License Version 2.1, February 1999
 *
 * http://www.gnu.org/copyleft/lesser.html
 *
 * ====================================================================
 *
 * This software consists of voluntary contributions made by many
 * individuals and was originally based on software copyright (c) 
 * 1996-2004 Sybase, Inc. http://www.sybase.com.  For more
 * information on the Open Source PowerBuilder Foundation Class
 * Libraries see http://pfc.codexchange.sybase.com
*/
//
//////////////////////////////////////////////////////////////////////////////

ilv_Parent.event ColumnClick(4)

end event

type m_5 from menu within m_arrangeicons
end type

on m_5.create
this.Text="5"
this.Visible=false
end on

event clicked;//////////////////////////////////////////////////////////////////////////////
//
// Event:  Clicked
//
// Description:   Arrange the items ordered by column 5.
//
//////////////////////////////////////////////////////////////////////////////
// 
// Revision History
//
// Version
// 5.0   Initial version
//
//////////////////////////////////////////////////////////////////////////////
//
/*
 * Open Source PowerBuilder Foundation Class Libraries
 *
 * Copyright (c) 2004-2005, All rights reserved.
 *
 * Redistribution and use in source and binary forms, with or without
 * modification, are permitted in accordance with the GNU Lesser General
 * Public License Version 2.1, February 1999
 *
 * http://www.gnu.org/copyleft/lesser.html
 *
 * ====================================================================
 *
 * This software consists of voluntary contributions made by many
 * individuals and was originally based on software copyright (c) 
 * 1996-2004 Sybase, Inc. http://www.sybase.com.  For more
 * information on the Open Source PowerBuilder Foundation Class
 * Libraries see http://pfc.codexchange.sybase.com
*/
//
//////////////////////////////////////////////////////////////////////////////

ilv_Parent.event ColumnClick(5)

end event

type m_6 from menu within m_arrangeicons
end type

on m_6.create
this.Text="6"
this.Visible=false
end on

event clicked;//////////////////////////////////////////////////////////////////////////////
//
// Event:  Clicked
//
// Description:   Arrange the items ordered by column 6.
//
//////////////////////////////////////////////////////////////////////////////
// 
// Revision History
//
// Version
// 5.0   Initial version
//
//////////////////////////////////////////////////////////////////////////////
//
/*
 * Open Source PowerBuilder Foundation Class Libraries
 *
 * Copyright (c) 2004-2005, All rights reserved.
 *
 * Redistribution and use in source and binary forms, with or without
 * modification, are permitted in accordance with the GNU Lesser General
 * Public License Version 2.1, February 1999
 *
 * http://www.gnu.org/copyleft/lesser.html
 *
 * ====================================================================
 *
 * This software consists of voluntary contributions made by many
 * individuals and was originally based on software copyright (c) 
 * 1996-2004 Sybase, Inc. http://www.sybase.com.  For more
 * information on the Open Source PowerBuilder Foundation Class
 * Libraries see http://pfc.codexchange.sybase.com
*/
//
//////////////////////////////////////////////////////////////////////////////

ilv_Parent.event ColumnClick(6)

end event

type m_7 from menu within m_arrangeicons
end type

on m_7.create
this.Text="7"
this.Visible=false
end on

event clicked;//////////////////////////////////////////////////////////////////////////////
//
// Event:  Clicked
//
// Description:   Arrange the items ordered by column 7.
//
//////////////////////////////////////////////////////////////////////////////
// 
// Revision History
//
// Version
// 5.0   Initial version
//
//////////////////////////////////////////////////////////////////////////////
//
/*
 * Open Source PowerBuilder Foundation Class Libraries
 *
 * Copyright (c) 2004-2005, All rights reserved.
 *
 * Redistribution and use in source and binary forms, with or without
 * modification, are permitted in accordance with the GNU Lesser General
 * Public License Version 2.1, February 1999
 *
 * http://www.gnu.org/copyleft/lesser.html
 *
 * ====================================================================
 *
 * This software consists of voluntary contributions made by many
 * individuals and was originally based on software copyright (c) 
 * 1996-2004 Sybase, Inc. http://www.sybase.com.  For more
 * information on the Open Source PowerBuilder Foundation Class
 * Libraries see http://pfc.codexchange.sybase.com
*/
//
//////////////////////////////////////////////////////////////////////////////

ilv_Parent.event ColumnClick(7)

end event

type m_8 from menu within m_arrangeicons
end type

on m_8.create
this.Text="8"
this.Visible=false
end on

event clicked;//////////////////////////////////////////////////////////////////////////////
//
// Event:  Clicked
//
// Description:   Arrange the items ordered by column 8.
//
//////////////////////////////////////////////////////////////////////////////
// 
// Revision History
//
// Version
// 5.0   Initial version
//
//////////////////////////////////////////////////////////////////////////////
//
/*
 * Open Source PowerBuilder Foundation Class Libraries
 *
 * Copyright (c) 2004-2005, All rights reserved.
 *
 * Redistribution and use in source and binary forms, with or without
 * modification, are permitted in accordance with the GNU Lesser General
 * Public License Version 2.1, February 1999
 *
 * http://www.gnu.org/copyleft/lesser.html
 *
 * ====================================================================
 *
 * This software consists of voluntary contributions made by many
 * individuals and was originally based on software copyright (c) 
 * 1996-2004 Sybase, Inc. http://www.sybase.com.  For more
 * information on the Open Source PowerBuilder Foundation Class
 * Libraries see http://pfc.codexchange.sybase.com
*/
//
//////////////////////////////////////////////////////////////////////////////

ilv_Parent.event ColumnClick(8)

end event

type m_9 from menu within m_arrangeicons
end type

on m_9.create
this.Text="9"
this.Visible=false
end on

event clicked;//////////////////////////////////////////////////////////////////////////////
//
// Event:  Clicked
//
// Description:   Arrange the items ordered by column 9.
//
//////////////////////////////////////////////////////////////////////////////
// 
// Revision History
//
// Version
// 5.0   Initial version
//
//////////////////////////////////////////////////////////////////////////////
//
/*
 * Open Source PowerBuilder Foundation Class Libraries
 *
 * Copyright (c) 2004-2005, All rights reserved.
 *
 * Redistribution and use in source and binary forms, with or without
 * modification, are permitted in accordance with the GNU Lesser General
 * Public License Version 2.1, February 1999
 *
 * http://www.gnu.org/copyleft/lesser.html
 *
 * ====================================================================
 *
 * This software consists of voluntary contributions made by many
 * individuals and was originally based on software copyright (c) 
 * 1996-2004 Sybase, Inc. http://www.sybase.com.  For more
 * information on the Open Source PowerBuilder Foundation Class
 * Libraries see http://pfc.codexchange.sybase.com
*/
//
//////////////////////////////////////////////////////////////////////////////

ilv_Parent.event ColumnClick(9)

end event

type m_10 from menu within m_arrangeicons
end type

on m_10.create
this.Text="10"
this.Visible=false
end on

event clicked;//////////////////////////////////////////////////////////////////////////////
//
// Event:  Clicked
//
// Description:   Arrange the items ordered by column 10.
//
//////////////////////////////////////////////////////////////////////////////
// 
// Revision History
//
// Version
// 5.0   Initial version
//
//////////////////////////////////////////////////////////////////////////////
//
/*
 * Open Source PowerBuilder Foundation Class Libraries
 *
 * Copyright (c) 2004-2005, All rights reserved.
 *
 * Redistribution and use in source and binary forms, with or without
 * modification, are permitted in accordance with the GNU Lesser General
 * Public License Version 2.1, February 1999
 *
 * http://www.gnu.org/copyleft/lesser.html
 *
 * ====================================================================
 *
 * This software consists of voluntary contributions made by many
 * individuals and was originally based on software copyright (c) 
 * 1996-2004 Sybase, Inc. http://www.sybase.com.  For more
 * information on the Open Source PowerBuilder Foundation Class
 * Libraries see http://pfc.codexchange.sybase.com
*/
//
//////////////////////////////////////////////////////////////////////////////

ilv_Parent.event ColumnClick(10)

end event

type m_dash12 from menu within m_arrangeicons
end type

on m_dash12.create
this.Text="-"
this.ShiftToRight=true
end on

type m_autoarrange from menu within m_arrangeicons
end type

on m_autoarrange.create
this.Text="&Auto Arrange"
this.Microhelp="Arranges the icons automatically"
this.ShiftToRight=true
end on

event clicked;//////////////////////////////////////////////////////////////////////////////
//
// Event:  clicked
//
// Description:  Change autoarrange state of listview
//
//////////////////////////////////////////////////////////////////////////////
// 
// Revision History
//
// Version
// 5.0   Initial version
//
//////////////////////////////////////////////////////////////////////////////
//
/*
 * Open Source PowerBuilder Foundation Class Libraries
 *
 * Copyright (c) 2004-2005, All rights reserved.
 *
 * Redistribution and use in source and binary forms, with or without
 * modification, are permitted in accordance with the GNU Lesser General
 * Public License Version 2.1, February 1999
 *
 * http://www.gnu.org/copyleft/lesser.html
 *
 * ====================================================================
 *
 * This software consists of voluntary contributions made by many
 * individuals and was originally based on software copyright (c) 
 * 1996-2004 Sybase, Inc. http://www.sybase.com.  For more
 * information on the Open Source PowerBuilder Foundation Class
 * Libraries see http://pfc.codexchange.sybase.com
*/
//
//////////////////////////////////////////////////////////////////////////////

this.checked = not this.checked
ilv_parent.autoarrange = this.checked
end event