$PBExportHeader$m_main.srm $PBExportComments$Main menu 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_addfiles from menu within m_file end type type m_extract 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_addfiles m_addfiles m_extract m_extract m_exit m_exit end type type m_other from menu within m_main end type type m_comment from menu within m_other end type type m_setpassword from menu within m_other end type type m_inmemory from menu within m_other end type type m_other from menu within m_main m_comment m_comment m_setpassword m_setpassword m_inmemory m_inmemory 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_other m_other m_help m_help end type end forward global type m_main from menu m_file m_file m_other m_other m_help m_help end type global m_main m_main 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_other=create m_other this.m_help=create m_help this.Item[UpperBound(this.Item)+1]=this.m_file this.Item[UpperBound(this.Item)+1]=this.m_other 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_other) destroy(this.m_help) end on type m_file from menu within m_main m_new m_new m_open m_open m_addfiles m_addfiles m_extract m_extract 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_addfiles=create m_addfiles this.m_extract=create m_extract 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_addfiles this.Item[UpperBound(this.Item)+1]=this.m_extract 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_addfiles) destroy(this.m_extract) destroy(this.m_exit) end on type m_new from menu within m_file end type event clicked;// trigger event on window ParentWindow.Event Dynamic ue_newzip() end event on m_new.create call super::create this.text = "&New" this.microhelp = "Create Zip Archive" this.toolbaritemname = "new!" this.toolbaritemtext = "New,Create Zip Archive" 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 type m_open from menu within m_file end type on m_open.create call super::create this.text = "&Open" this.microhelp = "Open Zip Archive" this.toolbaritemname = "open!" this.toolbaritemtext = "Open,Open Zip Archive" 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 event clicked;// trigger event on window ParentWindow.Event Dynamic ue_openzip() end event on m_open.destroy call super::destroy end on type m_addfiles from menu within m_file end type on m_addfiles.create call super::create this.text = "&Add Files" this.microhelp = "Add Files to Archive" this.toolbaritemname = "copy!" this.toolbaritemtext = "Add Files,Add Files to Archive" 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_addfiles.destroy call super::destroy end on event clicked;// trigger event on window ParentWindow.Event Dynamic ue_addfile() end event type m_extract from menu within m_file end type event clicked;// trigger event on window ParentWindow.Event Dynamic ue_extract() end event on m_extract.create call super::create this.text = "&Extract" this.microhelp = "Extract file from open archive" this.toolbaritemname = "DataPipeline!" this.toolbaritemtext = "Extract,Extract file from open archive" 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_extract.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 = "E&xit" this.microhelp = "Exit Program" this.toolbaritemname = "exit!" this.toolbaritemtext = "Exit,Exit Program" this.toolbaritemorder = 99 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_other from menu within m_main m_comment m_comment m_setpassword m_setpassword m_inmemory m_inmemory end type on m_other.create call super::create this.text = "&Other" 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_comment=create m_comment this.m_setpassword=create m_setpassword this.m_inmemory=create m_inmemory this.Item[UpperBound(this.Item)+1]=this.m_comment this.Item[UpperBound(this.Item)+1]=this.m_setpassword this.Item[UpperBound(this.Item)+1]=this.m_inmemory end on on m_other.destroy call super::destroy destroy(this.m_comment) destroy(this.m_setpassword) destroy(this.m_inmemory) end on type m_comment from menu within m_other end type event clicked;// trigger event on window ParentWindow.Event Dynamic ue_comments() end event on m_comment.create call super::create this.text = "Global Comment" this.microhelp = "Display Global Comment" 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_comment.destroy call super::destroy end on type m_setpassword from menu within m_other end type event clicked;// set password Open(w_password) end event on m_setpassword.create call super::create this.text = "Set Password" this.microhelp = "Set the password for the file" this.toolbaritemname = "custom016!" this.toolbaritemtext = "Password,Set the password for the 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_setpassword.destroy call super::destroy end on type m_inmemory from menu within m_other end type event clicked;Open(w_memory) end event on m_inmemory.create call super::create this.text = "In-memory" this.microhelp = "Demo of in-memory compress/uncompress" this.toolbaritemname = "watcom!" this.toolbaritemtext = "In-memory,Demo of in-memory compress/uncompress" 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_inmemory.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;String ls_msg, ls_version n_zlib ln_zlib ls_version = ln_zlib.of_zlibVersion() ls_msg = "ZLib Version: " + ls_version + "~r~n~r~n" ls_msg += "PowerBuilder code by Roland Smith.~r~n~r~n" ls_msg += "www.topwizprogramming.com" MessageBox("About ZLibwapi", ls_msg) 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
File: m_main.srm
Size: 12691
Date: Mon, 18 Apr 2022 03:44:44 +0200
Size: 12691
Date: Mon, 18 Apr 2022 03:44:44 +0200
- menu m_main(srm)
- menu m_file
- menu m_other
- menu m_help