m_main.srm

一个powerbuilder做的俄罗斯方块

$PBExportHeader$m_main.srm
forward
global type m_main from menu
end type
type m_g from menu within m_main
end type
type m_gn from menu within m_g
end type
type m_- from menu within m_g
end type
type m_gx from menu within m_g
end type
type m_g from menu within m_main
m_gn m_gn
m_- m_-
m_gx m_gx
end type
type m_s from menu within m_main
end type
type m_sl from menu within m_s
end type
type m_l1 from menu within m_sl
end type
type m_l2 from menu within m_sl
end type
type m_l3 from menu within m_sl
end type
type m_l4 from menu within m_sl
end type
type m_l5 from menu within m_sl
end type
type m_sl from menu within m_s
m_l1 m_l1
m_l2 m_l2
m_l3 m_l3
m_l4 m_l4
m_l5 m_l5
end type
type m_si from menu within m_s
end type
type m_i0 from menu within m_si
end type
type m_i1 from menu within m_si
end type
type m_i2 from menu within m_si
end type
type m_i3 from menu within m_si
end type
type m_i4 from menu within m_si
end type
type m_i5 from menu within m_si
end type
type m_i6 from menu within m_si
end type
type m_i7 from menu within m_si
end type
type m_i8 from menu within m_si
end type
type m_i9 from menu within m_si
end type
type m_si from menu within m_s
m_i0 m_i0
m_i1 m_i1
m_i2 m_i2
m_i3 m_i3
m_i4 m_i4
m_i5 m_i5
m_i6 m_i6
m_i7 m_i7
m_i8 m_i8
m_i9 m_i9
end type
type m_-0 from menu within m_s
end type
type m_sc from menu within m_s
end type
type m_s from menu within m_main
m_sl m_sl
m_si m_si
m_-0 m_-0
m_sc m_sc
end type
type m_h from menu within m_main
end type
type m_ha from menu within m_h
end type
type m_h from menu within m_main
m_ha m_ha
end type
global type m_main from menu
m_g m_g
m_s m_s
m_h m_h
end type
end forward

global type m_main from menu
m_g m_g
m_s m_s
m_h m_h
end type
global m_main m_main

on m_main.create
m_main=this
call super::create
this.m_g=create m_g
this.m_s=create m_s
this.m_h=create m_h
this.Item[UpperBound(this.Item)+1]=this.m_g
this.Item[UpperBound(this.Item)+1]=this.m_s
this.Item[UpperBound(this.Item)+1]=this.m_h
end on

on m_main.destroy
call super::destroy
destroy(this.m_g)
destroy(this.m_s)
destroy(this.m_h)
end on

type m_g from menu within m_main
m_gn m_gn
m_- m_-
m_gx m_gx
end type

on m_g.create
call super::create
this.text = "游戏(&G)"
this.m_gn=create m_gn
this.m_-=create m_-
this.m_gx=create m_gx
this.Item[UpperBound(this.Item)+1]=this.m_gn
this.Item[UpperBound(this.Item)+1]=this.m_-
this.Item[UpperBound(this.Item)+1]=this.m_gx
end on

on m_g.destroy
call super::destroy
destroy(this.m_gn)
destroy(this.m_-)
destroy(this.m_gx)
end on

type m_gn from menu within m_g
end type

on m_gn.create
call super::create
this.text = "新游戏(&N)~tF2"
this.shortcut = 113
this.toolbaritemname = "ExecuteSQL5!"
this.toolbaritemtext = "新游戏  F2"
this.toolbaritemorder = 1
end on

on m_gn.destroy
call super::destroy
end on

event clicked;Parentwindow.dynamic post function wf_new()
Return

end event

type m_- from menu within m_g
end type

on m_-.create
call super::create
this.text = "-"
end on

on m_-.destroy
call super::destroy
end on

type m_gx from menu within m_g
end type

on m_gx.create
call super::create
this.text = "退出游戏(&X)"
this.toolbaritemname = "Exit!"
this.toolbaritemtext = "退出游戏"
this.toolbaritemorder = 20
this.toolbaritemspace = 1
end on

on m_gx.destroy
call super::destroy
end on

event clicked;Close(Parentwindow)
Return

end event

