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: 326658
 
- Wed Apr 11, 2012 1:22 pm
 - Forum: PureFORM & JaPBe
 - Topic: PureLVSORT library : sorting ListIconGadgets (and more)
 - Replies: 438
 - Views: 326658
 
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: 33804
 
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: 33804
 
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 ...