PBMiner

$PBExportHeader$w_main.srw
forward
global type w_main from window
end type
type st_3 from statictext within w_main
end type
type dw_crayolacolors from datawindow within w_main
end type
type st_2 from statictext within w_main
end type
type dw_webcolors from datawindow within w_main
end type
type st_1 from statictext within w_main
end type
type cb_cancel from commandbutton within w_main
end type
type dw_pbcolors from datawindow within w_main
end type
end forward

global type w_main from window
integer width = 3013
integer height = 2029
boolean titlebar = true
string title = "Color Functions"
boolean controlmenu = true
long backcolor = 67108864
string icon = "AppIcon!"
boolean center = true
st_3 st_3
dw_crayolacolors dw_crayolacolors
st_2 st_2
dw_webcolors dw_webcolors
st_1 st_1
cb_cancel cb_cancel
dw_pbcolors dw_pbcolors
end type
global w_main w_main

on w_main.create
this.st_3=create st_3
this.dw_crayolacolors=create dw_crayolacolors
this.st_2=create st_2
this.dw_webcolors=create dw_webcolors
this.st_1=create st_1
this.cb_cancel=create cb_cancel
this.dw_pbcolors=create dw_pbcolors
this.Control[]={this.st_3,&
this.dw_crayolacolors,&
this.st_2,&
this.dw_webcolors,&
this.st_1,&
this.cb_cancel,&
this.dw_pbcolors}
end on

on w_main.destroy
destroy(this.st_3)
destroy(this.dw_crayolacolors)
destroy(this.st_2)
destroy(this.dw_webcolors)
destroy(this.st_1)
destroy(this.cb_cancel)
destroy(this.dw_pbcolors)
end on

type st_3 from statictext within w_main
integer x = 2011
integer y = 32
integer width = 919
integer height = 68
integer textsize = -8
integer weight = 700
fontcharset fontcharset = ansi!
fontpitch fontpitch = variable!
fontfamily fontfamily = swiss!
string facename = "Tahoma"
long textcolor = 33554432
long backcolor = 67108864
string text = "120 Crayola Colors:"
boolean focusrectangle = false
end type

type dw_crayolacolors from datawindow within w_main
integer x = 2011
integer y = 116
integer width = 919
integer height = 1616
integer taborder = 30
string title = "none"
string dataobject = "d_crayolacolors"
boolean vscrollbar = true
boolean livescroll = true
borderstyle borderstyle = stylelowered!
end type

type st_2 from statictext within w_main
integer x = 1024
integer y = 32
integer width = 919
integer height = 68
integer textsize = -8
integer weight = 700
fontcharset fontcharset = ansi!
fontpitch fontpitch = variable!
fontfamily fontfamily = swiss!
string facename = "Tahoma"
long textcolor = 33554432
long backcolor = 67108864
string text = "140 Web Colors:"
boolean focusrectangle = false
end type

type dw_webcolors from datawindow within w_main
integer x = 1024
integer y = 116
integer width = 919
integer height = 1616
integer taborder = 20
string title = "none"
string dataobject = "d_webcolors"
boolean vscrollbar = true
boolean livescroll = true
borderstyle borderstyle = stylelowered!
end type

type st_1 from statictext within w_main
integer x = 37
integer y = 32
integer width = 919
integer height = 68
integer textsize = -8
integer weight = 700
fontcharset fontcharset = ansi!
fontpitch fontpitch = variable!
fontfamily fontfamily = swiss!
string facename = "Tahoma"
long textcolor = 33554432
long backcolor = 67108864
string text = "52 PowerBuilder Colors:"
boolean focusrectangle = false
end type

type cb_cancel from commandbutton within w_main
integer x = 2597
integer y = 1792
integer width = 334
integer height = 100
integer taborder = 40
integer textsize = -8
integer weight = 400
fontcharset fontcharset = ansi!
fontpitch fontpitch = variable!
fontfamily fontfamily = swiss!
string facename = "Tahoma"
string text = "Cancel"
boolean cancel = true
end type

event clicked;Close(Parent)

end event

type dw_pbcolors from datawindow within w_main
integer x = 37
integer y = 116
integer width = 919
integer height = 1616
integer taborder = 10
string title = "none"
string dataobject = "d_pbcolors"
boolean vscrollbar = true
boolean livescroll = true
borderstyle borderstyle = stylelowered!
end type