$PBExportHeader$u_layout_dock3.sru forward global type u_layout_dock3 from u_explorer end type type cbx_1 from u_cbx within u_layout_dock3 end type type hpb_1 from u_hpb within u_layout_dock3 end type type st_1 from u_st within u_layout_dock3 end type type cb_3 from u_cb within u_layout_dock3 end type type cb_2 from u_cb within u_layout_dock3 end type type uo_1 from u_layout_dock3_child within u_layout_dock3 end type type cb_1 from u_cb within u_layout_dock3 end type end forward global type u_layout_dock3 from u_explorer integer width = 2053 integer height = 1220 cbx_1 cbx_1 hpb_1 hpb_1 st_1 st_1 cb_3 cb_3 cb_2 cb_2 uo_1 uo_1 cb_1 cb_1 end type global u_layout_dock3 u_layout_dock3 on u_layout_dock3.create int iCurrent call super::create this.cbx_1=create cbx_1 this.hpb_1=create hpb_1 this.st_1=create st_1 this.cb_3=create cb_3 this.cb_2=create cb_2 this.uo_1=create uo_1 this.cb_1=create cb_1 iCurrent=UpperBound(this.Control) this.Control[iCurrent+1]=this.cbx_1 this.Control[iCurrent+2]=this.hpb_1 this.Control[iCurrent+3]=this.st_1 this.Control[iCurrent+4]=this.cb_3 this.Control[iCurrent+5]=this.cb_2 this.Control[iCurrent+6]=this.uo_1 this.Control[iCurrent+7]=this.cb_1 end on on u_layout_dock3.destroy call super::destroy destroy(this.cbx_1) destroy(this.hpb_1) destroy(this.st_1) destroy(this.cb_3) destroy(this.cb_2) destroy(this.uo_1) destroy(this.cb_1) end on type cbx_1 from u_cbx within u_layout_dock3 integer x = 1701 integer y = 368 integer width = 306 string text = "Marquee" boolean #anchorright = true end type event clicked;call super::clicked;hpb_1.of_SetMarquee(Checked) end event type hpb_1 from u_hpb within u_layout_dock3 integer y = 16 integer setstep = 1 boolean smoothscroll = true long #sizeorder = 1 boolean #dock = true long #docktype = 1 end type type st_1 from u_st within u_layout_dock3 integer x = 421 integer y = 1104 integer width = 1600 integer height = 116 string text = "The userobject above is docked fill but is bound based on the controls defined in #dock_control_top, etc. It also uses dock padding to have spaces." boolean #anchorleft = true boolean #anchorright = true boolean #anchorbottom = true end type type cb_3 from u_cb within u_layout_dock3 integer x = 1682 integer y = 228 integer taborder = 30 string text = "Test" boolean #anchorright = true end type type cb_2 from u_cb within u_layout_dock3 integer x = 1682 integer y = 112 integer taborder = 30 string text = "Test" boolean #anchorright = true end type type uo_1 from u_layout_dock3_child within u_layout_dock3 integer x = 640 integer y = 256 integer taborder = 30 long #sizeorder = 5 boolean #dock = true long #docktype = 5 long #dockpadtop = 48 long #dockpadright = 48 long #dockpadbottom = 48 string #dock_control_top = "hpb_1" string #dock_control_right = "cb_2" string #dock_control_bottom = "cb_1" end type on uo_1.destroy call u_layout_dock3_child::destroy end on type cb_1 from u_cb within u_layout_dock3 integer x = 37 integer y = 1104 integer taborder = 10 long #sizeorder = 1 boolean #anchorbottom = true end type
- Sources
- Kodigo
- OpenExplorer
- u_layout_dock3.sru
File: u_layout_dock3.sru
Size: 3195
Date: Mon, 07 Apr 2008 21:33:13 +0200
Size: 3195
Date: Mon, 07 Apr 2008 21:33:13 +0200
- u_explorer u_layout_dock3(sru)
- u_cbx cbx_1
- u_hpb hpb_1
- u_st st_1
- u_cb cb_3
- u_cb cb_2
- u_layout_dock3_child uo_1
- u_cb cb_1