On Nov 13, 2006, at 3:56 PM, Charles Yeomans wrote:
Perhaps you could post your style-massage code and let us have a look.
Gladly!
--------------------------
dim runCount, i as Integer
dim InputText as StyledText
dim run as StyleRun
dim finalText as String
InputText = me.StyledText
me.Visible = FALSE
runCount = InputText.StyleRunCount - 1 // this is the line that
is being so slow
finalText = ""
for i = 0 to runCount // this, however, goes very quickly
run = InputText.StyleRun(i)
if run.Bold then
finalText = finalText + "<strong>" + run.Text + "</strong>"
elseif run.Italic then
finalText = finalText + "<cite>" + run.Text + "</cite>"
elseif run.Underline then
finalText = finalText + "<em>" + run.Text + "</em>"
else
finalText = finalText + run.Text
end if
next i
me.Text = finalText
----------------------------
I'd be extremely appreciative. I usually assume that it's my novice
code that causes these long delays, but testing seems to indicate
that the hangup is on that call to StyleRunCount.
Ian
_______________________________________________
Unsubscribe or switch delivery mode:
<http://www.realsoftware.com/support/listmanager/>
Search the archives of this list here:
<http://support.realsoftware.com/listarchives/lists.html>
