[Modules] ListEx (all OS / DPI)

[Thorsten1867]

Bug fixed

Please try it again.

[zikitrake]

Bug fixed

Please try it again.

It works fine now! No more rows()\number

Thank you again.

[zikitrake]

Another request if is possible

In the following example, I activate the 4th row of the list, make a ClearItems() and call GetState(), which follows with the value 4.

Is possible reset Getstate() value to 0 after a call to ClearItems() ?

Code: Select all

   If OpenWindow(0, 0, 0, 500, 200, "Window", #PB_Window_SystemMenu|#PB_Window_ScreenCentered|#PB_Window_SizeGadget)    
    ListEx::Gadget(1, 10, 10, 400, 70, "header1", 125, "", ListEx::#GridLines)    
    For c  = 1 To 10
      ListEx::AddItem(1, ListEx::#LastItem, "Randy Rhoads")
    Next
    
    ListEx::SetState(1, 4)
    ListEx::ClearItems(1)
    Debug ListEx::getState(1)
    
    Repeat: Until WaitWindowEvent()  = #PB_Event_CloseWindow     
  EndIf  
CompilerEndIf

For now I added ListEx()\Row\Focus = -1 in Procedure ClearItems(gNum.i) and it seem works fine

PS: I owe you a dozen beers!

[Thorsten1867]

Bug fixed

[RobertRioja]

Thank you for ListEx.

Is it possible to resize a column based on the content's width? If so, can you offer sample code?

Thank you,
Robert

[Thorsten1867]

Update:

• Align & font for individual columns of header row
• SetHeaderHeight() added
• SetFont() & SetColor() for individual columns
• SetFont() extended by type parameters (#HeaderFont/#StringFont/#GadgetFont)

[Thorsten1867]

Is it possible to resize a column based on the content's width? If so, can you offer sample code?

Update: Added: new flag #FitColumn for AddColumn()

[Thorsten1867]

Update: CloseEdit() - closes all cells that are open for editing (StringGadget / ComboBox / DateGadget) and saves the changes.

[Thorsten1867]

Update: individual colors for the columns of the header line

[doctorized]

Your code is a hell of a job! Congratulations!
I would like one thing, if it can be done. Is there a way to add a shortcut for keyboard Enter key and when the user double clicks an editable cell, enters a value and presses Enter key, to be able to go to the next cell in the column without having double clicking that cell?

[Thorsten1867]

.... when the user double clicks an editable cell, enters a value and presses Enter key, to be able to go to the next cell in the column without having double clicking that cell?

Have you ever tried the tab key?

[doctorized]

Have you ever tried the tab key?

I tried it now and the cell just lost editing focus. Nothing more.

[Thorsten1867]

I just re-tested it.
I double click in the column "Edit", change the name and press the tab key.
Then the ComboBox will be opened automatically for editing.
(Windows 10 / PB 5.71)

[doctorized]

I just re-tested it.
I double click in the column "Edit", change the name and press the tab key.
Then the ComboBox will be opened automatically for editing.
(Windows 10 / PB 5.71)

Oh, now I see. If you have two or more editable columns, with Tab key you go through them horizontally. In my case, only one editable column exists and I want to move vertically.

Also, a small addition useful to me:

Code: Select all

Declare.i CountColumns(GNum.i)

   Procedure.i CountColumns(GNum.i)
    
    If FindMapElement(ListEx(), Str(GNum))
      
      ProcedureReturn ListEx()\Col\Number
      
    EndIf  
 
 EndProcedure

[Thorsten1867]

Try:

Code: Select all

ListEx::GetAttribute(#List, ListEx::#ColumnCount)