w_edit.srw

一个powerbuilder做的俄罗斯方块

integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
string text = "保存"
end type

event clicked;wf_save()
end event

type cb_reset from commandbutton within w_edit
integer x = 1490
integer y = 836
integer width = 302
integer height = 92
integer taborder = 70
integer textsize = -10
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
string text = "重来"
end type

event clicked;dw_5.Reset()
dw_5.insertRow(0)
dw_5.insertrow(0)
dw_5.insertrow(0)
dw_5.insertRow(0)

dw_6.Reset()
dw_7.reset()
dw_8.reset()

dw_5.Rowscopy(1,4,primary!,dw_6,1,primary!)
dw_5.Rowscopy(1,4,primary!,dw_7,1,primary!)
dw_5.Rowscopy(1,4,primary!,dw_8,1,primary!)

Parent.setRedraw(True)

Return


end event

type st_2 from statictext within w_edit
integer x = 846
integer y = 828
integer width = 457
integer height = 52
integer textsize = -10
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
long backcolor = 67108864
string text = "右键取消方块点"
boolean focusrectangle = false
end type

type st_1 from statictext within w_edit
integer x = 846
integer y = 760
integer width = 457
integer height = 52
integer textsize = -10
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
long backcolor = 67108864
string text = "左键设置方块点"
boolean focusrectangle = false
end type

type cb_4 from commandbutton within w_edit
integer x = 1632
integer y = 296
integer width = 302
integer height = 92
integer taborder = 30
integer textsize = -10
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
string text = "删除"
end type

event clicked;Long ll_r
ll_r = w_main.dw_fklx.getRow()
If ll_r > 0 Then
	If Messagebox(parent.title,'请确认是否要删除当前方块阵列？',Question!,yesno!) = 2 Then
		Return
	End If
	w_main.dw_fklx.deleteRow(ll_r)
	w_main.dw_fklx.Saveas('fklx.dbf',dBASE3!,true)
	wf_c()
	boolean lb_b
	Long	ll_id
	ll_r = w_main.dw_fklx.getrow()
	If ll_r <= 0 Then
		Return
	End If
	ll_id = w_main.dw_fklx.object.id[ll_r]
	lb_b = wf_getfk(ll_id,1)
	If lb_b Then
		w_main.wf_writefk(dw_1,istr_fk,1,1,false)
	End If
	lb_b = wf_getfk(ll_id,2)
	If lb_b Then
		w_main.wf_writefk(dw_2,istr_fk,1,1,false)
	End If
	lb_b = wf_getfk(ll_id,3)
	If lb_b Then
		w_main.wf_writefk(dw_3,istr_fk,1,1,false)
	End If
	lb_b = wf_getfk(ll_id,4)
	If lb_b Then
		w_main.wf_writefk(dw_4,istr_fk,1,1,false)
	End If
	dw_1.SetRedraw(True)
	dw_2.SetRedraw(True)
	dw_3.SetRedraw(True)
	dw_4.SetRedraw(True)
End If
Return


end event
type cb_3 from commandbutton within w_edit
integer x = 1490
integer y = 580
integer width = 302
integer height = 92
integer taborder = 50
integer textsize = -10
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
string text = "生成"
end type

event clicked;wf_xz(dw_5)
wf_xun(dw_5,dw_6)
wf_xz(dw_6)
wf_xun(dw_6,dw_7)
wf_xz(dw_7)
wf_xun(dw_7,dw_8)
wf_xz(dw_8)
Return


end event

type rb_8 from radiobutton within w_edit
integer x = 955
integer y = 600
integer width = 274
integer height = 64
integer textsize = -10
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
long backcolor = 8421504
string text = "颜色八"
end type

event clicked;il_color = 8
wf_change_color()
Return

end event

type rb_7 from radiobutton within w_edit
integer x = 663
integer y = 600
integer width = 274
integer height = 64
integer textsize = -10
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
long backcolor = 8421504
string text = "颜色七"
end type

