YNU_JEUS/app_home/himed/xpapps/tmp/samplexp/xp/test_progress.xfdl

<?xml version="1.0" encoding="utf-8"?>
<FDL version="1.5">
  <TypeDefinition url="..\..\..\default_typedef.xml"/>
  <Form id="test_progress" classname="test_progress" inheritanceid="" position="absolute 0 0 539 339" titletext="New Form">
    <Layouts>
      <Layout>
        <Button id="Button00" taborder="0" text="Button00" position="absolute 48 42 148 62" onclick="Button00_onclick"/>
        <Static id="Static00" text="Static00" position="absolute 48 78 148 98"/>
        <ProgressBar id="ProgressBar00" taborder="1" text="ProgressBar00" max="100" min="0" position="absolute 48 112 220 127"/>
        <Edit id="Edit00" taborder="2" position="absolute 267 120 367 140"/>
      </Layout>
    </Layouts>
    <Script type="xscript4.0"><![CDATA[
function Button00_onclick(obj:Button,  e:ClickEventInfo)
{
	var rowcount = 10000;
	
	ProgressBar00.max  = rowcount;
	ProgressBar00.min  = 0;
	ProgressBar00.pos  = 0;
	
	ProgressBar00.text = ProgressBar00.pos + " / " + ProgressBar00.max;

	for(var i = 0; i < rowcount; i++) {
 		Static00.text     = i;
 		ProgressBar00.pos = i;
 		ProgressBar00.text = ProgressBar00.pos + " / " + ProgressBar00.max;
 		
 		this.updateWindow();
 	}
 	
 	Static00.text      = rowcount;
 	ProgressBar00.pos  = rowcount;
 	ProgressBar00.text = ProgressBar00.pos + " / " + ProgressBar00.max;
 	this.updateWindow();
}
]]></Script>
  </Form>
</FDL>