type m_s from menu within m_main
m_sl m_sl
m_si m_si
m_-0 m_-0
m_sc m_sc
end type

on m_s.create
call super::create
this.text = "设置(&S)"
this.m_sl=create m_sl
this.m_si=create m_si
this.m_-0=create m_-0
this.m_sc=create m_sc
this.Item[UpperBound(this.Item)+1]=this.m_sl
this.Item[UpperBound(this.Item)+1]=this.m_si
this.Item[UpperBound(this.Item)+1]=this.m_-0
this.Item[UpperBound(this.Item)+1]=this.m_sc
end on

on m_s.destroy
call super::destroy
destroy(this.m_sl)
destroy(this.m_si)
destroy(this.m_-0)
destroy(this.m_sc)
end on

type m_sl from menu within m_s
m_l1 m_l1
m_l2 m_l2
m_l3 m_l3
m_l4 m_l4
m_l5 m_l5
end type

on m_sl.create
call super::create
this.text = "游戏等级(&L)"
this.m_l1=create m_l1
this.m_l2=create m_l2
this.m_l3=create m_l3
this.m_l4=create m_l4
this.m_l5=create m_l5
this.Item[UpperBound(this.Item)+1]=this.m_l1
this.Item[UpperBound(this.Item)+1]=this.m_l2
this.Item[UpperBound(this.Item)+1]=this.m_l3
this.Item[UpperBound(this.Item)+1]=this.m_l4
this.Item[UpperBound(this.Item)+1]=this.m_l5
end on

on m_sl.destroy
call super::destroy
destroy(this.m_l1)
destroy(this.m_l2)
destroy(this.m_l3)
destroy(this.m_l4)
destroy(this.m_l5)
end on

type m_l1 from menu within m_sl
end type

on m_l1.create
call super::create
this.text = "无悔卒(&1)"
end on

on m_l1.destroy
call super::destroy
end on

event clicked;SetProfileString(GetApplication().classname() + '.ini', "System","Dj", "1")
w_main.il_dj = 1
w_main.idec_timer = 1.0
m_l1.Checked = true
m_l2.Checked = false
m_l3.Checked = False
m_l4.Checked = false
m_l5.Checked = false
Return


end event

type m_l2 from menu within m_sl
end type

on m_l2.create
call super::create
this.text = "空心炮(&2)"
end on

on m_l2.destroy
call super::destroy
end on

event clicked;SetProfileString(GetApplication().classname() + '.ini', "System","Dj", "2")
w_main.il_dj = 2
w_main.idec_timer = 0.5
m_l1.Checked = False
m_l2.Checked = True
m_l3.Checked = False
m_l4.Checked = false
m_l5.Checked = false
Return


end event

type m_l3 from menu within m_sl
end type

on m_l3.create
call super::create
this.text = "识途马(&3)"
end on

on m_l3.destroy
call super::destroy
end on

event clicked;SetProfileString(GetApplication().classname() + '.ini', "System","Dj", "3")
w_main.il_dj = 3
w_main.idec_timer = 0.1
m_l1.Checked = False
m_l2.Checked = false
m_l3.Checked = true
m_l4.Checked = false
m_l5.Checked = false
Return


end event

type m_l4 from menu within m_sl
end type

on m_l4.create
call super::create
this.text = "横行车(&4)"
end on

on m_l4.destroy
call super::destroy
end on

event clicked;SetProfileString(GetApplication().classname() + '.ini', "System","Dj", "4")
w_main.il_dj = 4
w_main.idec_timer = 0.04
m_l1.Checked = False
m_l2.Checked = false
m_l3.Checked = false
m_l4.Checked = true
m_l5.Checked = false
Return


end event

type m_l5 from menu within m_sl
end type

on m_l5.create
call super::create
this.text = "独尊帅(&5)"
end on

on m_l5.destroy
call super::destroy
end on

event clicked;SetProfileString(GetApplication().classname() + '.ini', "System","Dj", "5")
w_main.il_dj = 5
w_main.idec_timer = 0.018
m_l1.Checked = False
m_l2.Checked = false
m_l3.Checked = false
m_l4.Checked = false
m_l5.Checked = true
Return


end event

