delphi - Firemonkey ListView item indexes not updating -

-

i'm using tlistview in firemonkey. on startup, create 3 list view headers , keep references them future use (specifically inserting items below each header). 

fitemheader:= lv.items.add; fitemheader.purpose:= tlistitempurpose.header; fitemheader.text:= 'items'; fchargeheader:= lv.items.add; fchargeheader.purpose:= tlistitempurpose.header; fchargeheader.text:= 'charges'; fpaymentheader:= lv.items.add; fpaymentheader.purpose:= tlistitempurpose.header; fpaymentheader.text:= 'payments';

then, i've added few items below first (item) header, works fine.

someitem:= lv.items.insert(fchargeheader.index);

then later, wish insert item below 1 of other headers...

someitem:= lv.items.insert(fpaymentheader.index);

this supposed add item above payments header (last item in charges section). however, instead gets added further list (at index 2).

while debugging issue, came surprise 3 headers' indexes have not been updated after adding items. following code demonstrated that:

s:= 'items: '+inttostr(fitemheader.index)+slinebreak+   'charges: '+inttostr(fchargeheader.index)+slinebreak+   'payments: '+inttostr(fpaymentheader.index); showmessage(s);

the indexes 0, 1, , 2 though they're supposed larger (after adding items).

further debugging led me add code:

for x := 0 lv.items.count-1 begin   s:= s + lv.items[x].text+' - '+inttostr(lv.items[x].index)+slinebreak; end; showmessage(s);

which reports correct indexes. further, if call second piece of code , first piece, indexes fine..

for x := 0 lv.items.count-1 begin   s:= s + lv.items[x].text+' - '+inttostr(lv.items[x].index)+slinebreak; end; showmessage(s); s:= 'items: '+inttostr(fitemheader.index)+slinebreak+   'charges: '+inttostr(fchargeheader.index)+slinebreak+   'payments: '+inttostr(fpaymentheader.index); showmessage(s);

so after bit more digging, turns out simple call to...

lv.items[1].index;

...forced particular item re-indexed.

while technically works, it's extremely sloppy work-around. else can ensure list view gets re-indexed prior inserting item?

note: when did similar approach using tlistbox did not have issue. it's surely bug in tlistview control. i'm not asking how fix bug, better work-around.

note: work-around appeared work once or twice - further attempts , work-around doesn't force re-index.

update

it seems magical work-around, still sloppy:

procedure reindexlistview(alistview: tlistview); var   x: integer; begin   x := 0 alistview.items.count-1     alistview.items[x].index; end;

this bug in delphi xe8. works fine in delphi xe7 update 1.

read more bug: delphi xe8 bug in tlist<t>, need workaround

really looks bug. tested delphi xe8 under win32 , win64.

method .additem has same effect .insert

how looks:

enter image description here

how should (and how looks if using lv.items[1].index). note: same effect if prior adding item under "charges" going select item in tlistview

enter image description here


Comments

Post a Comment

Popular posts from this blog

xslt - Substring before throwing error -

-
i've below xml <?xml version="1.0" encoding="utf-8"?> <body> <p>industrial drawing: creative composition</p> <p>industrial drawing: creative<fn> <fnn>4</fnn> <fnt> <p>ftn1"</p> </fnt> </fn> composition </p> </body> and below xsl. <xsl:template match="p"> <xsl:choose> <xsl:when test="contains(substring-before(./text(),' '),'article')"> <xsl:text>sect3</xsl:text> <xsl:value-of select="./text()"/> </xsl:when> <xsl:when test="contains(substring-before(./b/text(),' '),'section')"> <xsl:text> sect 2</xsl:text> <xsl:value-of select="./text()"/> </xsl:when> <xsl:w...
Read more

oracle - Changing start date for system jobs related to automatic statistics collections in 11g -

-
i have oracle database 11g enterprise edition release 11.2.0.1.0 - 64bit production running on windows 2008 r2 somehow got next run dates scheduled jobs set dates in year 2016. jobs created able reset start_date in turn caused next_run_date reset. jobs related oracle automatic statistics collections unable dms_scheduler.set_attribute work changing start_date values. i tried resetting weekly window's dates per oracle document id 1450173.1 using sql following , did in fact reset values see within dba_scheduler_windows had no change dba_scheduler_jobs begin dbms_scheduler.set_attribute ( name => '"sys"."monday_window"', attribute => 'start_date', value => '10-jun-15 10.00.00.000000000 pm us/central'); end; / the job names seeing issue on are: rse$clean_recoverable_script ora$autotask_clean purge_log sm$clean_auto_split_merge bsln_maintain_stats_job mgmt_stats_config_job some of lack schedule names if try dbms_schedul...
Read more

javascript - gulp-nodemon - nodejs restart after file change - Error: listen EADDRINUSE events.js:85 -

-
i'm running nodejs 0.12.3 - gulp 3.10.8 , gulp-nodemon 2.0.3. gulpfile.js : gulp.task('serve', ['build'], function() { gulp.start('fb-flo'); nodemon({ script: paths.server, env: { 'node_env': 'development' }, // env: { 'node_env': 'production' }, execmap: { 'js': 'node_modules/babel/bin/babel-node --stage 1' //es7 cote server }, delay: '0ms', watch: ['src/shared/', 'src/server/'], ignore: ['src/shared/components'], tasks: function (changedfiles) { var tasks = []; changedfiles.foreach(function (file) { if (path.extname(file) === '.jsx' && !~tasks.indexof('bundlejs')) tasks.push('bundlejs'); if (path.extname(file) === '.less' && !~tasks.indexof('compileless')) tasks.push('compileless'); }); return tasks; } ...
Read more