serial %Const Default %Library.TMListView %Library.Integer -1 1: Ascending -1: Descending %Library.Integer 1 For internal use. generator initvalue:%String cache 0 %Library.Status document literal Args:%String cache 0 document literal Args:%String cache 0 document literal Args:%String cache 0 document literal %Nr2:1,1:-1) If ..SortColumnIndex=-1 Do Quit Else If ..SortColumnIndex=0 Do . Set Compare=$$$CmpNr(Item1.Caption,Item2.Caption) Else Do . New Index . Set Index=..SortColumnIndex-1 . Set Compare=$$$CmpNr(Item1.SubItems.GetStrings(Index),Item2.SubItems.GetStrings(Index)) ;End of user code s Args=$lb(Sender,Item1,Item2,Data,Compare) q ]]> %Library.CacheSerialState Address ClassName CloseFromClient Parent PropName ClassNameAbsent Tag Constraints Font OnCanResize OnClick OnConstrainedResize OnDblClick OnDragDrop OnDragOver OnEndDock OnEndDrag OnMouseDown OnMouseMove OnMouseUp OnResize OnStartDock OnStartDrag PopupMenu Brush OnDockDrop OnDockOver OnEnter OnExit OnGetSiteInfo OnKeyDown OnKeyPress OnKeyUp OnMouseWheel OnMouseWheelDown OnMouseWheelUp Canvas Columns IconOptions Items OnChange OnChanging OnColumnClick OnCompare OnCustomDraw OnCustomDrawItem OnData OnDataFind OnDataHint OnDeletion OnDrawItem OnEdited OnEditing OnGetImageIndex OnSelectItem Query SortColumnIndex SortDirection IsNumber