Hi gnozal
I tried changing callback
Procedure MyFilterCallback(GadgetNumber.l, FilterString.s, ListIconColumn.l, EventCode.l) ; simple filter example
Shared *ListBuffer
If EventCode = #PureLVSORT_FilterChange
If *ListBuffer
PureLVSORT_LoadListIconFromMem(GadgetNumber, *ListBuffer, FilterString ...
Search found 4 matches
- Thu Apr 12, 2012 7:06 pm
- Forum: PureFORM & JaPBe
- Topic: PureLVSORT library : sorting ListIconGadgets (and more)
- Replies: 438
- Views: 321230
- Wed Apr 11, 2012 1:22 pm
- Forum: PureFORM & JaPBe
- Topic: PureLVSORT library : sorting ListIconGadgets (and more)
- Replies: 438
- Views: 321230
Re: PureLVSORT library : sorting ListIconGadgets (and more)
Hi
- is it possible to make the filter field - drop-down list?
- Can you help me create callback to sort on two columns at the same time
http://s019.radikal.ru/i612/1204/8a/f4059347fd3b.jpg
Procedure MyFilterCallback(GadgetNumber.l, FilterString.s, ListIconColumn.l, EventCode.l) ; simple filter ...
- is it possible to make the filter field - drop-down list?
- Can you help me create callback to sort on two columns at the same time
http://s019.radikal.ru/i612/1204/8a/f4059347fd3b.jpg
Procedure MyFilterCallback(GadgetNumber.l, FilterString.s, ListIconColumn.l, EventCode.l) ; simple filter ...
- Thu Apr 05, 2012 8:52 pm
- Forum: Tricks 'n' Tips
- Topic: JSON encoder and decoder
- Replies: 51
- Views: 33581
Re: JSON encoder and decoder
thank you PMV
you have made excellent parser

you have made excellent parser
- Wed Apr 04, 2012 9:33 pm
- Forum: Tricks 'n' Tips
- Topic: JSON encoder and decoder
- Replies: 51
- Views: 33581
Re: JSON encoder and decoder
Hi PMV,
can you help me parse this json.txt
I try:
IncludeFile "JSON_Parser.pbi"
Define File.i = OpenFile(#PB_Any, "JSON.txt")
Define String.s = ""
Define Format.i = ReadStringFormat(File)
While Eof(File) = #False
String + ReadString(File, Format) + Chr(13) + Chr(10)
Wend
CloseFile(File)
;Debug ...
can you help me parse this json.txt
I try:
IncludeFile "JSON_Parser.pbi"
Define File.i = OpenFile(#PB_Any, "JSON.txt")
Define String.s = ""
Define Format.i = ReadStringFormat(File)
While Eof(File) = #False
String + ReadString(File, Format) + Chr(13) + Chr(10)
Wend
CloseFile(File)
;Debug ...