type m_si from menu within m_s
m_i0 m_i0
m_i1 m_i1
m_i2 m_i2
m_i3 m_i3
m_i4 m_i4
m_i5 m_i5
m_i6 m_i6
m_i7 m_i7
m_i8 m_i8
m_i9 m_i9
end type

on m_si.create
call super::create
this.text = "初始行数(&I)"
this.m_i0=create m_i0
this.m_i1=create m_i1
this.m_i2=create m_i2
this.m_i3=create m_i3
this.m_i4=create m_i4
this.m_i5=create m_i5
this.m_i6=create m_i6
this.m_i7=create m_i7
this.m_i8=create m_i8
this.m_i9=create m_i9
this.Item[UpperBound(this.Item)+1]=this.m_i0
this.Item[UpperBound(this.Item)+1]=this.m_i1
this.Item[UpperBound(this.Item)+1]=this.m_i2
this.Item[UpperBound(this.Item)+1]=this.m_i3
this.Item[UpperBound(this.Item)+1]=this.m_i4
this.Item[UpperBound(this.Item)+1]=this.m_i5
this.Item[UpperBound(this.Item)+1]=this.m_i6
this.Item[UpperBound(this.Item)+1]=this.m_i7
this.Item[UpperBound(this.Item)+1]=this.m_i8
this.Item[UpperBound(this.Item)+1]=this.m_i9
end on

on m_si.destroy
call super::destroy
destroy(this.m_i0)
destroy(this.m_i1)
destroy(this.m_i2)
destroy(this.m_i3)
destroy(this.m_i4)
destroy(this.m_i5)
destroy(this.m_i6)
destroy(this.m_i7)
destroy(this.m_i8)
destroy(this.m_i9)
end on

type m_i0 from menu within m_si
end type

on m_i0.create
call super::create
this.text = "无(&0)"
end on

on m_i0.destroy
call super::destroy
end on

event clicked;SetProfileString(GetApplication().classname() + '.ini', "System","Line", "0")
w_main.il_Line = 0
m_i0.Checked = True
m_i1.Checked = False
m_i2.Checked = False
m_i3.Checked = False
m_i4.Checked = False
m_i5.Checked = False
m_i6.Checked = False
m_i7.Checked = False
m_i8.Checked = False
m_i9.Checked = False
Return

end event

type m_i1 from menu within m_si
end type

on m_i1.create
call super::create
this.text = "一行(&1)"
end on

on m_i1.destroy
call super::destroy
end on

event clicked;SetProfileString(GetApplication().classname() + '.ini', "System","Line", "1")
w_main.il_Line = 1
m_i0.Checked = False
m_i1.Checked = true
m_i2.Checked = False
m_i3.Checked = False
m_i4.Checked = False
m_i5.Checked = False
m_i6.Checked = False
m_i7.Checked = False
m_i8.Checked = False
m_i9.Checked = False
Return

end event

type m_i2 from menu within m_si
end type

on m_i2.create
call super::create
this.text = "二行(&2)"
end on

on m_i2.destroy
call super::destroy
end on

event clicked;SetProfileString(GetApplication().classname() + '.ini', "System","Line", "2")
w_main.il_Line = 2
m_i0.Checked = False
m_i1.Checked = False
m_i2.Checked = true
m_i3.Checked = False
m_i4.Checked = False
m_i5.Checked = False
m_i6.Checked = False
m_i7.Checked = False
m_i8.Checked = False
m_i9.Checked = False
Return

end event

type m_i3 from menu within m_si
end type

on m_i3.create
call super::create
this.text = "三行(&3)"
end on

on m_i3.destroy
call super::destroy
end on

event clicked;SetProfileString(GetApplication().classname() + '.ini', "System","Line", "3")
w_main.il_Line = 3
m_i0.Checked = False
m_i1.Checked = False
m_i2.Checked = False
m_i3.Checked = true
m_i4.Checked = False
m_i5.Checked = False
m_i6.Checked = False
m_i7.Checked = False
m_i8.Checked = False
m_i9.Checked = False
Return

end event

type m_i4 from menu within m_si
end type

on m_i4.create
call super::create
this.text = "四行(&4)"
end on

on m_i4.destroy
call super::destroy
end on

