$PBExportHeader$u_tabpg_source.sru forward global type u_tabpg_source from u_base_tabpg end type type mle_source from multilineedit within u_tabpg_source end type end forward global type u_tabpg_source from u_base_tabpg string text = "Source" mle_source mle_source end type global u_tabpg_source u_tabpg_source on u_tabpg_source.create int iCurrent call super::create this.mle_source=create mle_source iCurrent=UpperBound(this.Control) this.Control[iCurrent+1]=this.mle_source end on on u_tabpg_source.destroy call super::destroy destroy(this.mle_source) end on event resize;call super::resize;mle_source.Width = this.Width mle_source.Height = this.Height end event event selectionchanging;call super::selectionchanging;w_main lw_main u_tabpg_design lu_design lw_main = iw_parent lu_design = lw_main.tab_main.of_GetDesign() lu_design.ole_browser.of_SetSource(mle_source.text) end event type mle_source from multilineedit within u_tabpg_source integer width = 1655 integer height = 1032 integer taborder = 10 integer textsize = -8 integer weight = 400 fontcharset fontcharset = ansi! fontpitch fontpitch = variable! fontfamily fontfamily = swiss! string facename = "Tahoma" long textcolor = 33554432 boolean hscrollbar = true boolean vscrollbar = true borderstyle borderstyle = stylelowered! end type
- Sources
- TopWiz
- webbrowser
- PB8
- u_tabpg_source.sru
File: u_tabpg_source.sru
Size: 1370
Date: Mon, 31 Dec 2018 21:14:39 +0100
Size: 1370
Date: Mon, 31 Dec 2018 21:14:39 +0100
- u_base_tabpg u_tabpg_source(sru)
- multilineedit mle_source