PBMiner

$PBExportHeader$w_about.srw
$PBExportComments$About Box
forward
global type w_about from window
end type
type cb_1 from commandbutton within w_about
end type
type tab_1 from tab within w_about
end type
type tabpage_topwiz from userobject within tab_1
end type
type st_4 from statictext within tabpage_topwiz
end type
type st_programdate from statictext within tabpage_topwiz
end type
type st_scilexer_version from statictext within tabpage_topwiz
end type
type p_1 from picture within tabpage_topwiz
end type
type st_3 from statictext within tabpage_topwiz
end type
type st_2 from statictext within tabpage_topwiz
end type
type shl_topwiz from statichyperlink within tabpage_topwiz
end type
type st_1 from statictext within tabpage_topwiz
end type
type st_pbeditor_version from statictext within tabpage_topwiz
end type
type tabpage_topwiz from userobject within tab_1
st_4 st_4
st_programdate st_programdate
st_scilexer_version st_scilexer_version
p_1 p_1
st_3 st_3
st_2 st_2
shl_topwiz shl_topwiz
st_1 st_1
st_pbeditor_version st_pbeditor_version
end type
type tabpage_scintilla from userobject within tab_1
end type
type mle_license from multilineedit within tabpage_scintilla
end type
type tabpage_scintilla from userobject within tab_1
mle_license mle_license
end type
type tab_1 from tab within w_about
tabpage_topwiz tabpage_topwiz
tabpage_scintilla tabpage_scintilla
end type
end forward

global type w_about from window
integer width = 2171
integer height = 1236
boolean titlebar = true
string title = "About"
boolean controlmenu = true
windowtype windowtype = response!
long backcolor = 67108864
string icon = "AppIcon!"
boolean center = true
cb_1 cb_1
tab_1 tab_1
end type
global w_about w_about

on w_about.create
this.cb_1=create cb_1
this.tab_1=create tab_1
this.Control[]={this.cb_1,&
this.tab_1}
end on

on w_about.destroy
destroy(this.cb_1)
destroy(this.tab_1)
end on

type cb_1 from commandbutton within w_about
integer x = 1792
integer y = 1024
integer width = 334
integer height = 100
integer taborder = 30
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

type tab_1 from tab within w_about
integer x = 37
integer y = 32
integer width = 2089
integer height = 964
integer taborder = 20
integer textsize = -8
integer weight = 400
fontcharset fontcharset = ansi!
fontpitch fontpitch = variable!
fontfamily fontfamily = swiss!
string facename = "Tahoma"
long backcolor = 67108864
boolean raggedright = true
boolean focusonbuttondown = true
boolean boldselectedtext = true
integer selectedtab = 1
tabpage_topwiz tabpage_topwiz
tabpage_scintilla tabpage_scintilla
end type

on tab_1.create
this.tabpage_topwiz=create tabpage_topwiz
this.tabpage_scintilla=create tabpage_scintilla
this.Control[]={this.tabpage_topwiz,&
this.tabpage_scintilla}
end on

on tab_1.destroy
destroy(this.tabpage_topwiz)
destroy(this.tabpage_scintilla)
end on

type tabpage_topwiz from userobject within tab_1
integer x = 18
integer y = 100
integer width = 2053
integer height = 848
long backcolor = 67108864
string text = "TopWiz"
long tabtextcolor = 33554432
long picturemaskcolor = 536870912
st_4 st_4
st_programdate st_programdate
st_scilexer_version st_scilexer_version
p_1 p_1
st_3 st_3
st_2 st_2
shl_topwiz shl_topwiz
st_1 st_1
st_pbeditor_version st_pbeditor_version
end type

on tabpage_topwiz.create
this.st_4=create st_4
this.st_programdate=create st_programdate
this.st_scilexer_version=create st_scilexer_version
this.p_1=create p_1
this.st_3=create st_3
this.st_2=create st_2
this.shl_topwiz=create shl_topwiz
this.st_1=create st_1
this.st_pbeditor_version=create st_pbeditor_version
this.Control[]={this.st_4,&
this.st_programdate,&
this.st_scilexer_version,&
this.p_1,&
this.st_3,&
this.st_2,&
this.shl_topwiz,&
this.st_1,&
this.st_pbeditor_version}
end on

on tabpage_topwiz.destroy
destroy(this.st_4)
destroy(this.st_programdate)
destroy(this.st_scilexer_version)
destroy(this.p_1)
destroy(this.st_3)
destroy(this.st_2)
destroy(this.shl_topwiz)
destroy(this.st_1)
destroy(this.st_pbeditor_version)
end on

type st_4 from statictext within tabpage_topwiz
integer x = 969
integer y = 472
integer width = 1070
integer height = 76
integer textsize = -10
integer weight = 400
fontcharset fontcharset = ansi!
fontpitch fontpitch = variable!
fontfamily fontfamily = swiss!
string facename = "Century Gothic"
long textcolor = 33554432
long backcolor = 67108864
string text = "Released July 26, 2023"
alignment alignment = center!
boolean focusrectangle = false
end type

