$PBExportHeader$w_about.srw $PBExportComments$About Box forward global type w_about from w_base_response end type type shl_website from statichyperlink within w_about end type type st_author from statictext within w_about end type type st_title from statictext within w_about end type type p_topwiz from picture within w_about end type type cb_ok from commandbutton within w_about end type end forward global type w_about from w_base_response integer width = 2354 integer height = 880 string title = "About" long backcolor = 12632256 shl_website shl_website st_author st_author st_title st_title p_topwiz p_topwiz cb_ok cb_ok end type global w_about w_about on w_about.create int iCurrent call super::create this.shl_website=create shl_website this.st_author=create st_author this.st_title=create st_title this.p_topwiz=create p_topwiz this.cb_ok=create cb_ok iCurrent=UpperBound(this.Control) this.Control[iCurrent+1]=this.shl_website this.Control[iCurrent+2]=this.st_author this.Control[iCurrent+3]=this.st_title this.Control[iCurrent+4]=this.p_topwiz this.Control[iCurrent+5]=this.cb_ok end on on w_about.destroy call super::destroy destroy(this.shl_website) destroy(this.st_author) destroy(this.st_title) destroy(this.p_topwiz) destroy(this.cb_ok) end on type shl_website from statichyperlink within w_about integer x = 1152 integer y = 352 integer width = 992 integer height = 68 integer textsize = -10 integer weight = 400 fontcharset fontcharset = ansi! fontpitch fontpitch = variable! fontfamily fontfamily = swiss! string facename = "Century Gothic" boolean underline = true string pointer = "HyperLink!" long textcolor = 134217856 long backcolor = 12632256 string text = "www.topwizprogramming.com" alignment alignment = center! boolean focusrectangle = false string url = "http://www.topwizprogramming.com/" end type type st_author from statictext within w_about integer x = 1152 integer y = 224 integer width = 992 integer height = 68 integer textsize = -10 integer weight = 400 fontcharset fontcharset = ansi! fontpitch fontpitch = variable! fontfamily fontfamily = swiss! string facename = "Century Gothic" long textcolor = 33554432 long backcolor = 12632256 string text = "Written by Roland Smith" alignment alignment = center! boolean focusrectangle = false end type type st_title from statictext within w_about integer x = 1024 integer y = 32 integer width = 1248 integer height = 132 integer textsize = -18 integer weight = 400 fontcharset fontcharset = ansi! fontpitch fontpitch = variable! fontfamily fontfamily = swiss! string facename = "Century Gothic" long textcolor = 33554432 long backcolor = 12632256 string text = "WebBrowser Designer" alignment alignment = center! boolean focusrectangle = false end type type p_topwiz from picture within w_about integer x = 37 integer y = 32 integer width = 942 integer height = 676 boolean originalsize = true string picturename = "topwiz.bmp" boolean focusrectangle = false end type type cb_ok from commandbutton within w_about integer x = 1609 integer y = 608 integer width = 334 integer height = 100 integer taborder = 10 integer textsize = -8 integer weight = 400 fontcharset fontcharset = ansi! fontpitch fontpitch = variable! fontfamily fontfamily = swiss! string facename = "Tahoma" string text = "OK" boolean cancel = true end type event clicked;Close(parent) end event
- Sources
- TopWiz
- webbrowser
- PB8
- w_about.srw
File: w_about.srw
Size: 3496
Date: Mon, 31 Dec 2018 21:14:39 +0100
Size: 3496
Date: Mon, 31 Dec 2018 21:14:39 +0100
- w_base_response w_about(srw)
- statichyperlink shl_website
- statictext st_author
- statictext st_title
- picture p_topwiz
- commandbutton cb_ok