$PBExportHeader$w_main.srw forward global type w_main from window end type type mdi_1 from mdiclient within w_main end type end forward global type w_main from window integer width = 4174 integer height = 2424 boolean titlebar = true string title = "Parent Window Demo" string menuname = "m_main" boolean controlmenu = true boolean minbox = true boolean maxbox = true boolean resizable = true windowtype windowtype = mdihelp! long backcolor = 67108864 string icon = "AppIcon!" boolean center = true mdi_1 mdi_1 end type global w_main w_main on w_main.create if this.MenuName = "m_main" then this.MenuID = create m_main this.mdi_1=create mdi_1 this.Control[]={this.mdi_1} end on on w_main.destroy if IsValid(MenuID) then destroy(MenuID) destroy(this.mdi_1) end on event open;gw_frame = this end event type mdi_1 from mdiclient within w_main long BackColor=268435456 end type
- Sources
- TopWiz
- parentwindow
- PB
- w_main.srw
File: w_main.srw
Size: 926
Date: Mon, 11 Feb 2019 15:23:52 +0100
Size: 926
Date: Mon, 11 Feb 2019 15:23:52 +0100
- window w_main(srw)
- mdiclient mdi_1