$PBExportHeader$u_controls_rebarwin32.sru forward global type u_controls_rebarwin32 from u_explorer end type type mle_1 from u_mle within u_controls_rebarwin32 end type type ddlb_1 from u_ddlb within u_controls_rebarwin32 end type type uo_1 from u_toolbar within u_controls_rebarwin32 end type type uo_rebar from u_rebar within u_controls_rebarwin32 end type end forward global type u_controls_rebarwin32 from u_explorer mle_1 mle_1 ddlb_1 ddlb_1 uo_1 uo_1 uo_rebar uo_rebar end type global u_controls_rebarwin32 u_controls_rebarwin32 on u_controls_rebarwin32.create int iCurrent call super::create this.mle_1=create mle_1 this.ddlb_1=create ddlb_1 this.uo_1=create uo_1 this.uo_rebar=create uo_rebar iCurrent=UpperBound(this.Control) this.Control[iCurrent+1]=this.mle_1 this.Control[iCurrent+2]=this.ddlb_1 this.Control[iCurrent+3]=this.uo_1 this.Control[iCurrent+4]=this.uo_rebar end on on u_controls_rebarwin32.destroy call super::destroy destroy(this.mle_1) destroy(this.ddlb_1) destroy(this.uo_1) destroy(this.uo_rebar) end on event ke_postopen;call super::ke_postopen;uo_rebar.of_Insertband(uo_1.Handle, "Toolbar") uo_rebar.of_Insertband(Handle(ddlb_1), "Dropdown", TRUE) uo_rebar.of_refresh() end event type mle_1 from u_mle within u_controls_rebarwin32 integer x = 201 integer y = 416 integer taborder = 40 string text = "This is a Rebar sample." long #sizeorder = 2 boolean #dock = true long #docktype = 5 string #dock_control_top = "uo_rebar" end type type ddlb_1 from u_ddlb within u_controls_rebarwin32 integer x = 146 integer y = 192 integer taborder = 30 long #sizeorder = -1 end type type uo_1 from u_toolbar within u_controls_rebarwin32 integer x = 731 integer taborder = 20 long #sizeorder = -1 string #dataobject = "d_2toolbar" boolean #largeicons = true boolean #createonparent = true end type on uo_1.destroy call u_toolbar::destroy end on event ke_dropdown;call super::ke_dropdown;m_poptest m m = CREATE m_poptest m.PopMenu(popx, popy) DESTROY m end event type uo_rebar from u_rebar within u_controls_rebarwin32 integer taborder = 10 boolean #dock = true long #docktype = 1 end type on uo_rebar.destroy call u_rebar::destroy end on
- Sources
- Kodigo
- OpenExplorer
- u_controls_rebarwin32.sru
File: u_controls_rebarwin32.sru
Size: 2267
Date: Mon, 07 Apr 2008 21:32:54 +0200
Size: 2267
Date: Mon, 07 Apr 2008 21:32:54 +0200
- u_explorer u_controls_rebarwin32(sru)
- u_mle mle_1
- u_ddlb ddlb_1
- u_toolbar uo_1
- u_rebar uo_rebar