Digital Workshop

I thought I was about time I started to contribute to this forum, so here is my first offering.
A couple of our clients have asked for a progress bar at the bottom of the pages in each module of the production. We have, in the past, used a set of images placed on each page to accomplish this. This time, however, we decided to write a universal page script to carry this out.
Basically the page script will incrementally fill a text object called BAR on the page with a colour which advances from left to right. Both the first and last pages of the chapters are indicated with text.
I have commented the code to assist other developers.
Please feel free to improve on my offering if you would like to, but please post it back to benefit all.
Thanks to the Digital Workshop staff for their assistance with my coding.
Andy Thompson

// Get number of pages in the chapter
var pagecount = this.GetParent().GetNumberChildren()

//Set up the object called progress which is Linear and has an angle of 90 degrees
var progress=new Object()
progress.style="Linear"
progress.angle=90

//Create an array with an element for each page in the chapter
progress.colour=new Array(pagecount)

//Get current page number within the chapter
var pagenum = this

//Loop through all the pages in the chapter to find the current page number
// and set the position of the vertical bar
for (n=0;n<pagecount;n++)
{
var name = this.GetParent().GetChild(n)
progress.colour[n]=RGB(255,65,65) //build a red bar
if (name == pagenum)
{
var vert = n
var currentpage = n+1
}
}

//Loop through the positions up to the vertical bar and set all positions to the left green
for(p=0;p<vert;p++)
{
progress.colour[p] = RGB(0,255,0) //build a green bar
if(currentpage==pagecount) //if at the end of the module create an object filled with green
{
progress.colour=new Array(1)
progress.colour[0]=RGB(0,255,0)
}
}

//Set the colours of an object on the page called 'BAR'
BAR.SetBackground(progress)

/*Comment out these last statements if you are NOT using a text object*/

if(currentpage==pagecount)
{
BAR.ReplaceSelection("End of Module")
}

if(currentpage==1)
{
BAR.ReplaceSelection("Start of Module")
}

Hello Andy,

That's a nice application.
I looked at it for a few minutes.

I added a master page and deleted all the objects the other pages.
All pages are using the masterpage and it still works.

I attach my contribution.

Kind regards,

Dear Oscar,

Nice improvement...brings the file size down a bit too.

Kind Regards
Andy Thompson.

Oscar
Nice job indeed!
I have been working in something like that but not as good as yours! I have been using pictures to produce the effect.
Congratulations!
German