PBMiner

$PBExportHeader$u_wizard_finish.sru
$PBExportComments$Standard finish page
forward
global type u_wizard_finish from u_wizard97_exterior
end type
type cbx_continue from u_cbx within u_wizard_finish
end type
end forward

global type u_wizard_finish from u_wizard97_exterior
cbx_continue cbx_continue
end type
global u_wizard_finish u_wizard_finish

on u_wizard_finish.create
int iCurrent
call super::create
this.cbx_continue=create cbx_continue
iCurrent=UpperBound(this.Control)
this.Control[iCurrent+1]=this.cbx_continue
end on

on u_wizard_finish.destroy
call super::destroy
destroy(this.cbx_continue)
end on

event ke_setfocus;call super::ke_setfocus;//set the focus on the finish button
WizardWindow.SetFocus()
WizardWindow.cb_next.SetFocus()
//make the finish button the default
WizardWindow.cb_next.Default = TRUE
end event

type st_linedetails from u_wizard97_exterior`st_linedetails within u_wizard_finish
integer height = 548
end type

type st_details from u_wizard97_exterior`st_details within u_wizard_finish
end type

type st_title from u_wizard97_exterior`st_title within u_wizard_finish
end type

type uo_iconpanel from u_wizard97_exterior`uo_iconpanel within u_wizard_finish
end type

type st_inner from u_wizard97_exterior`st_inner within u_wizard_finish
end type

type st_outer from u_wizard97_exterior`st_outer within u_wizard_finish
end type

type uo_iconinfo from u_wizard97_exterior`uo_iconinfo within u_wizard_finish
end type

type uo_1 from u_wizard97_exterior`uo_1 within u_wizard_finish
end type

type cbx_continue from u_cbx within u_wizard_finish
integer x = 1573
integer y = 1152
integer width = 690
boolean bringtotop = true
long backcolor = 16777215
string text = "&Continue using this wizard"
boolean #anchorright = true
boolean #anchorbottom = true
end type