event clicked;il_color = 7
wf_change_color()
Return

end event

type rb_6 from radiobutton within w_edit
integer x = 370
integer y = 600
integer width = 274
integer height = 64
integer textsize = -10
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
long backcolor = 8421504
string text = "颜色六"
end type

event clicked;il_color = 6
wf_change_color()
Return

end event

type rb_5 from radiobutton within w_edit
integer x = 78
integer y = 600
integer width = 274
integer height = 64
integer textsize = -10
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
long backcolor = 8421504
string text = "颜色五"
end type

event clicked;il_color = 5
wf_change_color()
Return

end event

type rb_4 from radiobutton within w_edit
integer x = 955
integer y = 520
integer width = 274
integer height = 64
integer textsize = -10
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
long backcolor = 8421504
string text = "颜色四"
end type

event clicked;il_color = 4
wf_change_color()
Return

end event

type rb_3 from radiobutton within w_edit
integer x = 663
integer y = 520
integer width = 274
integer height = 64
integer textsize = -10
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
long backcolor = 8421504
string text = "颜色三"
end type

event clicked;il_color = 3
wf_change_color()
Return

end event

type rb_2 from radiobutton within w_edit
integer x = 370
integer y = 520
integer width = 274
integer height = 64
integer textsize = -10
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
long backcolor = 8421504
string text = "颜色二"
end type

event clicked;il_color = 2
wf_change_color()
Return

end event

type rb_1 from radiobutton within w_edit
integer x = 78
integer y = 520
integer width = 274
integer height = 64
integer textsize = -10
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
long backcolor = 8421504
string text = "颜色一"
boolean checked = true
end type

event clicked;il_color = 1
wf_change_color()
Return

end event

type cb_2 from commandbutton within w_edit
integer x = 1632
integer y = 188
integer width = 302
integer height = 92
integer taborder = 20
integer textsize = -10
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
string text = "下一种"
end type

event clicked;Long	ll_l,ll_id
ll_l = w_main.dw_fklx.GetRow()
If ll_l = 0 Then
	return
End If
If ll_l = w_main.dw_fklx.rowCount() Then
	Return
End If
							
ll_l ++
ll_id = w_main.dw_fklx.object.id[ll_l]

wf_c()
boolean lb_b
lb_b = wf_getfk(ll_id,1)
If lb_b Then
	w_main.wf_writefk(dw_1,istr_fk,1,1,false)
End If
lb_b = wf_getfk(ll_id,2)
If lb_b Then
	w_main.wf_writefk(dw_2,istr_fk,1,1,false)
End If
lb_b = wf_getfk(ll_id,3)
If lb_b Then
	w_main.wf_writefk(dw_3,istr_fk,1,1,false)
End If
lb_b = wf_getfk(ll_id,4)
If lb_b Then
	w_main.wf_writefk(dw_4,istr_fk,1,1,false)
End If
dw_1.SetRedraw(True)
dw_2.SetRedraw(True)
dw_3.SetRedraw(True)
dw_4.SetRedraw(True)
w_main.dw_fklx.ScrolltoRow(ll_l)
w_main.dw_fklx.SetRow(ll_l)
Return


end event

type cb_1 from commandbutton within w_edit
integer x = 1632
integer y = 80
integer width = 302
integer height = 92
integer taborder = 10
integer textsize = -10
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
string text = "上一种"
end type

event clicked;Long	ll_l,ll_id
ll_l = w_main.dw_fklx.GetRow()
If ll_l <= 1 Then
	Return
End If
ll_l --
ll_id = w_main.dw_fklx.object.id[ll_l]

wf_c()
boolean lb_b
lb_b = wf_getfk(ll_id,1)
If lb_b Then
	w_main.wf_writefk(dw_1,istr_fk,1,1,false)
End If
lb_b = wf_getfk(ll_id,2)
If lb_b Then
	w_main.wf_writefk(dw_2,istr_fk,1,1,false)
