[Modules] ListEx (all OS / DPI)

[Thorsten1867]

I'm afraid I forgot the clip output for the header.

[zikitrake]

Hi, Thorsten1867

With last version I have 2 issues:

1) It rise an error when you execute the included sample



I Solved it temporaly adding a If CountItems(ListEx()) codition


2) When you export to CSV a list, first column is ignored
Try change in the included Sample:
If ListEx::Gadget(#List, 10, 10, 395, 230, "", 25, "", ListEx::#GridLines|ListEx::#CheckBoxes|ListEx::#AutoResize|ListEx::#MultiSelect|ListEx::#ResizeColumn, #Window)
to
If ListEx::Gadget(#List, 10, 10, 395, 230, "testcol", 25, "", ListEx::#GridLines|ListEx::#AutoResize|ListEx::#MultiSelect|ListEx::#ResizeColumn, #Window)



On the other hand, do you have a Paypal account where you can receive donations?

Thank you for your work!

[Thorsten1867]

Bugfixes

@zikitrake
You will find what you are looking for under " Tea & Pizza Ware" in the module.

[zikitrake]

Bugfixes

@zikitrake
You will find what you are looking for under " Tea & Pizza Ware" in the module.

All works fine, now.
Thank you!

[Thorsten1867]

Update:
- Bugfixes
- ResetSort() added

[ruslanx]

Hi Thorsten1867, I have a problem with export - import csv ... is not correctly imported or may be exported ... or I do some thing wrong .. can you help me ?

https://pasteboard.co/IS1iteo.png

Code: Select all

...
Case #Export
    ListEx::ExportCSV(#List, "Export.csv", ListEx::#HeaderRow)
Case #Import
    ListEx::ImportCSV(#List, "Import.csv") ;; with ListEx::#HeaderRow - get Error.
...

Thank you! Nice Lib!


Update:

I fixed code in my way ... quickly fix

Code: Select all

    Procedure.i Import_CSV_Header(String.s, Separator.s, DQuote.s)
      Define.i idx = 1 ;; FIX  set to '1'
      Define.s Column$
      
      String = ReplaceString(DQuote + Trim(String, DQuote), DQuote + Separator + DQuote, #LF$) ;; FIX  added 'DQuote +' 
      
      ForEach ListEx()\Cols()    
        
        Column$ = StringField(String, idx, #LF$)
        
        If Column$
          ListEx()\Cols()\Header\Title = Column$
        EndIf  
        
        idx + 1
      Next
      
    EndProcedure
    
    Procedure.i Import_CSV_Row(String.s, Separator.s, DQuote.s)
      
      ; My FIX
      String = RemoveString(String, DQuote + Separator + DQuote, #PB_String_CaseSensitive, 1, 1)  ; remove unnecessary  ";"    ??~!
      
      String = ReplaceString(String, DQuote + Separator + DQuote, #LF$)
      String = Trim(String, DQuote)
      
      ProcedureReturn AddItem_(-1, String, "", #False)
    EndProcedure

but checkbox state not saved ..

please fix in your style .. thx.

[Thorsten1867]

Update:
- Bugfixes and updates for CSV

[ruslanx]

Update:
- Bugfixes and updates for CSV

working! thank you!

[Thorsten1867]

Bugfixes

[ruslanx]

Code: Select all

        ListEx::AddColumn(#List, 5, "Progress", 60, "progress", ListEx::#ProgressBar)
        
        ListEx::SetColumnAttribute(#List, 5, ListEx::#Font, #Font_Arial9B)

Bug!? if is set #ProgressBar font, will apply to all items and colums ... except first row ...

https://prnt.sc/r0qhi7
https://prnt.sc/r0q6z6

[Thorsten1867]

Cannot reproduce the error.

Code: Select all

ListEx::SetFont(#List, FontID(#Font_Arial9B), #False, 5)

Try this!

[ruslanx]

Hi, no effect on progress bar, on other columns font is applied font.

.. I want to change progress bar (percent) font size .. tried 2 methods not work correctly

[Thorsten1867]

Update:

• Added: SetColumnImage()

[loulou2522]

HI Thorsten,
In my #list i don't want to export in csv column
and the last column (type button) of each row.
How can i do to make that ?
Have you an idea or may i have to developp something
Example
Which is exported actually

"";"RUM";"IBAN";"ICS";"MONTANT";"LIBELLE";""
"0";"0012020220152331";"FR76";"FR";"100,00";" ";""

and i want only to export

"RUM";"IBAN";"ICS";"MONTANT";"LIBELLE"
"0012020220152331";"FR76";"FR";"100,00;""

Thanks in advance

[Thorsten1867]

Update:

• Flag #NoButtons for CSV

@loulou2522
Please try it.