PBMiner

$PBExportHeader$w_wizard.srw
$PBExportComments$Wizard window
forward
global type w_wizard from w_response
end type
type cb_help from u_cb within w_wizard
end type
type cb_back from u_cb within w_wizard
end type
type cb_next from u_cb within w_wizard
end type
type cb_cancel from u_cb within w_wizard
end type
type uo_gradient from u_st_gradient within w_wizard
end type
type st_divide from u_st within w_wizard
end type
end forward

global type w_wizard from w_response
integer width = 2272
integer height = 1520
boolean #autopositionwindow = false
long #minwidth = 500
long #minheight = 390
string #defaultbutton = "cb_next"
string #cancelbutton = "cb_cancel"
cb_help cb_help
cb_back cb_back
cb_next cb_next
cb_cancel cb_cancel
uo_gradient uo_gradient
st_divide st_divide
end type
global w_wizard w_wizard

type variables
private:

n_base_wizard inv_drv
end variables

forward prototypes
public subroutine of_setback (readonly boolean ab_set)
public subroutine of_setforward (readonly boolean ab_set)
public subroutine of_setcancel (readonly boolean ab_set)
end prototypes

public subroutine of_setback (readonly boolean ab_set);cb_back.Enabled = ab_set
end subroutine

public subroutine of_setforward (readonly boolean ab_set);cb_next.Enabled = ab_set
end subroutine

public subroutine of_setcancel (readonly boolean ab_set);cb_cancel.Enabled = ab_set
end subroutine

on w_wizard.create
int iCurrent
call super::create
this.cb_help=create cb_help
this.cb_back=create cb_back
this.cb_next=create cb_next
this.cb_cancel=create cb_cancel
this.uo_gradient=create uo_gradient
this.st_divide=create st_divide
iCurrent=UpperBound(this.Control)
this.Control[iCurrent+1]=this.cb_help
this.Control[iCurrent+2]=this.cb_back
this.Control[iCurrent+3]=this.cb_next
this.Control[iCurrent+4]=this.cb_cancel
this.Control[iCurrent+5]=this.uo_gradient
this.Control[iCurrent+6]=this.st_divide
end on

on w_wizard.destroy
call super::destroy
destroy(this.cb_help)
destroy(this.cb_back)
destroy(this.cb_next)
destroy(this.cb_cancel)
destroy(this.uo_gradient)
destroy(this.st_divide)
end on

event closequery;call super::closequery;IF ISVALID(inv_drv) THEN RETURN inv_drv.EVENT ke_closing()
end event

event ke_postopen;call super::ke_postopen;IF ISVALID(inv_drv) THEN inv_drv.of_GoToPage(1)
end event

event open;call super::open;TRY
   inv_drv = Message.PowerObjectParm
   
   IF ISVALID(inv_drv.of_getparentwindow()) THEN
      of_Position(inv_drv.of_getparentwindow(), CWindowpos.CASCADE)
   ELSE
      of_Position(CWindowpos.CENTER)
   END IF
CATCH (runtimeerror err)
   MessageBox("Wizard", "Invalid Wizard Driver.", StopSign!)
   CLOSE(this)
END TRY
end event

type uo_sizegrip from w_response`uo_sizegrip within w_wizard
end type

type cb_help from u_cb within w_wizard
integer x = 55
integer y = 1312
integer taborder = 10
string text = "&Help"
boolean #anchorbottom = true
end type

event clicked;call super::clicked;IF ISVALID(inv_drv) THEN inv_drv.of_help()
end event

type cb_back from u_cb within w_wizard
integer x = 1170
integer y = 1312
integer taborder = 20
string text = "< &Back"
boolean #anchorright = true
boolean #anchorbottom = true
end type

event clicked;call super::clicked;IF ISVALID(inv_drv) THEN inv_drv.of_back()
end event

type cb_next from u_cb within w_wizard
integer x = 1518
integer y = 1312
integer taborder = 30
string text = "&Next >"
boolean #anchorright = true
boolean #anchorbottom = true
end type

event clicked;call super::clicked;IF ISVALID(inv_drv) THEN 
   IF this.Text = "&Finish" THEN
      inv_drv.of_finish()
   ELSE
      inv_drv.of_next()
   END IF
END IF
end event

type cb_cancel from u_cb within w_wizard
integer x = 1883
integer y = 1312
integer taborder = 40
string text = "Cancel"
boolean #anchorright = true
boolean #anchorbottom = true
end type

event clicked;call super::clicked;IF ISVALID(inv_drv) THEN inv_drv.of_cancel()
end event

type uo_gradient from u_st_gradient within w_wizard
integer x = 366
integer y = 1008
integer height = 152
long #sizeorder = 1
boolean #dock = true
long #docktype = 4
string #text = ""
long #startcolor = 12632256
long #endcolor = 16119285
boolean #verticalgradient = true
boolean #invertgradient = true
end type

on uo_gradient.destroy
call u_st_gradient::destroy
end on

type st_divide from u_st within w_wizard
integer x = 750
integer y = 960
integer height = 4
string text = ""
boolean border = true
boolean #usethemebordercolor = true
long #sizeorder = 2
boolean #dock = true
long #docktype = 4
string #dock_control_bottom = "uo_gradient"
end type