$PBExportHeader$u_explorer_sample1.sru forward global type u_explorer_sample1 from u_explorer end type type uo_1 from u_sheets_explorer within u_explorer_sample1 end type type tv_1 from u_tv_explorer within u_explorer_sample1 end type end forward global type u_explorer_sample1 from u_explorer integer width = 1957 integer height = 1140 uo_1 uo_1 tv_1 tv_1 end type global u_explorer_sample1 u_explorer_sample1 type variables n_explorer inv_sample end variables on u_explorer_sample1.create int iCurrent call super::create this.uo_1=create uo_1 this.tv_1=create tv_1 iCurrent=UpperBound(this.Control) this.Control[iCurrent+1]=this.uo_1 this.Control[iCurrent+2]=this.tv_1 end on on u_explorer_sample1.destroy call super::destroy destroy(this.uo_1) destroy(this.tv_1) end on event destructor;call super::destructor;IF ISVALID(inv_sample) THEN DESTROY inv_sample end event event ke_postopen;call super::ke_postopen;inv_sample = CREATE n_explorer inv_sample.of_Register(tv_1, uo_1) inv_sample.of_setmodules("explorer_sample1") inv_sample.of_populatemodules() end event type uo_1 from u_sheets_explorer within u_explorer_sample1 integer x = 878 integer y = 32 integer width = 1024 integer height = 1056 integer taborder = 20 boolean #anchortop = true boolean #anchorleft = true boolean #anchorright = true boolean #anchorbottom = true boolean #showtabs = false end type on uo_1.destroy call u_sheets_explorer::destroy end on type tv_1 from u_tv_explorer within u_explorer_sample1 integer x = 37 integer y = 32 integer width = 805 integer height = 1056 integer taborder = 10 boolean haslines = false boolean linesatroot = false boolean fullrowselect = true boolean #anchortop = true boolean #anchorleft = true boolean #anchorbottom = true end type
- Sources
- Kodigo
- OpenExplorer
- u_explorer_sample1.sru
File: u_explorer_sample1.sru
Size: 1828
Date: Mon, 07 Apr 2008 21:32:57 +0200
Size: 1828
Date: Mon, 07 Apr 2008 21:32:57 +0200
- u_explorer u_explorer_sample1(sru)
- u_sheets_explorer uo_1
- u_tv_explorer tv_1