event clicked;SetProfileString(GetApplication().classname() + '.ini', "System","Line", "4")
w_main.il_Line = 4
m_i0.Checked = False
m_i1.Checked = False
m_i2.Checked = False
m_i3.Checked = False
m_i4.Checked = true
m_i5.Checked = False
m_i6.Checked = False
m_i7.Checked = False
m_i8.Checked = False
m_i9.Checked = False
Return

end event

type m_i5 from menu within m_si
end type

on m_i5.create
call super::create
this.text = "五行(&5)"
end on

on m_i5.destroy
call super::destroy
end on

event clicked;SetProfileString(GetApplication().classname() + '.ini', "System","Line", "5")
w_main.il_Line = 5
m_i0.Checked = False
m_i1.Checked = False
m_i2.Checked = False
m_i3.Checked = False
m_i4.Checked = False
m_i5.Checked = true
m_i6.Checked = False
m_i7.Checked = False
m_i8.Checked = False
m_i9.Checked = False
Return

end event

type m_i6 from menu within m_si
end type

on m_i6.create
call super::create
this.text = "六行(&6)"
end on

on m_i6.destroy
call super::destroy
end on

event clicked;SetProfileString(GetApplication().classname() + '.ini', "System","Line", "6")
w_main.il_Line = 6
m_i0.Checked = False
m_i1.Checked = False
m_i2.Checked = False
m_i3.Checked = False
m_i4.Checked = False
m_i5.Checked = false
m_i6.Checked = true
m_i7.Checked = False
m_i8.Checked = False
m_i9.Checked = False
Return

end event

type m_i7 from menu within m_si
end type

on m_i7.create
call super::create
this.text = "七行(&7)"
end on

on m_i7.destroy
call super::destroy
end on

event clicked;SetProfileString(GetApplication().classname() + '.ini', "System","Line", "7")
w_main.il_Line = 7
m_i0.Checked = False
m_i1.Checked = False
m_i2.Checked = False
m_i3.Checked = False
m_i4.Checked = False
m_i5.Checked = false
m_i6.Checked = false
m_i7.Checked = true
m_i8.Checked = False
m_i9.Checked = False
Return

end event

type m_i8 from menu within m_si
end type

on m_i8.create
call super::create
this.text = "八行(&8)"
end on

on m_i8.destroy
call super::destroy
end on

event clicked;SetProfileString(GetApplication().classname() + '.ini', "System","Line", "8")
w_main.il_Line = 8
m_i0.Checked = False
m_i1.Checked = False
m_i2.Checked = False
m_i3.Checked = False
m_i4.Checked = False
m_i5.Checked = false
m_i6.Checked = false
m_i7.Checked = false
m_i8.Checked = true
m_i9.Checked = False
Return

end event

type m_i9 from menu within m_si
end type

on m_i9.create
call super::create
this.text = "九行(&9)"
end on

on m_i9.destroy
call super::destroy
end on

event clicked;SetProfileString(GetApplication().classname() + '.ini', "System","Line", "9")
w_main.il_Line = 9
m_i0.Checked = False
m_i1.Checked = False
m_i2.Checked = False
m_i3.Checked = False
m_i4.Checked = False
m_i5.Checked = false
m_i6.Checked = false
m_i7.Checked = false
m_i8.Checked = false
m_i9.Checked = true
Return

end event

type m_-0 from menu within m_s
end type

on m_-0.create
call super::create
this.text = "-"
end on

on m_-0.destroy
call super::destroy
end on

type m_sc from menu within m_s
end type

on m_sc.create
call super::create
this.text = "自定义方块(&C)"
this.toolbaritemname = "ArrangeIcons!"
this.toolbaritemtext = "自定义方块"
this.toolbaritemorder = 10
this.toolbaritemspace = 1
end on

on m_sc.destroy
call super::destroy
end on

event clicked;Parentwindow.dynamic post function wf_edit()
Return

end event
type m_h from menu within m_main
m_ha m_ha
end type

on m_h.create
call super::create
this.text = "帮助(&H)"
this.m_ha=create m_ha
this.Item[UpperBound(this.Item)+1]=this.m_ha
end on

on m_h.destroy
call super::destroy
destroy(this.m_ha)
end on

type m_ha from menu within m_h
end type

on m_ha.create
call super::create
this.text = "关于(&A)"
end on

on m_ha.destroy
call super::destroy
end on