func init // adds using namespace sys.add_use('System.Drawing') // makes implementation methods for properties sys._prop_init('CaptionFont', 1, 0, 0, 'SystemFonts') sys._prop_init('DefaultFont', 1, 0, 0, 'SystemFonts') sys._prop_init('DialogFont', 1, 0, 0, 'SystemFonts') sys._prop_init('IconTitleFont', 1, 0, 0, 'SystemFonts') sys._prop_init('MenuFont', 1, 0, 0, 'SystemFonts') sys._prop_init('MessageBoxFont', 1, 0, 0, 'SystemFonts') sys._prop_init('SmallCaptionFont', 1, 0, 0, 'SystemFonts') sys._prop_init('StatusFont', 1, 0, 0, 'SystemFonts') // makes implementation of methods as properties sys._mtd_as_prop_init('SystemFonts') end func doGetFontByName(data) event("onGetFontByName", 'SystemFonts.GetFontByName(' + d("systemFontName") + ')') end