include("MakeMenu") func init // adds using namespace sys.add_use('System.Windows.Forms') // initialize instance sys.add_widget('ToolStrip') // makes implementation methods for properties sys._prop_init('AllowItemReorder', 1, 1, 104) sys._prop_init('AllowMerge', 1, 1, 104) sys._prop_init('CanOverflow', 1, 1, 104) sys._prop_init('CausesValidation', 1, 1, 104) sys._prop_init('DefaultDropDownDirection', 1, 1, 0) sys._prop_init('GripDisplayStyle', 1, 0, 0) sys._prop_init('GripMargin', 1, 1, 0) sys._prop_init('GripRectangle', 1, 0, 0) sys._prop_init('GripStyle', 1, 1, 0) sys._prop_init('ImageList', 1, 1, 0) sys._prop_init('ImageScalingSize', 1, 1, 0) sys._prop_init('IsCurrentlyDragging', 1, 0, 104) sys._prop_init('IsDropDown', 1, 0, 104) sys._prop_init('Items', 1, 0, 0) sys._prop_init('LayoutSettings', 1, 1, 0) sys._prop_init('LayoutStyle', 1, 1, 0) sys._prop_init('Orientation', 1, 0, 0) sys._prop_init('OverflowButton', 1, 0, 0) sys._prop_init('Renderer', 1, 1, 0) sys._prop_init('RenderMode', 1, 1, 0) sys._prop_init('ShowItemToolTips', 1, 1, 104) sys._prop_init('Stretch', 1, 1, 104) sys._prop_init('TextDirection', 1, 1, 0) // makes implementation of methods as properties sys._mtd_as_prop_init('ToolStrip') // initialize properties this.init_props(blk_init) end func init_props(blk_out) sys.blk_init_store(blk_out) // initialize properties if(not isdef("MenuItems")) this.MakeMenu('onButtonCliked' + this.id, 'onSubItemCliked' + this.id) blk_init.println('foreach (ToolStripItem item in ', this.codename, '.Items)').inc() .println('item.DisplayStyle = ToolStripItemDisplayStyle.', this.props("DisplayStyle").value, ';').dec() end sys.set_typed_field(104, 'AllowItemReorder') sys.set_typed_field(104, 'AllowMerge') sys.set_typed_field(104, 'CanOverflow') sys.set_typed_field(20, 'GripMargin') sys.set_typed_field(14, 'GripStyle', '', 'System.Windows.Forms.ToolStripGripStyle') sys.set_typed_field(20, 'ImageScalingSize') sys.set_typed_field(20, 'ImageList') sys.set_typed_field(14, 'LayoutStyle', '', 'System.Windows.Forms.ToolStripLayoutStyle') sys.set_typed_field(14, 'RenderMode', '', 'System.Windows.Forms.ToolStripRenderMode') sys.set_typed_field(104, 'ShowItemToolTips') sys.set_typed_field(104, 'Stretch') sys.set_typed_field(14, 'TextDirection', '', 'System.Windows.Forms.ToolStripTextDirection') // initialize events sys.event_imp('onSubItemCliked', 'onSubItemCliked' + this.id, '((ToolStripMenuItem)sender).Text') sys.event_imp('onSubItemCliked', 'onButtonCliked' + this.id, '((ToolStripButton)sender).Text') sys.event_imp('onSubItemCliked2', 'onSubItemCliked' + this.id, this.codename + '.Items.IndexOf((ToolStripMenuItem)sender)') sys.event_imp('onSubItemCliked2', 'onButtonCliked' + this.id, this.codename + '.Items.IndexOf((ToolStripButton)sender)') if(not (this.onAutoSizeChanged == 'defined')) sys.event_imp('onAutoSizeChanged') end sys.event_add('onAutoSizeChanged') if(not (this.onBeginDrag == 'defined')) sys.event_imp('onBeginDrag') end sys.event_add('onBeginDrag') if(not (this.onCausesValidationChanged == 'defined')) sys.event_imp('onCausesValidationChanged') end sys.event_add('onCausesValidationChanged') if(not (this.onCursorChanged == 'defined')) sys.event_imp('onCursorChanged') end sys.event_add('onCursorChanged') if(not (this.onEndDrag == 'defined')) sys.event_imp('onEndDrag') end sys.event_add('onEndDrag') if(not (this.onForeColorChanged == 'defined')) sys.event_imp('onForeColorChanged') end sys.event_add('onForeColorChanged') if(not (this.onItemAdded == 'defined')) sys.event_imp('onItemAdded', '', '', '', 'Object sender, ToolStripItemEventArgs args') end sys.event_add('onItemAdded', 'ToolStripItemEventHandler') if(not (this.onItemClicked == 'defined')) sys.event_imp('onItemClicked', '', '', '', 'Object sender, ToolStripItemClickedEventArgs args') end sys.event_add('onItemClicked', 'ToolStripItemClickedEventHandler') if(not (this.onItemRemoved == 'defined')) sys.event_imp('onItemRemoved', '', '', '', 'Object sender, ToolStripItemEventArgs args') end sys.event_add('onItemRemoved', 'ToolStripItemEventHandler') if(not (this.onLayoutCompleted == 'defined')) sys.event_imp('onLayoutCompleted') end sys.event_add('onLayoutCompleted') if(not (this.onLayoutStyleChanged == 'defined')) sys.event_imp('onLayoutStyleChanged') end sys.event_add('onLayoutStyleChanged') if(not (this.onPaintGrip == 'defined')) sys.event_imp('onPaintGrip', '', '', '', 'Object sender, PaintEventArgs args') end sys.event_add('onPaintGrip', 'PaintEventHandler') if(not (this.onRendererChanged == 'defined')) sys.event_imp('onRendererChanged') end sys.event_add('onRendererChanged') // initialize common events and properties include("ScrollableControl-init") include("Control-init") sys.blk_init_restore(blk_out) end func doGetItemAt(point) if(linked("onGetItemAt")) event("onGetItemAt", this.codename + '.GetItemAt(' + d("point") + ')') else blk.println(this.codename, '.GetItemAt(', d("point"), ');') end end func doGetItemAt2(x, y) if(linked("onGetItemAt")) event("onGetItemAt", this.codename + '.GetItemAt(' + d("x") + ', ' + d("y") + ')') else blk.println(this.codename, '.GetItemAt(', d("x"), ', ', d("y"), ');') end end func doGetNextItem(start, arrowdirection) if(linked("onGetNextItem")) event("onGetNextItem", this.codename + '.GetNextItem(' + d("start") + ', ' + d("arrowDirection") + ')') else blk.println(this.codename, '.GetNextItem(', d("start"), ', ', d("arrowDirection"), ');') end end func doSetAutoScrollMargin(x, y) blk.println(this.codename, '.SetAutoScrollMargin(', d("x"), ', ', d("y"), ');') end include("ScrollableControl") include("Control")