PBMiner

$PBExportHeader$u_others_dwmaker.sru
forward
global type u_others_dwmaker from u_explorer
end type
type cb_1 from u_cb within u_others_dwmaker
end type
type dw_2 from u_dw_form within u_others_dwmaker
end type
type dw_1 from u_dwlv within u_others_dwmaker
end type
type uo_2 from u_borderpanel within u_others_dwmaker
end type
type uo_1 from u_borderpanel within u_others_dwmaker
end type
end forward

global type u_others_dwmaker from u_explorer
integer width = 2167
integer height = 1448
cb_1 cb_1
dw_2 dw_2
dw_1 dw_1
uo_2 uo_2
uo_1 uo_1
end type
global u_others_dwmaker u_others_dwmaker

forward prototypes
public subroutine of_rowcopy (readonly long al_row)
end prototypes

public subroutine of_rowcopy (readonly long al_row);dw_2.SetRedraw(FALSE)
dw_2.Reset()
dw_1.RowsCopy(al_row, al_row, Primary!, dw_2, 1, Primary!)
dw_2.SetRedraw(TRUE)
end subroutine

on u_others_dwmaker.create
int iCurrent
call super::create
this.cb_1=create cb_1
this.dw_2=create dw_2
this.dw_1=create dw_1
this.uo_2=create uo_2
this.uo_1=create uo_1
iCurrent=UpperBound(this.Control)
this.Control[iCurrent+1]=this.cb_1
this.Control[iCurrent+2]=this.dw_2
this.Control[iCurrent+3]=this.dw_1
this.Control[iCurrent+4]=this.uo_2
this.Control[iCurrent+5]=this.uo_1
end on

on u_others_dwmaker.destroy
call super::destroy
destroy(this.cb_1)
destroy(this.dw_2)
destroy(this.dw_1)
destroy(this.uo_2)
destroy(this.uo_1)
end on

type cb_1 from u_cb within u_others_dwmaker
integer x = 18
integer y = 16
integer width = 517
integer taborder = 40
string text = "Make DW Form"
end type

event clicked;call super::clicked;n_svc_mgr lnv_svc
n_svc_dwmaker lnv_dw
string ls_syntax, ls_err

lnv_svc.of_LoadSvc(lnv_dw, "n_svc_dwmaker")
ls_syntax = lnv_dw.of_makedwform(lnv_svc, dw_1)
dw_2.Create(ls_syntax, ls_err)
dw_2.of_initallservices()
dw_2.of_autosizecolumns(TRUE, TRUE)
//dw_2.InsertRow(0)
of_rowcopy(1)
this.Enabled = FALSE
end event

type dw_2 from u_dw_form within u_others_dwmaker
integer x = 677
integer y = 800
integer taborder = 40
boolean vscrollbar = true
boolean border = false
long #sizeorder = -1
boolean #editmode = true
end type

type dw_1 from u_dwlv within u_others_dwmaker
integer x = 567
integer y = 48
integer taborder = 30
string dataobject = "d_employees"
boolean border = false
borderstyle borderstyle = stylebox!
long #sizeorder = -1
boolean #editmode = true
integer #selectionmode = 1
end type

event rowfocuschanged;call super::rowfocuschanged;IF NOT cb_1.Enabled THEN
   IF currentrow > 0 THEN of_rowcopy(currentrow)
END IF
end event

type uo_2 from u_borderpanel within u_others_dwmaker
integer x = 549
integer y = 728
integer width = 1591
integer height = 688
integer taborder = 30
boolean #anchortop = true
boolean #anchorleft = true
boolean #anchorright = true
boolean #anchorbottom = true
string #childobject = "dw_2"
end type

on uo_2.destroy
call u_borderpanel::destroy
end on

type uo_1 from u_borderpanel within u_others_dwmaker
integer x = 549
integer y = 16
integer width = 1591
integer height = 688
integer taborder = 20
boolean #anchortop = true
boolean #anchorleft = true
boolean #anchorright = true
string #childobject = "dw_1"
end type

on uo_1.destroy
call u_borderpanel::destroy
end on