#Xojo weblistbox sort code#
#Xojo weblistbox sort windows#

HeaderContentPaint(g As Graphics, column As Integer) as Booleanĭo these look familiar to you? They should! As you can see, the Event Handler signatures are like the ones for customizing the cells drawing: CellBackgroundPaint(g As Graphics, row As Integer, column As Integer) as BooleanĬellTextPaint(g As Graphics, row As Integer, column As Integer, x as Integer, y as Integer) as Boolean In addition, now it is really easy to add any picture, background color and text combination you want to your headers too and the way to do that is adding these two Event Handlers to the ListBox instance: HeaderBackgroundPaint(g As Graphics, column As Integer) as Boolean

#Xojo weblistbox sort windows#

Even better, you only need to implement a couple of events to make it happen!Įven if you don’t need to customize your ListBox headers right now, you are already benefitting from its related improvements in 2020r1! The header’s height will adjust on macOS to fit the text size to the font size of your choice (as it was doing already in previous releases both on Windows and Linux). I’m sure this new feature will make your ListBox shine thanks to the work of Xojo Engineer William Yu. Now you have self-sorted listboxes.Sure, Xojo 2020r1 introduces some long awaited and much requested features but it’s also got a lot of feature gems it in it like the ability to customize the ListBox headers! After this you add the one codeline to the HeaderPressed event of each of your listboxes.

#Xojo weblistbox sort code#

The Listbox gets the following code in its HeaderPressed event:Īll you need to do is, to copy the function an create the simple class, which has no code.

Lst.Heading(SelectedHeader) = lst.Heading(SelectedHeader) + ' ?''add a sign to column-header to show which column is sorted Lst.Heading(a) = ReplaceAll(lst.Heading(a), ' ?','') 'remove the sorted-sign from each column-header

So the head-column is sorted, the cols-array with the sortitem-objects will be sorted in the same orderĭim vals() as string = cols(i).ColumnValuesĭim d as integer = LST.AddRow() for a as integer = 0 to vals.Ubound Head.Append(LST.Cell(a, SelectedHeader)) dim C as new SortItem_Columnįor n as integer = 0 to LST.ColumnCount - 1 'Load the contents of the column whis is about to sort into its own array (head) 'Load the contents of the Listbox into an array (each row its own) (vals) and add them to an sortitem

HeadIndex as integer - the index of the header the user clicked in the listbox.ColumnValues() as String - an array where we store one row of our listbox.SelectedHeader as integer - this is the id of the column which is the source of the sort order.LST as WebListBox - this is our listbox which we want to sort.The Function SortListbox needs 2 parameter: one Function: SortListbox Place it in the App or Session Element for example.

So I used my brain and made a simple solution, that everyone can use. Since I often use dynamic filled listboxes with different column counts, most examples wount work.Īnother fact is, that there is no working example or hint in this forum, which solves the problem. In the Xojo examples is a project with a listbox with static columns. One of the functions I miss most in Xojo Webedition is an easy way to sort weblistboxes.

This is my third tutorial about some code-stuff I use in my webapps.