func init // adds using namespace sys.add_use('System.Windows.Forms') // initialize instance params = this.props('Constructor').value if(params == 'Constructor') params = '' elseif(params == 'Constructor2') params = '' + d("name") end sys.add_object(this.codename, 'ToolStripProgressBar', params) if(pos(sys.get_frame_above(), 'StatusStrip', 0)==0) blk_init.println(sys.get_frame_above(), '.Items.Add(', this.codename, ');') end // makes implementation methods for properties sys._prop_init('MarqueeAnimationSpeed', 1, 1, 1) sys._prop_init('Maximum', 1, 1, 1) sys._prop_init('Minimum', 1, 1, 1) sys._prop_init('ProgressBar', 1, 0, 0) sys._prop_init('RightToLeftLayout', 1, 1, 104) sys._prop_init('Step', 1, 1, 1) sys._prop_init('Style', 1, 1, 0) sys._prop_init('Text', 1, 1, 2) sys._prop_init('.Value', 1, 1, 1) // makes implementation of methods as properties sys._mtd_as_prop_init('ToolStripProgressBar') // makes implementation of simple methods sys._method_init('PerformStep') // initialize properties this.init_props(blk_init) end func init_props(blk_out) sys.blk_init_store(blk_out) // initialize properties sys.set_typed_field(1, 'MarqueeAnimationSpeed') sys.set_typed_field(1, 'Maximum') sys.set_typed_field(1, 'Minimum') sys.set_typed_field(104, 'RightToLeftLayout') sys.set_typed_field(1, 'Step') sys.set_typed_field(14, 'Style', '', 'System.Windows.Forms.ProgressBarStyle') sys.set_typed_field(1, 'Value') // initialize events if(not (this.onRightToLeftLayoutChanged == 'defined')) sys.event_imp('onRightToLeftLayoutChanged') end sys.event_add('onRightToLeftLayoutChanged', '', '', '', this.codename) // initialize common events and properties include("ToolStripControlHost-init") include("ToolStripItem-init") sys.blk_init_restore(blk_out) end func doConstructor() blk.println(this.codename, ' = new ToolStripProgressBar();') this.init_props(blk) end func doConstructor2(data) blk.println(this.codename, ' = new ToolStripProgressBar(', d("name"), ');') this.init_props(blk) end func doIncrement(data) blk.println(this.codename, '.Increment(', d("value"), ');') end include("ToolStripControlHost") include("ToolStripItem")