func init // adds using namespace sys.add_use('System.Windows.Forms') sys.add_use('System.ComponentModel') // initialize instance if(isdef("Inheritor")) this.setfield('obj', this.codename) sys.add_object(this.obj, 'Form') else this.setfield('obj', d("Inheritor", 20)) end // makes implementation methods for properties sys._prop_init('AcceptButton', 1, 1, 0) sys._prop_init('ActiveForm', 1, 0, 0, 'Form') sys._prop_init('ActiveMdiChild', 1, 0, 0) sys._prop_init('AutoScale', 1, 1, 104) sys._prop_init('AutoScaleBaseSize', 1, 1, 0) sys._prop_init('AutoScroll', 1, 1, 104) sys._prop_init('AutoSize', 1, 1, 104) sys._prop_init('AutoSizeMode', 1, 1, 0) sys._prop_init('AutoValidate', 1, 1, 0) sys._prop_init('BackColor', 1, 1, 0) sys._prop_init('CancelButton', 1, 1, 0) sys._prop_init('ClientSize', 1, 1, 0) sys._prop_init('ControlBox', 1, 1, 104) sys._prop_init('DesktopBounds', 1, 1, 0) sys._prop_init('DesktopLocation', 1, 1, 0) sys._prop_init('DialogResult', 1, 1, 0) sys._prop_init('FormBorderStyle', 1, 1, 0) sys._prop_init('HelpButton', 1, 1, 104) sys._prop_init('Icon', 1, 1, 0) sys._prop_init('IsMdiChild', 1, 0, 104) sys._prop_init('IsMdiContainer', 1, 1, 104) sys._prop_init('KeyPreview', 1, 1, 104) sys._prop_init('Location', 1, 1, 0) sys._prop_init('MainMenuStrip', 1, 1, 0) sys._prop_init('Margin', 1, 1, 0) sys._prop_init('MaximizeBox', 1, 1, 104) sys._prop_init('MaximumSize', 1, 1, 0) sys._prop_init('MdiChildren', 1, 0, 0) sys._prop_init('MdiParent', 1, 1, 0) sys._prop_init('Menu', 1, 1, 0) sys._prop_init('MergedMenu', 1, 0, 0) sys._prop_init('MinimizeBox', 1, 1, 104) sys._prop_init('MinimumSize', 1, 1, 0) sys._prop_init('Modal', 1, 0, 104) sys._prop_init('Opacity', 1, 1, 7) sys._prop_init('OwnedForms', 1, 0, 0) sys._prop_init('.Owner', 1, 1, 0) sys._prop_init('RestoreBounds', 1, 0, 0) sys._prop_init('RightToLeftLayout', 1, 1, 104) sys._prop_init('ShowIcon', 1, 1, 104) sys._prop_init('ShowInTaskbar', 1, 1, 104) sys._prop_init('Size', 1, 1, 0) sys._prop_init('SizeGripStyle', 1, 1, 0) sys._prop_init('StartPosition', 1, 1, 0) sys._prop_init('TabIndex', 1, 1, 1) sys._prop_init('TabStop', 1, 1, 104) sys._prop_init('Text', 1, 1, 2) sys._prop_init('TopLevel', 1, 1, 104) sys._prop_init('TopMost', 1, 1, 104) sys._prop_init('TransparencyKey', 1, 1, 0) sys._prop_init('WindowState', 1, 1, 0) // makes implementation of methods as properties sys._mtd_as_prop_init('ShowDialog()') sys._mtd_as_prop_init('ToString()') sys._mtd_as_prop_init('ValidateChildren()') sys._mtd_as_prop_init('Form') // makes implementation of simple methods sys._method_init('Activate') sys._method_init('Close') // 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(20, 'AcceptButton') sys.set_typed_field(104, 'AutoScroll') sys.set_typed_field(104, 'AutoSize') sys.set_typed_field(14, 'AutoSizeMode', '', 'System.Windows.Forms.AutoSizeMode') sys.set_typed_field(14, 'AutoValidate', '', 'System.Windows.Forms.AutoValidate') sys.set_typed_field(8, 'BackColor') sys.set_typed_field(20, 'CancelButton') sys.set_typed_field(20, 'ClientSize') sys.set_typed_field(104, 'ControlBox') sys.set_typed_field(14, 'FormBorderStyle', '', 'System.Windows.Forms.FormBorderStyle') sys.set_typed_field(104, 'HelpButton') sys.set_typed_field(6, 'Icon') sys.set_typed_field(104, 'IsMdiContainer') sys.set_typed_field(104, 'KeyPreview') sys.set_typed_field(20, 'Location') sys.set_typed_field(20, 'MainMenuStrip') sys.set_typed_field(104, 'MaximizeBox') sys.set_typed_field(20, 'MaximumSize') sys.set_typed_field(104, 'MinimizeBox') sys.set_typed_field(20, 'MinimumSize') sys.set_typed_field(7, 'Opacity') sys.set_typed_field(104, 'RightToLeftLayout') sys.set_typed_field(104, 'ShowIcon') sys.set_typed_field(104, 'ShowInTaskbar') sys.set_typed_field(20, 'Size') sys.set_typed_field(14, 'SizeGripStyle', '', 'System.Windows.Forms.SizeGripStyle') sys.set_typed_field(14, 'StartPosition', '', 'System.Windows.Forms.FormStartPosition') //sys.set_field('Text') sys.set_typed_field(104, 'TopMost') sys.set_typed_field(8, 'TransparencyKey') sys.set_typed_field(14, 'WindowState', '', 'System.Windows.Forms.FormWindowState') // initialize common events and properties include("Control-init") // initialize events if(not (this.onActivated == 'defined')) sys.event_imp('onActivated') end sys.event_add('onActivated') if(not (this.onAutoSizeChanged == 'defined')) sys.event_imp('onAutoSizeChanged') end sys.event_add('onAutoSizeChanged') if(not (this.onAutoValidateChanged == 'defined')) sys.event_imp('onAutoValidateChanged') end sys.event_add('onAutoValidateChanged') if(not (this.onClosed == 'defined')) sys.event_imp('onClosed') end sys.event_add('onClosed') if(not (this.onClosing == 'defined')) sys.event_imp('onClosing', '', '', '', 'Object sender, CancelEventArgs args') end sys.event_add('onClosing', 'CancelEventHandler') if(not (this.onDeactivate == 'defined')) sys.event_imp('onDeactivate') end sys.event_add('onDeactivate') if(not (this.onFormClosed == 'defined')) sys.event_imp('onFormClosed', '', '', '', 'Object sender, FormClosedEventArgs args') end sys.event_add('onFormClosed', 'FormClosedEventHandler') if(not (this.onFormClosing == 'defined')) sys.event_imp('onFormClosing', '', '', '', 'Object sender, FormClosingEventArgs args') end sys.event_add('onFormClosing', 'FormClosingEventHandler') if(not (this.onHelpButtonClicked == 'defined')) sys.event_imp('onHelpButtonClicked', '', '', '', 'Object sender, CancelEventArgs args') end sys.event_add('onHelpButtonClicked', 'CancelEventHandler') if(not (this.onInputLanguageChanged == 'defined')) sys.event_imp('onInputLanguageChanged', '', '', '', 'Object sender, InputLanguageChangedEventArgs args') end sys.event_add('onInputLanguageChanged', 'InputLanguageChangedEventHandler') if(not (this.onInputLanguageChanging == 'defined')) sys.event_imp('onInputLanguageChanging', '', '', '', 'Object sender, InputLanguageChangingEventArgs args') end sys.event_add('onInputLanguageChanging', 'InputLanguageChangingEventHandler') if(not (this.onLoad == 'defined')) sys.event_imp('onLoad') end sys.event_add('onLoad') if(not (this.onMarginChanged == 'defined')) sys.event_imp('onMarginChanged') end sys.event_add('onMarginChanged') if(not (this.onMaximizedBoundsChanged == 'defined')) sys.event_imp('onMaximizedBoundsChanged') end sys.event_add('onMaximizedBoundsChanged') if(not (this.onMaximumSizeChanged == 'defined')) sys.event_imp('onMaximumSizeChanged') end sys.event_add('onMaximumSizeChanged') if(not (this.onMdiChildActivate == 'defined')) sys.event_imp('onMdiChildActivate') end sys.event_add('onMdiChildActivate') if(not (this.onMenuComplete == 'defined')) sys.event_imp('onMenuComplete') end sys.event_add('onMenuComplete') if(not (this.onMenuStart == 'defined')) sys.event_imp('onMenuStart') end sys.event_add('onMenuStart') if(not (this.onMinimumSizeChanged == 'defined')) sys.event_imp('onMinimumSizeChanged') end sys.event_add('onMinimumSizeChanged') if(not (this.onResizeBegin == 'defined')) sys.event_imp('onResizeBegin') end sys.event_add('onResizeBegin') if(not (this.onResizeEnd == 'defined')) sys.event_imp('onResizeEnd') end sys.event_add('onResizeEnd') if(not (this.onRightToLeftLayoutChanged == 'defined')) sys.event_imp('onRightToLeftLayoutChanged') end sys.event_add('onRightToLeftLayoutChanged') if(not (this.onShown == 'defined')) sys.event_imp('onShown') end sys.event_add('onShown') if(not (this.onTabStopChanged == 'defined')) sys.event_imp('onTabStopChanged') end sys.event_add('onTabStopChanged') sys.blk_init_restore(blk_out) end func doConstructor() blk.println(this.obj, ' = new Form();') this.init_props(blk) end func doAddOwnedForm(data) blk.println(this.obj, '.AddOwnedForm(', d("ownedForm"), ');') end func doGetAutoScaleSize(data) if(linked("onGetAutoScaleSize")) event("onGetAutoScaleSize", 'Form.GetAutoScaleSize(' + d("font") + ')') else blk.println('Form.GetAutoScaleSize(', d("font"), ');') end end func doLayoutMdi(data) blk.println(this.obj, '.LayoutMdi(', d("value"), ');') end func doRemoveOwnedForm(data) blk.println(this.obj, '.RemoveOwnedForm(', d("ownedForm"), ');') end func doSetDesktopBounds(data) blk.println(this.obj, '.SetDesktopBounds(', d("x"), ', ', d("y"), ', ', d("w"), ', ', d("h"), ');') end func doSetDesktopLocation(data) blk.println(this.obj, '.SetDesktopLocation(', d("x"), ', ', d("y"), ');') end func doShow(data) blk.println(this.obj, '.Show(', d("owner"), ');') end func doShowDialog2(data) if(linked("onShowDialog")) event("onShowDialog", this.obj + '.ShowDialog(' + d("owner") + ')') else blk.println(this.obj, '.ShowDialog(', d("owner"), ');') end end func doValidateChildren2(data) if(linked("onValidateChildren")) event("onValidateChildren", this.obj + '.ValidateChildren(' + d("validationConstraints") + ')') else blk.println(this.obj, '.ValidateChildren(', d("validationConstraints"), ');') end end include("Control")