$PBExportHeader$m_main.srm forward global type m_main from menu end type type m_file from menu within m_main end type type m_new from menu within m_file end type type m_open from menu within m_file end type type m_file_dash1 from menu within m_file end type type m_save from menu within m_file end type type m_saveas from menu within m_file end type type m_file_dash2 from menu within m_file end type type m_pagesetup from menu within m_file end type type m_file_dash3 from menu within m_file end type type m_printsetup from menu within m_file end type type m_printpreview from menu within m_file end type type m_print from menu within m_file end type type m_file_dash4 from menu within m_file end type type m_exit from menu within m_file end type type m_file from menu within m_main m_new m_new m_open m_open m_file_dash1 m_file_dash1 m_save m_save m_saveas m_saveas m_file_dash2 m_file_dash2 m_pagesetup m_pagesetup m_file_dash3 m_file_dash3 m_printsetup m_printsetup m_printpreview m_printpreview m_print m_print m_file_dash4 m_file_dash4 m_exit m_exit end type type m_edit from menu within m_main end type type m_undo from menu within m_edit end type type m_edit_dash1 from menu within m_edit end type type m_cut from menu within m_edit end type type m_copy from menu within m_edit end type type m_paste from menu within m_edit end type type m_delete from menu within m_edit end type type m_edit_dash2 from menu within m_edit end type type m_selectall from menu within m_edit end type type m_edit_dash3 from menu within m_edit end type type m_bold from menu within m_edit end type type m_italic from menu within m_edit end type type m_underline from menu within m_edit end type type m_font from menu within m_edit end type type m_edit_dash4 from menu within m_edit end type type m_justify from menu within m_edit end type type m_left from menu within m_justify end type type m_center from menu within m_justify end type type m_right from menu within m_justify end type type m_justify from menu within m_edit m_left m_left m_center m_center m_right m_right end type type m_indent from menu within m_edit end type type m_outdent from menu within m_edit end type type m_edit from menu within m_main m_undo m_undo m_edit_dash1 m_edit_dash1 m_cut m_cut m_copy m_copy m_paste m_paste m_delete m_delete m_edit_dash2 m_edit_dash2 m_selectall m_selectall m_edit_dash3 m_edit_dash3 m_bold m_bold m_italic m_italic m_underline m_underline m_font m_font m_edit_dash4 m_edit_dash4 m_justify m_justify m_indent m_indent m_outdent m_outdent end type type m_insert from menu within m_main end type type m_button from menu within m_insert end type type m_horizontalrule from menu within m_insert end type type m_hyperlink from menu within m_insert end type type m_image from menu within m_insert end type type m_orderedlist from menu within m_insert end type type m_paragraph from menu within m_insert end type type m_dropdown from menu within m_insert end type type m_listbox from menu within m_insert end type type m_table from menu within m_insert end type type m_textarea from menu within m_insert end type type m_unorderedlist from menu within m_insert end type type m_insert from menu within m_main m_button m_button m_horizontalrule m_horizontalrule m_hyperlink m_hyperlink m_image m_image m_orderedlist m_orderedlist m_paragraph m_paragraph m_dropdown m_dropdown m_listbox m_listbox m_table m_table m_textarea m_textarea m_unorderedlist m_unorderedlist end type type m_browser from menu within m_main end type type m_back from menu within m_browser end type type m_forward from menu within m_browser end type type m_stop from menu within m_browser end type type m_refresh from menu within m_browser end type type m_home from menu within m_browser end type type m_search from menu within m_browser end type type m_internetproperties from menu within m_browser end type type m_- from menu within m_browser end type type m_topwizsoftware from menu within m_browser end type type m_browseremulation from menu within m_browser end type type m_browser from menu within m_main m_back m_back m_forward m_forward m_stop m_stop m_refresh m_refresh m_home m_home m_search m_search m_internetproperties m_internetproperties m_- m_- m_topwizsoftware m_topwizsoftware m_browseremulation m_browseremulation end type type m_help from menu within m_main end type type m_about from menu within m_help end type type m_help from menu within m_main m_about m_about end type global type m_main from menu m_file m_file m_edit m_edit m_insert m_insert m_browser m_browser m_help m_help end type end forward global type m_main from menu m_file m_file m_edit m_edit m_insert m_insert m_browser m_browser m_help m_help end type global m_main m_main type variables u_web_browser iu_web u_tabpg_browse iu_browse end variables forward prototypes public subroutine mf_register (u_web_browser au_web) public subroutine mf_registerbrowse (u_tabpg_browse au_browse) end prototypes public subroutine mf_register (u_web_browser au_web);// save reference to browser iu_web = au_web end subroutine public subroutine mf_registerbrowse (u_tabpg_browse au_browse);// save reference to browser tabpg iu_browse = au_browse end subroutine on m_main.create m_main=this call super::create this.menutextcolor = 134217735 this.menubackcolor = 134217732 this.menuhighlightcolor = 134217741 this.textsize = 8 this.weight = 400 this.facename = "Tahoma" this.titlebackcolor = 134217730 this.bitmapbackcolor = 12632256 this.menubitmaps = true this.titlegradient = true this.toolbartextcolor = 134217746 this.toolbarbackcolor = 67108864 this.toolbarhighlightcolor = 134217741 this.toolbargradient = true this.bitmapgradient = true this.m_file=create m_file this.m_edit=create m_edit this.m_insert=create m_insert this.m_browser=create m_browser this.m_help=create m_help this.Item[UpperBound(this.Item)+1]=this.m_file this.Item[UpperBound(this.Item)+1]=this.m_edit this.Item[UpperBound(this.Item)+1]=this.m_insert this.Item[UpperBound(this.Item)+1]=this.m_browser this.Item[UpperBound(this.Item)+1]=this.m_help end on on m_main.destroy call super::destroy destroy(this.m_file) destroy(this.m_edit) destroy(this.m_insert) destroy(this.m_browser) destroy(this.m_help) end on type m_file from menu within m_main m_new m_new m_open m_open m_file_dash1 m_file_dash1 m_save m_save m_saveas m_saveas m_file_dash2 m_file_dash2 m_pagesetup m_pagesetup m_file_dash3 m_file_dash3 m_printsetup m_printsetup m_printpreview m_printpreview m_print m_print m_file_dash4 m_file_dash4 m_exit m_exit end type on m_file.create call super::create this.text = "&File" this.menutextcolor = 134217735 this.menubackcolor = 134217732 this.menuhighlightcolor = 134217741 this.textsize = 8 this.weight = 400 this.facename = "Tahoma" this.titlebackcolor = 134217730 this.bitmapbackcolor = 12632256 this.menubitmaps = true this.titlegradient = true this.toolbartextcolor = 134217746 this.toolbarbackcolor = 67108864 this.toolbarhighlightcolor = 134217741 this.toolbargradient = true this.bitmapgradient = true this.m_new=create m_new this.m_open=create m_open this.m_file_dash1=create m_file_dash1 this.m_save=create m_save this.m_saveas=create m_saveas this.m_file_dash2=create m_file_dash2 this.m_pagesetup=create m_pagesetup this.m_file_dash3=create m_file_dash3 this.m_printsetup=create m_printsetup this.m_printpreview=create m_printpreview this.m_print=create m_print this.m_file_dash4=create m_file_dash4 this.m_exit=create m_exit this.Item[UpperBound(this.Item)+1]=this.m_new this.Item[UpperBound(this.Item)+1]=this.m_open this.Item[UpperBound(this.Item)+1]=this.m_file_dash1 this.Item[UpperBound(this.Item)+1]=this.m_save this.Item[UpperBound(this.Item)+1]=this.m_saveas this.Item[UpperBound(this.Item)+1]=this.m_file_dash2 this.Item[UpperBound(this.Item)+1]=this.m_pagesetup this.Item[UpperBound(this.Item)+1]=this.m_file_dash3 this.Item[UpperBound(this.Item)+1]=this.m_printsetup this.Item[UpperBound(this.Item)+1]=this.m_printpreview this.Item[UpperBound(this.Item)+1]=this.m_print this.Item[UpperBound(this.Item)+1]=this.m_file_dash4 this.Item[UpperBound(this.Item)+1]=this.m_exit end on on m_file.destroy call super::destroy destroy(this.m_new) destroy(this.m_open) destroy(this.m_file_dash1) destroy(this.m_save) destroy(this.m_saveas) destroy(this.m_file_dash2) destroy(this.m_pagesetup) destroy(this.m_file_dash3) destroy(this.m_printsetup) destroy(this.m_printpreview) destroy(this.m_print) destroy(this.m_file_dash4) destroy(this.m_exit) end on type m_new from menu within m_file end type on m_new.create call super::create this.text = "New" this.microhelp = "Create a new document" this.toolbaritemname = "new!" this.toolbaritemtext = "New,Create a new document" this.menutextcolor = 134217735 this.menubackcolor = 134217732 this.menuhighlightcolor = 134217741 this.textsize = 8 this.weight = 400 this.facename = "Tahoma" this.titlebackcolor = 134217730 this.bitmapbackcolor = 12632256 this.menubitmaps = true this.titlegradient = true this.toolbartextcolor = 134217746 this.toolbarbackcolor = 67108864 this.toolbarhighlightcolor = 134217741 this.toolbargradient = true this.bitmapgradient = true end on on m_new.destroy call super::destroy end on event clicked;ParentWindow.TriggerEvent(this.ClassName()) end event type m_open from menu within m_file end type on m_open.create call super::create this.text = "Open" this.microhelp = "Open an existing document" this.toolbaritemname = "open!" this.toolbaritemtext = "Open,Open an existing document" this.menutextcolor = 134217735 this.menubackcolor = 134217732 this.menuhighlightcolor = 134217741 this.textsize = 8 this.weight = 400 this.facename = "Tahoma" this.titlebackcolor = 134217730 this.bitmapbackcolor = 12632256 this.menubitmaps = true this.titlegradient = true this.toolbartextcolor = 134217746 this.toolbarbackcolor = 67108864 this.toolbarhighlightcolor = 134217741 this.toolbargradient = true this.bitmapgradient = true end on on m_open.destroy call super::destroy end on event clicked;ParentWindow.TriggerEvent(this.ClassName()) end event type m_file_dash1 from menu within m_file end type on m_file_dash1.create call super::create this.text = "-" this.menutextcolor = 134217735 this.menubackcolor = 134217732 this.menuhighlightcolor = 134217741 this.textsize = 8 this.weight = 400 this.facename = "Tahoma" this.titlebackcolor = 134217730 this.bitmapbackcolor = 12632256 this.menubitmaps = true this.titlegradient = true this.toolbartextcolor = 134217746 this.toolbarbackcolor = 67108864 this.toolbarhighlightcolor = 134217741 this.toolbargradient = true this.bitmapgradient = true end on on m_file_dash1.destroy call super::destroy end on type m_save from menu within m_file end type on m_save.create call super::create this.text = "Save" this.microhelp = "Save the current document" this.toolbaritemname = "save!" this.toolbaritemtext = "Save,Save the current document" this.menutextcolor = 134217735 this.menubackcolor = 134217732 this.menuhighlightcolor = 134217741 this.textsize = 8 this.weight = 400 this.facename = "Tahoma" this.titlebackcolor = 134217730 this.bitmapbackcolor = 12632256 this.menubitmaps = true this.titlegradient = true this.toolbartextcolor = 134217746 this.toolbarbackcolor = 67108864 this.toolbarhighlightcolor = 134217741 this.toolbargradient = true this.bitmapgradient = true end on on m_save.destroy call super::destroy end on event clicked;ParentWindow.TriggerEvent(this.ClassName()) end event type m_saveas from menu within m_file end type on m_saveas.create call super::create this.text = "Save As" this.microhelp = "Save the document to a new file" this.toolbaritemname = "saveas!" this.toolbaritemtext = "Save As,Save the document to a new file" this.menutextcolor = 134217735 this.menubackcolor = 134217732 this.menuhighlightcolor = 134217741 this.textsize = 8 this.weight = 400 this.facename = "Tahoma" this.titlebackcolor = 134217730 this.bitmapbackcolor = 12632256 this.menubitmaps = true this.titlegradient = true this.toolbartextcolor = 134217746 this.toolbarbackcolor = 67108864 this.toolbarhighlightcolor = 134217741 this.toolbargradient = true this.bitmapgradient = true end on on m_saveas.destroy call super::destroy end on event clicked;ParentWindow.TriggerEvent(this.ClassName()) end event type m_file_dash2 from menu within m_file end type on m_file_dash2.create call super::create this.text = "-" this.menutextcolor = 134217735 this.menubackcolor = 134217732 this.menuhighlightcolor = 134217741 this.textsize = 8 this.weight = 400 this.facename = "Tahoma" this.titlebackcolor = 134217730 this.bitmapbackcolor = 12632256 this.menubitmaps = true this.titlegradient = true this.toolbartextcolor = 134217746 this.toolbarbackcolor = 67108864 this.toolbarhighlightcolor = 134217741 this.toolbargradient = true this.bitmapgradient = true end on on m_file_dash2.destroy call super::destroy end on type m_pagesetup from menu within m_file end type event clicked;ParentWindow.Dynamic Function wf_TriggerEvent(this.ClassName()) end event on m_pagesetup.create call super::create this.text = "Page Setup" this.microhelp = "Open the page setup window" this.menutextcolor = 134217735 this.menubackcolor = 134217732 this.menuhighlightcolor = 134217741 this.textsize = 8 this.weight = 400 this.facename = "Tahoma" this.titlebackcolor = 134217730 this.bitmapbackcolor = 12632256 this.menubitmaps = true this.titlegradient = true this.toolbartextcolor = 134217746 this.toolbarbackcolor = 67108864 this.toolbarhighlightcolor = 134217741 this.toolbargradient = true this.bitmapgradient = true end on on m_pagesetup.destroy call super::destroy end on type m_file_dash3 from menu within m_file end type on m_file_dash3.create call super::create this.text = "-" this.menutextcolor = 134217735 this.menubackcolor = 134217732 this.menuhighlightcolor = 134217741 this.textsize = 8 this.weight = 400 this.facename = "Tahoma" this.titlebackcolor = 134217730 this.bitmapbackcolor = 12632256 this.menubitmaps = true this.titlegradient = true this.toolbartextcolor = 134217746 this.toolbarbackcolor = 67108864 this.toolbarhighlightcolor = 134217741 this.toolbargradient = true this.bitmapgradient = true end on on m_file_dash3.destroy call super::destroy end on type m_printsetup from menu within m_file end type on m_printsetup.create call super::create this.text = "Print Setup" this.microhelp = "Open the print setup window" this.menutextcolor = 134217735 this.menubackcolor = 134217732 this.menuhighlightcolor = 134217741 this.textsize = 8 this.weight = 400 this.facename = "Tahoma" this.titlebackcolor = 134217730 this.bitmapbackcolor = 12632256 this.menubitmaps = true this.titlegradient = true this.toolbartextcolor = 134217746 this.toolbarbackcolor = 67108864 this.toolbarhighlightcolor = 134217741 this.toolbargradient = true this.bitmapgradient = true end on on m_printsetup.destroy call super::destroy end on event clicked;PrintSetup() end event type m_printpreview from menu within m_file end type on m_printpreview.create call super::create this.text = "Print Preview" this.microhelp = "Show the print preview window" this.toolbaritemname = "preview!" this.toolbaritemtext = "Print Preview,Show the print preview window" this.menutextcolor = 134217735 this.menubackcolor = 134217732 this.menuhighlightcolor = 134217741 this.textsize = 8 this.weight = 400 this.facename = "Tahoma" this.titlebackcolor = 134217730 this.bitmapbackcolor = 12632256 this.menubitmaps = true this.titlegradient = true this.toolbartextcolor = 134217746 this.toolbarbackcolor = 67108864 this.toolbarhighlightcolor = 134217741 this.toolbargradient = true this.bitmapgradient = true end on on m_printpreview.destroy call super::destroy end on event clicked;ParentWindow.Dynamic Function wf_TriggerEvent(this.ClassName()) end event type m_print from menu within m_file end type on m_print.create call super::create this.text = "Print" this.microhelp = "Print the current document" this.toolbaritemname = "print!" this.toolbaritemtext = "Print,Print the current document" this.menutextcolor = 134217735 this.menubackcolor = 134217732 this.menuhighlightcolor = 134217741 this.textsize = 8 this.weight = 400 this.facename = "Tahoma" this.titlebackcolor = 134217730 this.bitmapbackcolor = 12632256 this.menubitmaps = true this.titlegradient = true this.toolbartextcolor = 134217746 this.toolbarbackcolor = 67108864 this.toolbarhighlightcolor = 134217741 this.toolbargradient = true this.bitmapgradient = true end on on m_print.destroy call super::destroy end on event clicked;ParentWindow.Dynamic Function wf_TriggerEvent(this.ClassName()) end event type m_file_dash4 from menu within m_file end type on m_file_dash4.create call super::create this.text = "-" this.menutextcolor = 134217735 this.menubackcolor = 134217732 this.menuhighlightcolor = 134217741 this.textsize = 8 this.weight = 400 this.facename = "Tahoma" this.titlebackcolor = 134217730 this.bitmapbackcolor = 12632256 this.menubitmaps = true this.titlegradient = true this.toolbartextcolor = 134217746 this.toolbarbackcolor = 67108864 this.toolbarhighlightcolor = 134217741 this.toolbargradient = true this.bitmapgradient = true end on on m_file_dash4.destroy call super::destroy end on type m_exit from menu within m_file end type event clicked;Close(ParentWindow) end event on m_exit.create call super::create this.text = "Exit" this.microhelp = "Exit Program" this.toolbaritemname = "exit!" this.toolbaritemtext = "Exit,Exit Program" this.toolbaritemorder = 99 this.toolbaritemspace = 1 this.menutextcolor = 134217735 this.menubackcolor = 134217732 this.menuhighlightcolor = 134217741 this.textsize = 8 this.weight = 400 this.facename = "Tahoma" this.titlebackcolor = 134217730 this.bitmapbackcolor = 12632256 this.menubitmaps = true this.titlegradient = true this.toolbartextcolor = 134217746 this.toolbarbackcolor = 67108864 this.toolbarhighlightcolor = 134217741 this.toolbargradient = true this.bitmapgradient = true end on on m_exit.destroy call super::destroy end on type m_edit from menu within m_main m_undo m_undo m_edit_dash1 m_edit_dash1 m_cut m_cut m_copy m_copy m_paste m_paste m_delete m_delete m_edit_dash2 m_edit_dash2 m_selectall m_selectall m_edit_dash3 m_edit_dash3 m_bold m_bold m_italic m_italic m_underline m_underline m_font m_font m_edit_dash4 m_edit_dash4 m_justify m_justify m_indent m_indent m_outdent m_outdent end type on m_edit.create call super::create this.text = "&Edit" this.menutextcolor = 134217735 this.menubackcolor = 134217732 this.menuhighlightcolor = 134217741 this.textsize = 8 this.weight = 400 this.facename = "Tahoma" this.titlebackcolor = 134217730 this.bitmapbackcolor = 12632256 this.menubitmaps = true this.titlegradient = true this.toolbartextcolor = 134217746 this.toolbarbackcolor = 67108864 this.toolbarhighlightcolor = 134217741 this.toolbargradient = true this.bitmapgradient = true this.m_undo=create m_undo this.m_edit_dash1=create m_edit_dash1 this.m_cut=create m_cut this.m_copy=create m_copy this.m_paste=create m_paste this.m_delete=create m_delete this.m_edit_dash2=create m_edit_dash2 this.m_selectall=create m_selectall this.m_edit_dash3=create m_edit_dash3 this.m_bold=create m_bold this.m_italic=create m_italic this.m_underline=create m_underline this.m_font=create m_font this.m_edit_dash4=create m_edit_dash4 this.m_justify=create m_justify this.m_indent=create m_indent this.m_outdent=create m_outdent this.Item[UpperBound(this.Item)+1]=this.m_undo this.Item[UpperBound(this.Item)+1]=this.m_edit_dash1 this.Item[UpperBound(this.Item)+1]=this.m_cut this.Item[UpperBound(this.Item)+1]=this.m_copy this.Item[UpperBound(this.Item)+1]=this.m_paste this.Item[UpperBound(this.Item)+1]=this.m_delete this.Item[UpperBound(this.Item)+1]=this.m_edit_dash2 this.Item[UpperBound(this.Item)+1]=this.m_selectall this.Item[UpperBound(this.Item)+1]=this.m_edit_dash3 this.Item[UpperBound(this.Item)+1]=this.m_bold this.Item[UpperBound(this.Item)+1]=this.m_italic this.Item[UpperBound(this.Item)+1]=this.m_underline this.Item[UpperBound(this.Item)+1]=this.m_font this.Item[UpperBound(this.Item)+1]=this.m_edit_dash4 this.Item[UpperBound(this.Item)+1]=this.m_justify this.Item[UpperBound(this.Item)+1]=this.m_indent this.Item[UpperBound(this.Item)+1]=this.m_outdent end on on m_edit.destroy call super::destroy destroy(this.m_undo) destroy(this.m_edit_dash1) destroy(this.m_cut) destroy(this.m_copy) destroy(this.m_paste) destroy(this.m_delete) destroy(this.m_edit_dash2) destroy(this.m_selectall) destroy(this.m_edit_dash3) destroy(this.m_bold) destroy(this.m_italic) destroy(this.m_underline) destroy(this.m_font) destroy(this.m_edit_dash4) destroy(this.m_justify) destroy(this.m_indent) destroy(this.m_outdent) end on type m_undo from menu within m_edit end type on m_undo.create call super::create this.text = "&Undo" this.microhelp = "Undo last edit change" this.toolbaritemname = "undo!" this.toolbaritemtext = "Undo,Undo last edit change" this.toolbaritemspace = 1 this.menutextcolor = 134217735 this.menubackcolor = 134217732 this.menuhighlightcolor = 134217741 this.textsize = 8 this.weight = 400 this.facename = "Tahoma" this.titlebackcolor = 134217730 this.bitmapbackcolor = 12632256 this.menubitmaps = true this.titlegradient = true this.toolbartextcolor = 134217746 this.toolbarbackcolor = 67108864 this.toolbarhighlightcolor = 134217741 this.toolbargradient = true this.bitmapgradient = true end on on m_undo.destroy call super::destroy end on event clicked;iu_web.of_DocumentCommand("Undo") end event type m_edit_dash1 from menu within m_edit end type on m_edit_dash1.create call super::create this.text = "-" this.menutextcolor = 134217735 this.menubackcolor = 134217732 this.menuhighlightcolor = 134217741 this.textsize = 8 this.weight = 400 this.facename = "Tahoma" this.titlebackcolor = 134217730 this.bitmapbackcolor = 12632256 this.menubitmaps = true this.titlegradient = true this.toolbartextcolor = 134217746 this.toolbarbackcolor = 67108864 this.toolbarhighlightcolor = 134217741 this.toolbargradient = true this.bitmapgradient = true end on on m_edit_dash1.destroy call super::destroy end on type m_cut from menu within m_edit end type on m_cut.create call super::create this.text = "Cu&t" this.microhelp = "Cut selected text to clipboard" this.toolbaritemname = "cut!" this.toolbaritemtext = "Cut,Cut selected text to clipboard" this.menutextcolor = 134217735 this.menubackcolor = 134217732 this.menuhighlightcolor = 134217741 this.textsize = 8 this.weight = 400 this.facename = "Tahoma" this.titlebackcolor = 134217730 this.bitmapbackcolor = 12632256 this.menubitmaps = true this.titlegradient = true this.toolbartextcolor = 134217746 this.toolbarbackcolor = 67108864 this.toolbarhighlightcolor = 134217741 this.toolbargradient = true this.bitmapgradient = true end on on m_cut.destroy call super::destroy end on event clicked;iu_web.of_DocumentCommand("Cut") end event type m_copy from menu within m_edit end type on m_copy.create call super::create this.text = "&Copy" this.microhelp = "Copy selected text to clipboard" this.toolbaritemname = "copy!" this.toolbaritemtext = "Copy,Copy selected text to clipboard" this.menutextcolor = 134217735 this.menubackcolor = 134217732 this.menuhighlightcolor = 134217741 this.textsize = 8 this.weight = 400 this.facename = "Tahoma" this.titlebackcolor = 134217730 this.bitmapbackcolor = 12632256 this.menubitmaps = true this.titlegradient = true this.toolbartextcolor = 134217746 this.toolbarbackcolor = 67108864 this.toolbarhighlightcolor = 134217741 this.toolbargradient = true this.bitmapgradient = true end on on m_copy.destroy call super::destroy end on event clicked;iu_web.of_DocumentCommand("Copy") end event type m_paste from menu within m_edit end type on m_paste.create call super::create this.text = "&Paste" this.microhelp = "Paste text from clipboard" this.toolbaritemname = "paste!" this.toolbaritemtext = "Paste,Paste text from clipboard" this.menutextcolor = 134217735 this.menubackcolor = 134217732 this.menuhighlightcolor = 134217741 this.textsize = 8 this.weight = 400 this.facename = "Tahoma" this.titlebackcolor = 134217730 this.bitmapbackcolor = 12632256 this.menubitmaps = true this.titlegradient = true this.toolbartextcolor = 134217746 this.toolbarbackcolor = 67108864 this.toolbarhighlightcolor = 134217741 this.toolbargradient = true this.bitmapgradient = true end on on m_paste.destroy call super::destroy end on event clicked;iu_web.of_DocumentCommand("Paste") end event type m_delete from menu within m_edit end type event clicked;iu_web.of_DocumentCommand("Delete") end event on m_delete.create call super::create this.text = "&Delete" this.microhelp = "Clear selected text" this.toolbaritemname = "clear!" this.toolbaritemtext = "Clear,Clear selected text" this.menutextcolor = 134217735 this.menubackcolor = 134217732 this.menuhighlightcolor = 134217741 this.textsize = 8 this.weight = 400 this.facename = "Tahoma" this.titlebackcolor = 134217730 this.bitmapbackcolor = 12632256 this.menubitmaps = true this.titlegradient = true this.toolbartextcolor = 134217746 this.toolbarbackcolor = 67108864 this.toolbarhighlightcolor = 134217741 this.toolbargradient = true this.bitmapgradient = true end on on m_delete.destroy call super::destroy end on type m_edit_dash2 from menu within m_edit end type on m_edit_dash2.create call super::create this.text = "-" this.menutextcolor = 134217735 this.menubackcolor = 134217732 this.menuhighlightcolor = 134217741 this.textsize = 8 this.weight = 400 this.facename = "Tahoma" this.titlebackcolor = 134217730 this.bitmapbackcolor = 12632256 this.menubitmaps = true this.titlegradient = true this.toolbartextcolor = 134217746 this.toolbarbackcolor = 67108864 this.toolbarhighlightcolor = 134217741 this.toolbargradient = true this.bitmapgradient = true end on on m_edit_dash2.destroy call super::destroy end on type m_selectall from menu within m_edit end type event clicked;iu_web.of_DocumentCommand("SelectAll") end event on m_selectall.create call super::create this.text = "Select A&ll" this.microhelp = "Select all text" this.toolbaritemname = "selectall!" this.toolbaritemtext = "Select All,Select all text" this.menutextcolor = 134217735 this.menubackcolor = 134217732 this.menuhighlightcolor = 134217741 this.textsize = 8 this.weight = 400 this.facename = "Tahoma" this.titlebackcolor = 134217730 this.bitmapbackcolor = 12632256 this.menubitmaps = true this.titlegradient = true this.toolbartextcolor = 134217746 this.toolbarbackcolor = 67108864 this.toolbarhighlightcolor = 134217741 this.toolbargradient = true this.bitmapgradient = true end on on m_selectall.destroy call super::destroy end on type m_edit_dash3 from menu within m_edit end type on m_edit_dash3.create call super::create this.text = "-" this.menutextcolor = 134217735 this.menubackcolor = 134217732 this.menuhighlightcolor = 134217741 this.textsize = 8 this.weight = 400 this.facename = "Tahoma" this.titlebackcolor = 134217730 this.bitmapbackcolor = 12632256 this.menubitmaps = true this.titlegradient = true this.toolbartextcolor = 134217746 this.toolbarbackcolor = 67108864 this.toolbarhighlightcolor = 134217741 this.toolbargradient = true this.bitmapgradient = true end on on m_edit_dash3.destroy call super::destroy end on type m_bold from menu within m_edit end type on m_bold.create call super::create this.text = "Bold" this.microhelp = "Set selected text to Bold" this.toolbaritemname = "bold!" this.toolbaritemtext = "Bold,Set selected text to Bold" this.menutextcolor = 134217735 this.menubackcolor = 134217732 this.menuhighlightcolor = 134217741 this.textsize = 8 this.weight = 400 this.facename = "Tahoma" this.titlebackcolor = 134217730 this.bitmapbackcolor = 12632256 this.menubitmaps = true this.titlegradient = true this.toolbartextcolor = 134217746 this.toolbarbackcolor = 67108864 this.toolbarhighlightcolor = 134217741 this.toolbargradient = true this.bitmapgradient = true end on on m_bold.destroy call super::destroy end on event clicked;iu_web.of_DocumentCommand("Bold") end event type m_italic from menu within m_edit end type on m_italic.create call super::create this.text = "Italic" this.microhelp = "Set selected text to Italic" this.toolbaritemname = "italic!" this.toolbaritemtext = "Italic,Set selected text to Italic" this.menutextcolor = 134217735 this.menubackcolor = 134217732 this.menuhighlightcolor = 134217741 this.textsize = 8 this.weight = 400 this.facename = "Tahoma" this.titlebackcolor = 134217730 this.bitmapbackcolor = 12632256 this.menubitmaps = true this.titlegradient = true this.toolbartextcolor = 134217746 this.toolbarbackcolor = 67108864 this.toolbarhighlightcolor = 134217741 this.toolbargradient = true this.bitmapgradient = true end on on m_italic.destroy call super::destroy end on event clicked;iu_web.of_DocumentCommand("Italic") end event type m_underline from menu within m_edit end type on m_underline.create call super::create this.text = "Underline" this.microhelp = "Set selected text to Underline" this.toolbaritemname = "underline!" this.toolbaritemtext = "Underline,Set selected text to Underline" this.menutextcolor = 134217735 this.menubackcolor = 134217732 this.menuhighlightcolor = 134217741 this.textsize = 8 this.weight = 400 this.facename = "Tahoma" this.titlebackcolor = 134217730 this.bitmapbackcolor = 12632256 this.menubitmaps = true this.titlegradient = true this.toolbartextcolor = 134217746 this.toolbarbackcolor = 67108864 this.toolbarhighlightcolor = 134217741 this.toolbargradient = true this.bitmapgradient = true end on on m_underline.destroy call super::destroy end on event clicked;iu_web.of_DocumentCommand("Underline") end event type m_font from menu within m_edit end type event clicked;OpenWithParm(w_fonts, iu_web) end event on m_font.create call super::create this.text = "Font" this.microhelp = "Set font properties for selected text" this.toolbaritemname = "defaultfonts!" this.toolbaritemtext = "Font,Set font properties for selected text" this.menutextcolor = 134217735 this.menubackcolor = 134217732 this.menuhighlightcolor = 134217741 this.textsize = 8 this.weight = 400 this.facename = "Tahoma" this.titlebackcolor = 134217730 this.bitmapbackcolor = 12632256 this.menubitmaps = true this.titlegradient = true this.toolbartextcolor = 134217746 this.toolbarbackcolor = 67108864 this.toolbarhighlightcolor = 134217741 this.toolbargradient = true this.bitmapgradient = true end on on m_font.destroy call super::destroy end on type m_edit_dash4 from menu within m_edit end type on m_edit_dash4.create call super::create this.text = "-" this.menutextcolor = 134217735 this.menubackcolor = 134217732 this.menuhighlightcolor = 134217741 this.textsize = 8 this.weight = 400 this.facename = "Tahoma" this.titlebackcolor = 134217730 this.bitmapbackcolor = 12632256 this.menubitmaps = true this.titlegradient = true this.toolbartextcolor = 134217746 this.toolbarbackcolor = 67108864 this.toolbarhighlightcolor = 134217741 this.toolbargradient = true this.bitmapgradient = true end on on m_edit_dash4.destroy call super::destroy end on type m_justify from menu within m_edit m_left m_left m_center m_center m_right m_right end type on m_justify.create call super::create this.text = "Justify" this.menutextcolor = 134217735 this.menubackcolor = 134217732 this.menuhighlightcolor = 134217741 this.textsize = 8 this.weight = 400 this.facename = "Tahoma" this.titlebackcolor = 134217730 this.bitmapbackcolor = 12632256 this.menubitmaps = true this.titlegradient = true this.toolbartextcolor = 134217746 this.toolbarbackcolor = 67108864 this.toolbarhighlightcolor = 134217741 this.toolbargradient = true this.bitmapgradient = true this.m_left=create m_left this.m_center=create m_center this.m_right=create m_right this.Item[UpperBound(this.Item)+1]=this.m_left this.Item[UpperBound(this.Item)+1]=this.m_center this.Item[UpperBound(this.Item)+1]=this.m_right end on on m_justify.destroy call super::destroy destroy(this.m_left) destroy(this.m_center) destroy(this.m_right) end on type m_left from menu within m_justify end type on m_left.create call super::create this.text = "Left" this.microhelp = "Left justify" this.toolbaritemname = "left!" this.toolbaritemtext = "Left Justify" this.menutextcolor = 134217735 this.menubackcolor = 134217732 this.menuhighlightcolor = 134217741 this.textsize = 8 this.weight = 400 this.facename = "Tahoma" this.titlebackcolor = 134217730 this.bitmapbackcolor = 12632256 this.menubitmaps = true this.titlegradient = true this.toolbartextcolor = 134217746 this.toolbarbackcolor = 67108864 this.toolbarhighlightcolor = 134217741 this.toolbargradient = true this.bitmapgradient = true end on on m_left.destroy call super::destroy end on event clicked;iu_web.of_DocumentCommand("JustifyLeft") end event type m_center from menu within m_justify end type on m_center.create call super::create this.text = "Center" this.microhelp = "Center justify" this.toolbaritemname = "center!" this.toolbaritemtext = "Center justify" this.menutextcolor = 134217735 this.menubackcolor = 134217732 this.menuhighlightcolor = 134217741 this.textsize = 8 this.weight = 400 this.facename = "Tahoma" this.titlebackcolor = 134217730 this.bitmapbackcolor = 12632256 this.menubitmaps = true this.titlegradient = true this.toolbartextcolor = 134217746 this.toolbarbackcolor = 67108864 this.toolbarhighlightcolor = 134217741 this.toolbargradient = true this.bitmapgradient = true end on on m_center.destroy call super::destroy end on event clicked;iu_web.of_DocumentCommand("JustifyCenter") end event type m_right from menu within m_justify end type on m_right.create call super::create this.text = "Right" this.microhelp = "Right justify" this.toolbaritemname = "right!" this.toolbaritemtext = "Right justify" this.menutextcolor = 134217735 this.menubackcolor = 134217732 this.menuhighlightcolor = 134217741 this.textsize = 8 this.weight = 400 this.facename = "Tahoma" this.titlebackcolor = 134217730 this.bitmapbackcolor = 12632256 this.menubitmaps = true this.titlegradient = true this.toolbartextcolor = 134217746 this.toolbarbackcolor = 67108864 this.toolbarhighlightcolor = 134217741 this.toolbargradient = true this.bitmapgradient = true end on on m_right.destroy call super::destroy end on event clicked;iu_web.of_DocumentCommand("JustifyRight") end event type m_indent from menu within m_edit end type on m_indent.create call super::create this.text = "Indent" this.microhelp = "Indent the current paragraph or selection" this.toolbaritemname = "next5!" this.toolbaritemtext = "Indent,Indent the current paragraph or selection" this.menutextcolor = 134217735 this.menubackcolor = 134217732 this.menuhighlightcolor = 134217741 this.textsize = 8 this.weight = 400 this.facename = "Tahoma" this.titlebackcolor = 134217730 this.bitmapbackcolor = 12632256 this.menubitmaps = true this.titlegradient = true this.toolbartextcolor = 134217746 this.toolbarbackcolor = 67108864 this.toolbarhighlightcolor = 134217741 this.toolbargradient = true this.bitmapgradient = true end on on m_indent.destroy call super::destroy end on event clicked;iu_web.of_DocumentCommand("Indent") end event type m_outdent from menu within m_edit end type on m_outdent.create call super::create this.text = "Outdent" this.microhelp = "Outdent the current paragraph or selection" this.toolbaritemname = "prior5!" this.toolbaritemtext = "Outdent,Outdent the current paragraph or selection" this.menutextcolor = 134217735 this.menubackcolor = 134217732 this.menuhighlightcolor = 134217741 this.textsize = 8 this.weight = 400 this.facename = "Tahoma" this.titlebackcolor = 134217730 this.bitmapbackcolor = 12632256 this.menubitmaps = true this.titlegradient = true this.toolbartextcolor = 134217746 this.toolbarbackcolor = 67108864 this.toolbarhighlightcolor = 134217741 this.toolbargradient = true this.bitmapgradient = true end on on m_outdent.destroy call super::destroy end on event clicked;iu_web.of_DocumentCommand("Outdent") end event type m_insert from menu within m_main m_button m_button m_horizontalrule m_horizontalrule m_hyperlink m_hyperlink m_image m_image m_orderedlist m_orderedlist m_paragraph m_paragraph m_dropdown m_dropdown m_listbox m_listbox m_table m_table m_textarea m_textarea m_unorderedlist m_unorderedlist end type on m_insert.create call super::create this.text = "&Insert" this.menutextcolor = 134217735 this.menubackcolor = 134217732 this.menuhighlightcolor = 134217741 this.textsize = 8 this.weight = 400 this.facename = "Tahoma" this.titlebackcolor = 134217730 this.bitmapbackcolor = 12632256 this.menubitmaps = true this.titlegradient = true this.toolbartextcolor = 134217746 this.toolbarbackcolor = 67108864 this.toolbarhighlightcolor = 134217741 this.toolbargradient = true this.bitmapgradient = true this.m_button=create m_button this.m_horizontalrule=create m_horizontalrule this.m_hyperlink=create m_hyperlink this.m_image=create m_image this.m_orderedlist=create m_orderedlist this.m_paragraph=create m_paragraph this.m_dropdown=create m_dropdown this.m_listbox=create m_listbox this.m_table=create m_table this.m_textarea=create m_textarea this.m_unorderedlist=create m_unorderedlist this.Item[UpperBound(this.Item)+1]=this.m_button this.Item[UpperBound(this.Item)+1]=this.m_horizontalrule this.Item[UpperBound(this.Item)+1]=this.m_hyperlink this.Item[UpperBound(this.Item)+1]=this.m_image this.Item[UpperBound(this.Item)+1]=this.m_orderedlist this.Item[UpperBound(this.Item)+1]=this.m_paragraph this.Item[UpperBound(this.Item)+1]=this.m_dropdown this.Item[UpperBound(this.Item)+1]=this.m_listbox this.Item[UpperBound(this.Item)+1]=this.m_table this.Item[UpperBound(this.Item)+1]=this.m_textarea this.Item[UpperBound(this.Item)+1]=this.m_unorderedlist end on on m_insert.destroy call super::destroy destroy(this.m_button) destroy(this.m_horizontalrule) destroy(this.m_hyperlink) destroy(this.m_image) destroy(this.m_orderedlist) destroy(this.m_paragraph) destroy(this.m_dropdown) destroy(this.m_listbox) destroy(this.m_table) destroy(this.m_textarea) destroy(this.m_unorderedlist) end on type m_button from menu within m_insert end type event clicked;iu_web.of_DocumentCommand("InsertButton") end event on m_button.create call super::create this.text = "Button" this.microhelp = "Insert button control" this.menutextcolor = 134217735 this.menubackcolor = 134217732 this.menuhighlightcolor = 134217741 this.textsize = 8 this.weight = 400 this.facename = "Tahoma" this.titlebackcolor = 134217730 this.bitmapbackcolor = 12632256 this.menubitmaps = true this.titlegradient = true this.toolbartextcolor = 134217746 this.toolbarbackcolor = 67108864 this.toolbarhighlightcolor = 134217741 this.toolbargradient = true this.bitmapgradient = true end on on m_button.destroy call super::destroy end on type m_horizontalrule from menu within m_insert end type event clicked;iu_web.of_DocumentCommand("InsertHorizontalRule") end event on m_horizontalrule.create call super::create this.text = "Horizontal Rule" this.microhelp = "Insert horizontal rule control" this.menutextcolor = 134217735 this.menubackcolor = 134217732 this.menuhighlightcolor = 134217741 this.textsize = 8 this.weight = 400 this.facename = "Tahoma" this.titlebackcolor = 134217730 this.bitmapbackcolor = 12632256 this.menubitmaps = true this.titlegradient = true this.toolbartextcolor = 134217746 this.toolbarbackcolor = 67108864 this.toolbarhighlightcolor = 134217741 this.toolbargradient = true this.bitmapgradient = true end on on m_horizontalrule.destroy call super::destroy end on type m_hyperlink from menu within m_insert end type event clicked;iu_web.of_DocumentCommand("CreateLink", True) end event on m_hyperlink.create call super::create this.text = "Hyperlink" this.microhelp = "Insert hyperlink using selected text" this.menutextcolor = 134217735 this.menubackcolor = 134217732 this.menuhighlightcolor = 134217741 this.textsize = 8 this.weight = 400 this.facename = "Tahoma" this.titlebackcolor = 134217730 this.bitmapbackcolor = 12632256 this.menubitmaps = true this.titlegradient = true this.toolbartextcolor = 134217746 this.toolbarbackcolor = 67108864 this.toolbarhighlightcolor = 134217741 this.toolbargradient = true this.bitmapgradient = true end on on m_hyperlink.destroy call super::destroy end on type m_image from menu within m_insert end type event clicked;iu_web.of_DocumentCommand("InsertImage", True) end event on m_image.create call super::create this.text = "Image" this.microhelp = "Insert image control" this.menutextcolor = 134217735 this.menubackcolor = 134217732 this.menuhighlightcolor = 134217741 this.textsize = 8 this.weight = 400 this.facename = "Tahoma" this.titlebackcolor = 134217730 this.bitmapbackcolor = 12632256 this.menubitmaps = true this.titlegradient = true this.toolbartextcolor = 134217746 this.toolbarbackcolor = 67108864 this.toolbarhighlightcolor = 134217741 this.toolbargradient = true this.bitmapgradient = true end on on m_image.destroy call super::destroy end on type m_orderedlist from menu within m_insert end type event clicked;iu_web.of_Toggle_Property("InsertOrderedList") this.Checked = iu_web.of_IsPropertySet("InsertOrderedList") this.ToolbarItemDown = this.Checked end event on m_orderedlist.create call super::create this.text = "Ordered List" this.microhelp = "Toggle ordered list mode" this.menutextcolor = 134217735 this.menubackcolor = 134217732 this.menuhighlightcolor = 134217741 this.textsize = 8 this.weight = 400 this.facename = "Tahoma" this.titlebackcolor = 134217730 this.bitmapbackcolor = 12632256 this.menubitmaps = true this.titlegradient = true this.toolbartextcolor = 134217746 this.toolbarbackcolor = 67108864 this.toolbarhighlightcolor = 134217741 this.toolbargradient = true this.bitmapgradient = true end on on m_orderedlist.destroy call super::destroy end on type m_paragraph from menu within m_insert end type event clicked;iu_web.of_DocumentCommand("InsertParagraph") end event on m_paragraph.create call super::create this.text = "Paragraph" this.microhelp = "Insert paragraph" this.menutextcolor = 134217735 this.menubackcolor = 134217732 this.menuhighlightcolor = 134217741 this.textsize = 8 this.weight = 400 this.facename = "Tahoma" this.titlebackcolor = 134217730 this.bitmapbackcolor = 12632256 this.menubitmaps = true this.titlegradient = true this.toolbartextcolor = 134217746 this.toolbarbackcolor = 67108864 this.toolbarhighlightcolor = 134217741 this.toolbargradient = true this.bitmapgradient = true end on on m_paragraph.destroy call super::destroy end on type m_dropdown from menu within m_insert end type event clicked;iu_web.of_DocumentCommand("InsertSelectDropdown") end event on m_dropdown.create call super::create this.text = "Dropdown" this.microhelp = "Insert dropdown control" this.menutextcolor = 134217735 this.menubackcolor = 134217732 this.menuhighlightcolor = 134217741 this.textsize = 8 this.weight = 400 this.facename = "Tahoma" this.titlebackcolor = 134217730 this.bitmapbackcolor = 12632256 this.menubitmaps = true this.titlegradient = true this.toolbartextcolor = 134217746 this.toolbarbackcolor = 67108864 this.toolbarhighlightcolor = 134217741 this.toolbargradient = true this.bitmapgradient = true end on on m_dropdown.destroy call super::destroy end on type m_listbox from menu within m_insert end type event clicked;iu_web.of_DocumentCommand("InsertSelectListbox") end event on m_listbox.create call super::create this.text = "Listbox" this.microhelp = "Insert listbox control" this.menutextcolor = 134217735 this.menubackcolor = 134217732 this.menuhighlightcolor = 134217741 this.textsize = 8 this.weight = 400 this.facename = "Tahoma" this.titlebackcolor = 134217730 this.bitmapbackcolor = 12632256 this.menubitmaps = true this.titlegradient = true this.toolbartextcolor = 134217746 this.toolbarbackcolor = 67108864 this.toolbarhighlightcolor = 134217741 this.toolbargradient = true this.bitmapgradient = true end on on m_listbox.destroy call super::destroy end on type m_table from menu within m_insert end type event clicked;OpenWithParm(w_insert_table, iu_web) end event on m_table.create call super::create this.text = "Table" this.microhelp = "Insert table" this.menutextcolor = 134217735 this.menubackcolor = 134217732 this.menuhighlightcolor = 134217741 this.textsize = 8 this.weight = 400 this.facename = "Tahoma" this.titlebackcolor = 134217730 this.bitmapbackcolor = 12632256 this.menubitmaps = true this.titlegradient = true this.toolbartextcolor = 134217746 this.toolbarbackcolor = 67108864 this.toolbarhighlightcolor = 134217741 this.toolbargradient = true this.bitmapgradient = true end on on m_table.destroy call super::destroy end on type m_textarea from menu within m_insert end type event clicked;iu_web.of_DocumentCommand("InsertTextArea") end event on m_textarea.create call super::create this.text = "TextArea" this.microhelp = "Insert textarea control" this.menutextcolor = 134217735 this.menubackcolor = 134217732 this.menuhighlightcolor = 134217741 this.textsize = 8 this.weight = 400 this.facename = "Tahoma" this.titlebackcolor = 134217730 this.bitmapbackcolor = 12632256 this.menubitmaps = true this.titlegradient = true this.toolbartextcolor = 134217746 this.toolbarbackcolor = 67108864 this.toolbarhighlightcolor = 134217741 this.toolbargradient = true this.bitmapgradient = true end on on m_textarea.destroy call super::destroy end on type m_unorderedlist from menu within m_insert end type event clicked;iu_web.of_Toggle_Property("InsertUnorderedList") this.Checked = iu_web.of_IsPropertySet("InsertUnorderedList") this.ToolbarItemDown = this.Checked end event on m_unorderedlist.create call super::create this.text = "Unordered List" this.microhelp = "Toggle unordered list mode" this.menutextcolor = 134217735 this.menubackcolor = 134217732 this.menuhighlightcolor = 134217741 this.textsize = 8 this.weight = 400 this.facename = "Tahoma" this.titlebackcolor = 134217730 this.bitmapbackcolor = 12632256 this.menubitmaps = true this.titlegradient = true this.toolbartextcolor = 134217746 this.toolbarbackcolor = 67108864 this.toolbarhighlightcolor = 134217741 this.toolbargradient = true this.bitmapgradient = true end on on m_unorderedlist.destroy call super::destroy end on type m_browser from menu within m_main m_back m_back m_forward m_forward m_stop m_stop m_refresh m_refresh m_home m_home m_search m_search m_internetproperties m_internetproperties m_- m_- m_topwizsoftware m_topwizsoftware m_browseremulation m_browseremulation end type on m_browser.create call super::create this.text = "&Browser" this.menutextcolor = 134217735 this.menubackcolor = 134217732 this.menuhighlightcolor = 134217741 this.textsize = 8 this.weight = 400 this.facename = "Tahoma" this.titlebackcolor = 134217730 this.bitmapbackcolor = 12632256 this.menubitmaps = true this.titlegradient = true this.toolbartextcolor = 134217746 this.toolbarbackcolor = 67108864 this.toolbarhighlightcolor = 134217741 this.toolbargradient = true this.bitmapgradient = true this.m_back=create m_back this.m_forward=create m_forward this.m_stop=create m_stop this.m_refresh=create m_refresh this.m_home=create m_home this.m_search=create m_search this.m_internetproperties=create m_internetproperties this.m_-=create m_- this.m_topwizsoftware=create m_topwizsoftware this.m_browseremulation=create m_browseremulation this.Item[UpperBound(this.Item)+1]=this.m_back this.Item[UpperBound(this.Item)+1]=this.m_forward this.Item[UpperBound(this.Item)+1]=this.m_stop this.Item[UpperBound(this.Item)+1]=this.m_refresh this.Item[UpperBound(this.Item)+1]=this.m_home this.Item[UpperBound(this.Item)+1]=this.m_search this.Item[UpperBound(this.Item)+1]=this.m_internetproperties this.Item[UpperBound(this.Item)+1]=this.m_- this.Item[UpperBound(this.Item)+1]=this.m_topwizsoftware this.Item[UpperBound(this.Item)+1]=this.m_browseremulation end on on m_browser.destroy call super::destroy destroy(this.m_back) destroy(this.m_forward) destroy(this.m_stop) destroy(this.m_refresh) destroy(this.m_home) destroy(this.m_search) destroy(this.m_internetproperties) destroy(this.m_-) destroy(this.m_topwizsoftware) destroy(this.m_browseremulation) end on type m_back from menu within m_browser end type event clicked;iu_browse.ole_browser.of_GoBack() end event on m_back.create call super::create this.text = "Back" this.microhelp = "Go back to prior document" this.menutextcolor = 134217735 this.menubackcolor = 134217732 this.menuhighlightcolor = 134217741 this.textsize = 8 this.weight = 400 this.facename = "Tahoma" this.titlebackcolor = 134217730 this.bitmapbackcolor = 12632256 this.menubitmaps = true this.titlegradient = true this.toolbartextcolor = 134217746 this.toolbarbackcolor = 67108864 this.toolbarhighlightcolor = 134217741 this.toolbargradient = true this.bitmapgradient = true end on on m_back.destroy call super::destroy end on type m_forward from menu within m_browser end type event clicked;iu_browse.ole_browser.of_GoForward() end event on m_forward.create call super::create this.text = "Forward" this.microhelp = "Go forward to next document" this.menutextcolor = 134217735 this.menubackcolor = 134217732 this.menuhighlightcolor = 134217741 this.textsize = 8 this.weight = 400 this.facename = "Tahoma" this.titlebackcolor = 134217730 this.bitmapbackcolor = 12632256 this.menubitmaps = true this.titlegradient = true this.toolbartextcolor = 134217746 this.toolbarbackcolor = 67108864 this.toolbarhighlightcolor = 134217741 this.toolbargradient = true this.bitmapgradient = true end on on m_forward.destroy call super::destroy end on type m_stop from menu within m_browser end type event clicked;iu_browse.ole_browser.of_GoHome() end event on m_stop.create call super::create this.text = "Stop" this.microhelp = "Stop the current navigation" this.menutextcolor = 134217735 this.menubackcolor = 134217732 this.menuhighlightcolor = 134217741 this.textsize = 8 this.weight = 400 this.facename = "Tahoma" this.titlebackcolor = 134217730 this.bitmapbackcolor = 12632256 this.menubitmaps = true this.titlegradient = true this.toolbartextcolor = 134217746 this.toolbarbackcolor = 67108864 this.toolbarhighlightcolor = 134217741 this.toolbargradient = true this.bitmapgradient = true end on on m_stop.destroy call super::destroy end on type m_refresh from menu within m_browser end type event clicked;iu_browse.ole_browser.of_Refresh() end event on m_refresh.create call super::create this.text = "Refresh" this.microhelp = "Refresh the current document" this.menutextcolor = 134217735 this.menubackcolor = 134217732 this.menuhighlightcolor = 134217741 this.textsize = 8 this.weight = 400 this.facename = "Tahoma" this.titlebackcolor = 134217730 this.bitmapbackcolor = 12632256 this.menubitmaps = true this.titlegradient = true this.toolbartextcolor = 134217746 this.toolbarbackcolor = 67108864 this.toolbarhighlightcolor = 134217741 this.toolbargradient = true this.bitmapgradient = true end on on m_refresh.destroy call super::destroy end on type m_home from menu within m_browser end type event clicked;iu_browse.ole_browser.of_GoHome() end event on m_home.create call super::create this.text = "Home" this.microhelp = "Display home page" this.menutextcolor = 134217735 this.menubackcolor = 134217732 this.menuhighlightcolor = 134217741 this.textsize = 8 this.weight = 400 this.facename = "Tahoma" this.titlebackcolor = 134217730 this.bitmapbackcolor = 12632256 this.menubitmaps = true this.titlegradient = true this.toolbartextcolor = 134217746 this.toolbarbackcolor = 67108864 this.toolbarhighlightcolor = 134217741 this.toolbargradient = true this.bitmapgradient = true end on on m_home.destroy call super::destroy end on type m_search from menu within m_browser end type event clicked;iu_browse.ole_browser.of_GoSearch() end event on m_search.create call super::create this.text = "Search" this.microhelp = "Go to default search site" this.menutextcolor = 134217735 this.menubackcolor = 134217732 this.menuhighlightcolor = 134217741 this.textsize = 8 this.weight = 400 this.facename = "Tahoma" this.titlebackcolor = 134217730 this.bitmapbackcolor = 12632256 this.menubitmaps = true this.titlegradient = true this.toolbartextcolor = 134217746 this.toolbarbackcolor = 67108864 this.toolbarhighlightcolor = 134217741 this.toolbargradient = true this.bitmapgradient = true end on on m_search.destroy call super::destroy end on type m_internetproperties from menu within m_browser end type event clicked;ParentWindow.TriggerEvent(this.ClassName()) end event on m_internetproperties.create call super::create this.text = "Internet Properties" this.menutextcolor = 134217735 this.menubackcolor = 134217732 this.menuhighlightcolor = 134217741 this.textsize = 8 this.weight = 400 this.facename = "Tahoma" this.titlebackcolor = 134217730 this.bitmapbackcolor = 12632256 this.menubitmaps = true this.titlegradient = true this.toolbartextcolor = 134217746 this.toolbarbackcolor = 67108864 this.toolbarhighlightcolor = 134217741 this.toolbargradient = true this.bitmapgradient = true end on on m_internetproperties.destroy call super::destroy end on type m_- from menu within m_browser end type on m_-.create call super::create this.text = "-" this.menutextcolor = 134217735 this.menubackcolor = 134217732 this.menuhighlightcolor = 134217741 this.textsize = 8 this.weight = 400 this.facename = "Tahoma" this.titlebackcolor = 134217730 this.bitmapbackcolor = 12632256 this.menubitmaps = true this.titlegradient = true this.toolbartextcolor = 134217746 this.toolbarbackcolor = 67108864 this.toolbarhighlightcolor = 134217741 this.toolbargradient = true this.bitmapgradient = true end on on m_-.destroy call super::destroy end on type m_topwizsoftware from menu within m_browser end type event clicked;w_main lw_parent String ls_url lw_parent = ParentWindow lw_parent.tab_main.SelectTab(4) ls_url = "http://www.topwizprogramming.com/index.html" iu_browse.ole_browser.of_Navigate(ls_url) end event on m_topwizsoftware.create call super::create this.text = "Topwiz Software" this.menutextcolor = 134217735 this.menubackcolor = 134217732 this.menuhighlightcolor = 134217741 this.textsize = 8 this.weight = 400 this.facename = "Tahoma" this.titlebackcolor = 134217730 this.bitmapbackcolor = 12632256 this.menubitmaps = true this.titlegradient = true this.toolbartextcolor = 134217746 this.toolbarbackcolor = 67108864 this.toolbarhighlightcolor = 134217741 this.toolbargradient = true this.bitmapgradient = true end on on m_topwizsoftware.destroy call super::destroy end on type m_browseremulation from menu within m_browser end type event clicked;w_main lw_parent String ls_url lw_parent = ParentWindow lw_parent.tab_main.SelectTab(4) ls_url = "https://docs.microsoft.com/en-us/previous-versions/windows/internet-explorer/ie-developer/general-info/ee330730(v=vs.85)#browser-emulation" iu_browse.ole_browser.of_Navigate(ls_url) end event on m_browseremulation.create call super::create this.text = "Browser Emulation" this.menutextcolor = 134217735 this.menubackcolor = 134217732 this.menuhighlightcolor = 134217741 this.textsize = 8 this.weight = 400 this.facename = "Tahoma" this.titlebackcolor = 134217730 this.bitmapbackcolor = 12632256 this.menubitmaps = true this.titlegradient = true this.toolbartextcolor = 134217746 this.toolbarbackcolor = 67108864 this.toolbarhighlightcolor = 134217741 this.toolbargradient = true this.bitmapgradient = true end on on m_browseremulation.destroy call super::destroy end on type m_help from menu within m_main m_about m_about end type on m_help.create call super::create this.text = "&Help" this.menutextcolor = 134217735 this.menubackcolor = 134217732 this.menuhighlightcolor = 134217741 this.textsize = 8 this.weight = 400 this.facename = "Tahoma" this.titlebackcolor = 134217730 this.bitmapbackcolor = 12632256 this.menubitmaps = true this.titlegradient = true this.toolbartextcolor = 134217746 this.toolbarbackcolor = 67108864 this.toolbarhighlightcolor = 134217741 this.toolbargradient = true this.bitmapgradient = true this.m_about=create m_about this.Item[UpperBound(this.Item)+1]=this.m_about end on on m_help.destroy call super::destroy destroy(this.m_about) end on type m_about from menu within m_help end type event clicked;Open(w_about) end event on m_about.create call super::create this.text = "About" this.menutextcolor = 134217735 this.menubackcolor = 134217732 this.menuhighlightcolor = 134217741 this.textsize = 8 this.weight = 400 this.facename = "Tahoma" this.titlebackcolor = 134217730 this.bitmapbackcolor = 12632256 this.menubitmaps = true this.titlegradient = true this.toolbartextcolor = 134217746 this.toolbarbackcolor = 67108864 this.toolbarhighlightcolor = 134217741 this.toolbargradient = true this.bitmapgradient = true end on on m_about.destroy call super::destroy end on
- Sources
- TopWiz
- webbrowser
- PB
- m_main.srm
File: m_main.srm
Size: 59238
Date: Tue, 21 Mar 2023 01:43:52 +0100
Size: 59238
Date: Tue, 21 Mar 2023 01:43:52 +0100
- menu m_main(srm)
- menu m_file
- menu m_new
- menu m_open
- menu m_file_dash1
- menu m_save
- menu m_saveas
- menu m_file_dash2
- menu m_pagesetup
- menu m_file_dash3
- menu m_printsetup
- menu m_printpreview
- menu m_print
- menu m_file_dash4
- menu m_exit
- menu m_edit
- menu m_undo
- menu m_edit_dash1
- menu m_cut
- menu m_copy
- menu m_paste
- menu m_delete
- menu m_edit_dash2
- menu m_selectall
- menu m_edit_dash3
- menu m_bold
- menu m_italic
- menu m_underline
- menu m_font
- menu m_edit_dash4
- menu m_justify
- menu m_indent
- menu m_outdent
- menu m_insert
- menu m_button
- menu m_horizontalrule
- menu m_hyperlink
- menu m_image
- menu m_orderedlist
- menu m_paragraph
- menu m_dropdown
- menu m_listbox
- menu m_table
- menu m_textarea
- menu m_unorderedlist
- menu m_browser
- menu m_back
- menu m_forward
- menu m_stop
- menu m_refresh
- menu m_home
- menu m_search
- menu m_internetproperties
- menu m_-
- menu m_topwizsoftware
- menu m_browseremulation
- menu m_help
- menu m_file