$PBExportHeader$u_explorer_sample2.sru forward global type u_explorer_sample2 from u_explorer end type type cbx_1 from u_cbx within u_explorer_sample2 end type type st_1 from u_st within u_explorer_sample2 end type type uo_splitter from u_splitcontainer_explorer within u_explorer_sample2 end type type uo_1 from u_sheets_explorer within u_explorer_sample2 end type type tv_1 from u_tv_explorer within u_explorer_sample2 end type end forward global type u_explorer_sample2 from u_explorer integer width = 1957 integer height = 1140 cbx_1 cbx_1 st_1 st_1 uo_splitter uo_splitter uo_1 uo_1 tv_1 tv_1 end type global u_explorer_sample2 u_explorer_sample2 type variables n_explorer inv_sample end variables on u_explorer_sample2.create int iCurrent call super::create this.cbx_1=create cbx_1 this.st_1=create st_1 this.uo_splitter=create uo_splitter this.uo_1=create uo_1 this.tv_1=create tv_1 iCurrent=UpperBound(this.Control) this.Control[iCurrent+1]=this.cbx_1 this.Control[iCurrent+2]=this.st_1 this.Control[iCurrent+3]=this.uo_splitter this.Control[iCurrent+4]=this.uo_1 this.Control[iCurrent+5]=this.tv_1 end on on u_explorer_sample2.destroy call super::destroy destroy(this.cbx_1) destroy(this.st_1) destroy(this.uo_splitter) 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, uo_splitter) inv_sample.of_setmodules("explorer_sample1") inv_sample.of_populatemodules() end event type cbx_1 from u_cbx within u_explorer_sample2 integer x = 1335 integer y = 16 string text = "ShowTabs" end type event clicked;call super::clicked;uo_1.of_Showtabs(Checked) end event type st_1 from u_st within u_explorer_sample2 integer x = 37 integer y = 16 integer width = 1253 integer height = 100 string text = "Here is the previous explorer sample that uses a splitter." end type type uo_splitter from u_splitcontainer_explorer within u_explorer_sample2 integer x = 805 integer y = 320 integer taborder = 20 long #sizeorder = 2 boolean #dock = true long #docktype = 5 string #dock_control_top = "st_1" string #lefttopcontrol = "tv_1" string #rightbottomcontrol = "uo_1" boolean #usethemecolors = false end type on uo_splitter.destroy call u_splitcontainer_explorer::destroy end on type uo_1 from u_sheets_explorer within u_explorer_sample2 integer x = 55 integer y = 576 integer taborder = 20 long #sizeorder = -1 boolean #showborder = true boolean #usethemecolors = false boolean #showtabs = false long #tabstyle = 2 end type on uo_1.destroy call u_sheets_explorer::destroy end on type tv_1 from u_tv_explorer within u_explorer_sample2 integer x = 37 integer y = 208 integer width = 905 integer taborder = 10 boolean haslines = false boolean linesatroot = false boolean fullrowselect = true long #sizeorder = -1 end type
- Sources
- Kodigo
- OpenExplorer
- u_explorer_sample2.sru
File: u_explorer_sample2.sru
Size: 3047
Date: Mon, 07 Apr 2008 21:33:11 +0200
Size: 3047
Date: Mon, 07 Apr 2008 21:33:11 +0200
- u_explorer u_explorer_sample2(sru)
- u_cbx cbx_1
- u_st st_1
- u_splitcontainer_explorer uo_splitter
- u_sheets_explorer uo_1
- u_tv_explorer tv_1