type st_programdate from statictext within tabpage_topwiz
integer x = 969
integer y = 156
integer width = 1070
integer height = 76
integer textsize = -10
integer weight = 400
fontcharset fontcharset = ansi!
fontpitch fontpitch = variable!
fontfamily fontfamily = swiss!
string facename = "Century Gothic"
long textcolor = 33554432
long backcolor = 67108864
string text = "September 7, 2023"
alignment alignment = center!
boolean focusrectangle = false
end type

type st_scilexer_version from statictext within tabpage_topwiz
integer x = 969
integer y = 396
integer width = 1070
integer height = 76
integer textsize = -10
integer weight = 400
fontcharset fontcharset = ansi!
fontpitch fontpitch = variable!
fontfamily fontfamily = swiss!
string facename = "Century Gothic"
long textcolor = 33554432
long backcolor = 67108864
string text = "Using Scintilla.dll version 5.3.6"
alignment alignment = center!
boolean focusrectangle = false
end type

type p_1 from picture within tabpage_topwiz
integer x = 23
integer y = 20
integer width = 942
integer height = 676
string picturename = "topwiz.gif"
boolean focusrectangle = false
end type

type st_3 from statictext within tabpage_topwiz
integer x = 969
integer y = 688
integer width = 1070
integer height = 148
integer textsize = -10
integer weight = 400
fontcharset fontcharset = ansi!
fontpitch fontpitch = variable!
fontfamily fontfamily = swiss!
string facename = "Century Gothic"
long textcolor = 33554432
long backcolor = 67108864
string text = "Brad Wery, Dmitry Lukyanov, Sebastien Kirche and Arnd Schmidt"
boolean focusrectangle = false
end type

type st_2 from statictext within tabpage_topwiz
integer x = 969
integer y = 616
integer width = 1070
integer height = 76
integer textsize = -10
integer weight = 400
fontcharset fontcharset = ansi!
fontpitch fontpitch = variable!
fontfamily fontfamily = swiss!
string facename = "Century Gothic"
long textcolor = 33554432
long backcolor = 67108864
string text = "With help from:"
boolean focusrectangle = false
end type

type shl_topwiz from statichyperlink within tabpage_topwiz
integer x = 969
integer y = 316
integer width = 1070
integer height = 76
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 = 67108864
string text = "www.topwizprogramming.com"
alignment alignment = center!
boolean focusrectangle = false
string url = "http://www.topwizprogramming.com/"
end type

type st_1 from statictext within tabpage_topwiz
integer x = 969
integer y = 236
integer width = 1070
integer height = 76
integer textsize = -10
integer weight = 400
fontcharset fontcharset = ansi!
fontpitch fontpitch = variable!
fontfamily fontfamily = swiss!
string facename = "Century Gothic"
long textcolor = 33554432
long backcolor = 67108864
string text = "Written by Roland Smith"
alignment alignment = center!
boolean focusrectangle = false
end type

type st_pbeditor_version from statictext within tabpage_topwiz
integer x = 969
integer y = 20
integer width = 1061
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 = 67108864
string text = "PBEditor"
alignment alignment = center!
boolean focusrectangle = false
end type

type tabpage_scintilla from userobject within tab_1
integer x = 18
integer y = 100
integer width = 2053
integer height = 848
long backcolor = 67108864
string text = "Scintilla"
long tabtextcolor = 33554432
long picturemaskcolor = 536870912
mle_license mle_license
end type

on tabpage_scintilla.create
this.mle_license=create mle_license
this.Control[]={this.mle_license}
end on

on tabpage_scintilla.destroy
destroy(this.mle_license)
end on

type mle_license from multilineedit within tabpage_scintilla
integer x = 27
integer y = 28
integer width = 1998
integer height = 780
integer taborder = 30
integer textsize = -8
integer weight = 400
fontcharset fontcharset = ansi!
fontpitch fontpitch = variable!
fontfamily fontfamily = swiss!
string facename = "Tahoma"
long textcolor = 33554432
string text = "License for Scintilla ( see constructor )"
boolean vscrollbar = true
borderstyle borderstyle = stylelowered!
end type

event constructor;this.text = "License for Scintilla and SciTE~r~n~r~n" + &
   "Copyright Copyright 1998-2021 by Neil Hodgson <neilh@scintilla.org>~r~n~r~n" + &
   "All Rights Reserved~r~n~r~n" + &
   "Permission to use, copy, modify, and distribute this software and its ~r~n" + &
   "documentation for any purpose and without fee is hereby granted, ~r~n" + &
   "provided that the above copyright notice appear in all copies and that ~r~n" + &
   "both that copyright notice and this permission notice appear in ~r~n" + &
   "supporting documentation.~r~n~r~n" + &
   "NEIL HODGSON DISCLAIMS ALL WARRANTIES WITH REGARD TO THIS~r~n" + &
   "SOFTWARE, INCLUDING ALL IMPLIED WARRANTIES OF MERCHANTABILITY~r~n" + &
   "AND FITNESS, IN NO EVENT SHALL NEIL HODGSON BE LIABLE FOR ANY~r~n" + &
   "SPECIAL, INDIRECT OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES~r~n" + &
   "WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS,~r~n" + &
   "WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE OR OTHER~r~n" + &
   "TORTIOUS ACTION, ARISING OUT OF OR IN CONNECTION WITH THE USE~r~n" + &
   "OR PERFORMANCE OF THIS SOFTWARE."

end event