End If
lb_b = wf_getfk(ll_id,3)
If lb_b Then
	w_main.wf_writefk(dw_3,istr_fk,1,1,false)
End If
lb_b = wf_getfk(ll_id,4)
If lb_b Then
	w_main.wf_writefk(dw_4,istr_fk,1,1,false)
End If
dw_1.SetRedraw(True)
dw_2.SetRedraw(True)
dw_3.SetRedraw(True)
dw_4.SetRedraw(True)
w_main.dw_fklx.ScrolltoRow(ll_l)
w_main.dw_fklx.SetRow(ll_l)
Return


end event

type dw_8 from datawindow within w_edit
integer x = 841
integer y = 1116
integer width = 375
integer height = 312
string title = "none"
string dataobject = "d_els"
borderstyle borderstyle = stylelowered!
end type

type dw_7 from datawindow within w_edit
integer x = 457
integer y = 1116
integer width = 375
integer height = 312
string title = "none"
string dataobject = "d_els"
borderstyle borderstyle = stylelowered!
end type

type dw_6 from datawindow within w_edit
integer x = 73
integer y = 1116
integer width = 375
integer height = 312
boolean enabled = false
string title = "none"
string dataobject = "d_els"
borderstyle borderstyle = stylelowered!
end type

type dw_5 from datawindow within w_edit
integer x = 457
integer y = 736
integer width = 375
integer height = 312
integer taborder = 40
string title = "none"
string dataobject = "d_els"
borderstyle borderstyle = stylelowered!
end type

event clicked;If row > 0 Then
	If dwo.name = 'datawindow' Then
		Return
	End If
	This.setitem(row,trim(dwo.name),ila_c[il_color])
	This.setredraw(True)
	dw_6.Reset()
	dw_6.insertRow(0)
	dw_6.insertrow(0)
	dw_6.insertrow(0)
	dw_6.insertRow(0)
	
	dw_7.Reset()
	dw_8.reset()
	
	dw_6.Rowscopy(1,4,primary!,dw_7,1,primary!)
	dw_6.Rowscopy(1,4,primary!,dw_8,1,primary!)
End If
Return

end event

event rbuttondown;If row > 0 Then
	If dwo.name = 'datawindow' Then
		Return
	End If
	long l
	setNull(l)
	This.setitem(row,trim(dwo.name),l)
	This.setredraw(True)
	dw_6.Reset()
	dw_6.insertRow(0)
	dw_6.insertrow(0)
	dw_6.insertrow(0)
	dw_6.insertRow(0)
	
	dw_7.Reset()
	dw_8.reset()
	
	dw_6.Rowscopy(1,4,primary!,dw_7,1,primary!)
	dw_6.Rowscopy(1,4,primary!,dw_8,1,primary!)
End If
Return

end event

type dw_4 from datawindow within w_edit
integer x = 1225
integer y = 80
integer width = 375
integer height = 312
string title = "none"
string dataobject = "d_els"
borderstyle borderstyle = stylelowered!
end type

type dw_3 from datawindow within w_edit
integer x = 841
integer y = 80
integer width = 375
integer height = 312
string title = "none"
string dataobject = "d_els"
borderstyle borderstyle = stylelowered!
end type

type dw_2 from datawindow within w_edit
integer x = 457
integer y = 80
integer width = 375
integer height = 312
string title = "none"
string dataobject = "d_els"
borderstyle borderstyle = stylelowered!
end type

type dw_1 from datawindow within w_edit
integer x = 73
integer y = 80
integer width = 375
integer height = 312
string title = "none"
string dataobject = "d_els"
borderstyle borderstyle = stylelowered!
end type

type gb_1 from groupbox within w_edit
integer x = 27
integer y = 16
integer width = 1957
integer height = 408
integer textsize = -10
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
long backcolor = 67108864
string text = "已存在的方块"
end type

type gb_2 from groupbox within w_edit
integer x = 27
integer y = 440
integer width = 1957
integer height = 1020
integer textsize = -10
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
long backcolor = 67108864
string text = "增加方块"
end type