>>>>
thisform.lockscreen = .t.
>>>>
>>>>lnN = 0
>>>>
>>>>with thisform.oCntPZChart
>>>> for each loO in .objects
>>>> wait window m.lcC + padl( m.lnN, 4, '0' ) nowait
>>>> lnN = m.lnN + 1
>>>> .removeobject( m.loO.name )
>>>> next
>>>>endwith
>>>>with thisform.oCntPage1
>>>> for each loO in .objects
>>>> wait window m.lcC + padl( m.lnN, 4, '0' ) nowait
>>>> lnN = m.lnN + 1
>>>> .removeobject( m.loO.name )
>>>> next
>>>>endwith
>>>
>>>And without wait window? Should be even faster.
>>
>>Has been tested. The performance was totally similar. Do this test:
>>
for n = 1 to 10000
>> wait window str(n) nowait
>>next
>>On my machine it is ready within one ... second.
>
>Does making the window invisible before closing help?
Also tried. There was no effect at all.
Also tried: lockscreen True. The visual effect is better, but no measurable performance gains, to my surprise.
Groet,
Peter de Valença
Constructive frustration is the breeding ground of genius.
If there’s no willingness to moderate for the sake of good debate, then I have no willingness to debate at all.
Let's develop superb standards that will end the holy wars.
"There are three types of people: Alphas and Betas", said the beta decisively.
If you find this message rude or offensive or stupid, please take a step away from the keyboard and try to think calmly about an eventual a possible alternative explanation of my message.