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 = '' + sys.get_typed_field('null', 'Image', 11) elseif(params == 'Constructor3') params = '' + d("text") elseif(params == 'Constructor4') params = '' + d("text") + ', ' + sys.get_typed_field('null', 'Image', 11)sys.get_typed_field('null', 'Image', 11) elseif(params == 'Constructor5') params = '' + d("text") + ', ' + sys.get_typed_field('null', 'Image', 11) + ', ' + sys.get_typed_field('null', 'OnClick', 20) elseif(params == 'Constructor6') params = '' + d("text") + ', ' + sys.get_typed_field('null', 'Image', 11) + ', ' + sys.get_typed_field('null', 'OnClick', 20) + ', ' + d("name") end sys.add_object(this.codename, 'ToolStripStatusLabel', 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('Alignment', 1, 1, 0) sys._prop_init('BorderSides', 1, 1, 0) sys._prop_init('BorderStyle', 1, 1, 0) sys._prop_init('Spring', 1, 1, 104) // makes implementation of methods as properties sys._mtd_as_prop_init('ToolStripStatusLabel') // initialize properties this.init_props(blk_init) end func init_props(blk_out) sys.blk_init_store(blk_out) // initialize properties if(not isdef('BorderSides')) v = this.props('BorderSides').value flags = ((v _and_ 1) ? '|ToolStripStatusLabelBorderSides.All' : '') + ((v _and_ 2) ? '|ToolStripStatusLabelBorderSides.Bottom' : '') + ((v _and_ 4) ? '|ToolStripStatusLabelBorderSides.Left' : '') + ((v _and_ 8) ? '|ToolStripStatusLabelBorderSides.Right' : '') + ((v _and_ 16) ? '|ToolStripStatusLabelBorderSides.Top' : '') + ((v _and_ 32) ? '|ToolStripStatusLabelBorderSides.None' : '') blk_init.println(this.codename, '.BorderSides = (0', flag, ');') end sys.set_typed_field(14, 'BorderStyle', '', 'System.Windows.Forms.Border3DStyle') sys.set_typed_field(104, 'Spring') // initialize common events and properties include("ToolStripLabel-init") include("ToolStripItem-init") include("Component-init") sys.blk_init_restore(blk_out) end func doConstructor() blk.println(this.codename, ' = new ToolStripStatusLabel();') end func doConstructor2(data) blk.println(this.codename, ' = new ToolStripStatusLabel(', sys.get_typed_field(data, 'Image', 11), ');') end func doConstructor3(data) blk.println(this.codename, ' = new ToolStripStatusLabel(', d("text"), ');') end func doConstructor4(data) blk.println(this.codename, ' = new ToolStripStatusLabel(', d("text"), ', ', sys.get_typed_field(data, 'Image', 11), ');') end func doConstructor5(data) blk.println(this.codename, ' = new ToolStripStatusLabel(', d("text"), ', ', sys.get_typed_field(data, 'Image', 11), ', ', sys.get_typed_field(data, 'OnClick', 20), ');') end func doConstructor6(data) blk.println(this.codename, ' = new ToolStripStatusLabel(', d("text"), ', ', sys.get_typed_field(data, 'Image', 11), ', ', sys.get_typed_field(data, 'OnClick', 20), ', ', d("name"), ');') end func doGetPreferredSize(data) if(linked("onGetPreferredSize")) event("onGetPreferredSize", this.codename + '.GetPreferredSize(' + d("constrainingSize") + ')') else blk.println(this.codename, '.GetPreferredSize(', d("constrainingSize"), ');') end end include("ToolStripLabel") include("ToolStripItem")