func init // adds using namespace sys.add_use('System.Windows.Forms') // initialize instance sys.add_object(this.codename, 'FontDialog') // initialize properties sys.set_typed_field(104, 'AllowScriptChange') sys.set_typed_field(104, 'AllowSimulations') sys.set_typed_field(104, 'AllowVectorFonts') sys.set_typed_field(104, 'AllowVerticalFonts') sys.set_typed_field(8, 'Color') sys.set_typed_field(104, 'FixedPitchOnly') sys.set_typed_field(15, 'Font') sys.set_typed_field(104, 'FontMustExist') sys.set_undef_field('MaxSize') sys.set_undef_field('MinSize') sys.set_typed_field(104, 'ScriptsOnly') sys.set_typed_field(104, 'ShowApply') sys.set_typed_field(104, 'ShowColor') sys.set_typed_field(104, 'ShowEffects') sys.set_typed_field(104, 'ShowHelp') // makes implementation methods for properties sys._prop_init('AllowScriptChange', 1, 1, 104) sys._prop_init('AllowSimulations', 1, 1, 104) sys._prop_init('AllowVectorFonts', 1, 1, 104) sys._prop_init('AllowVerticalFonts', 1, 1, 104) sys._prop_init('Color', 1, 1, 0) sys._prop_init('FixedPitchOnly', 1, 1, 104) sys._prop_init('Font', 1, 1, 0) sys._prop_init('FontMustExist', 1, 1, 104) sys._prop_init('MaxSize', 1, 1, 1) sys._prop_init('MinSize', 1, 1, 1) sys._prop_init('ScriptsOnly', 1, 1, 104) sys._prop_init('ShowApply', 1, 1, 104) sys._prop_init('ShowColor', 1, 1, 104) sys._prop_init('ShowEffects', 1, 1, 104) sys._prop_init('ShowHelp', 1, 1, 104) // makes implementation of simple methods sys._method_init('Reset') // initialize events sys.add_event_type('onApply', 'Apply', 'Event', 'args') // initialize common events and properties include("CommonDialog-init") include("Component-init") end include("CommonDialog")