HTH:
// UtyLB_SaveUserSort(tListBox;->tHeaderName;->lSortOrder)
// ----------------------------------------------------
// User name (OS): Olivier Flury - FLURY SOFTWARE
// Date and time: 19.07.16, 12:49:33
// ----------------------------------------------------
// Method: UtyLB_SaveUserSort
// Description
// Place this method in the context of the form event On After Sort of a
listbox.
// This method sets the header object name of the sorted column and the sort
order in the variables as passed in $2 and $3
// See also the method UtyLB_SetUserSort
//
// Parameters:
// $1, text, object name of the listbox of which to save the user sort
// $2, pointer to text variable where to save the object name of the header
of the sorted column
// $3, pointer to numeric variable where to save the sort order: 1 =
ascending sort, 2 = descending sort
// ----------------------------------------------------
C_TEXT($1;$tListBox)
C_POINTER($2;$3;$p2tHeaderName;$p2lSortOrder;$p2OneHeader)
C_LONGINT($i;$n)
ARRAY TEXT($atCol;0)
ARRAY TEXT($atHead;0)
ARRAY POINTER($ap2Col;0)
ARRAY POINTER($ap2Head;0)
ARRAY BOOLEAN($abVisible;0)
ARRAY POINTER($ap2Style;0)
$tListBox:=$1
$p2tHeaderName:=$2
$p2lSortOrder:=$3
LISTBOX GET
ARRAYS(*;$tListBox;$atCol;$atHead;$ap2Col;$ap2Head;$abVisible;$ap2Style)
$n:=Size of array($ap2Head)
For ($i;1;$n)
$p2OneHeader:=$ap2Head{$i}
If ($p2OneHeader->#0)
$p2lSortOrder->:=$p2OneHeader->
$p2tHeaderName->:=$atHead{$i}
$i:=$n+1
End if
End for
// end of method
-------------------------------------------------------------------
// UtyLB_SetUserSort(tListBox;tHeaderName;lSortOrder)
// ----------------------------------------------------
// User name (OS): Olivier Flury - FLURY SOFTWARE
// Date and time: 15.07.16, 14:03:00
// ----------------------------------------------------
// Method: UtyLB_SetUserSort
// Description
// Sorts a listbox. See the method UtyLB_SaveUserSort
//
// Parameters:
// $1, text, object name of the listbox
// $2, text, object name of header of column to sort
// $3, longint, sort order 1 = ascending sort, 2 = descending sort
// ----------------------------------------------------
C_TEXT($1;$2;$tListBox;$tHeaderName)
C_LONGINT($3;$lSortOrder;$lWhere)
$tListBox:=$1
$tHeaderName:=$2
$lSortOrder:=$3
Case of
: ($tHeaderName="")
// do nothing
: (($lSortOrder#1) & ($lSortOrder#2))
// do nothing
Else
ARRAY TEXT($atCol;0)
ARRAY TEXT($atHead;0)
ARRAY POINTER($ap2Col;0)
ARRAY POINTER($ap2Head;0)
ARRAY BOOLEAN($abVisible;0)
ARRAY POINTER($ap2Style;0)
LISTBOX GET
ARRAYS(*;$tListBox;$atCol;$atHead;$ap2Col;$ap2Head;$abVisible;$ap2Style)
$lWhere:=Find in array($atHead;$tHeaderName)
Case of
: ($lWhere<=0)
// do nothing
: ($lSortOrder=1) // ascending sort
LISTBOX SORT COLUMNS(*;$tListBox;$lWhere;>) // ">" to sort in ascending order
or "<" to sort in descending order
: ($lSortOrder=2) // descending sort
LISTBOX SORT COLUMNS(*;$tListBox;$lWhere;<)
End case
End case
// end of method
|||||| https://flury-software.ch/
-----Ursprüngliche Nachricht-----
Von: 4D_Tech <4d_tech-boun...@lists.4d.com> Im Auftrag von stardata.info via
4D_Tech
Gesendet: Mittwoch, 16. Januar 2019 10:05
An: 4d_tech@lists.4d.com; 4d_tech-requ...@lists.4d.com
Cc: stardata.info <stard...@stardata.info>
Betreff: ON AFTER SORT
Hi All,
I use 4D V16 on windows.
I need to know if one sort in my listbox are used (by click on column).
With event "on after sort" I can trap the click on the column in a sortable
listbox, but I need even to
know what column is clicked and the sort order of this column.
Someone have done already?
Thanks
Ferdinando
**********************************************************************
4D Internet Users Group (4D iNUG)
Archive: http://lists.4d.com/archives.html
Options: https://lists.4d.com/mailman/options/4d_tech
Unsub: mailto:4d_tech-unsubscr...@lists.4d.com
**********************************************************************
**********************************************************************
4D Internet Users Group (4D iNUG)
Archive: http://lists.4d.com/archives.html
Options: https://lists.4d.com/mailman/options/4d_tech
Unsub: mailto:4d_tech-unsubscr...@lists.4d.com
**********************************************************************
