Q5/ws_objects/Ew_publ903.pbl.src/m_dwchild_rbotton.srm

$PBExportHeader$m_dwchild_rbotton.srm
forward
global type m_dwchild_rbotton from menu
end type
type m_0 from menu within m_dwchild_rbotton
end type
type m_插行 from menu within m_0
end type
type m_增行 from menu within m_0
end type
type m_删行 from menu within m_0
end type
type m_-0 from menu within m_0
end type
type m_复制行 from menu within m_0
end type
type m_1 from menu within m_0
end type
type m_剪切ctrlx from menu within m_0
end type
type m_复制ctrlc from menu within m_0
end type
type m_粘贴ctrlv from menu within m_0
end type
type m_- from menu within m_0
end type
type m_上移 from menu within m_0
end type
type m_下移 from menu within m_0
end type
type m_0 from menu within m_dwchild_rbotton
m_插行 m_插行
m_增行 m_增行
m_删行 m_删行
m_-0 m_-0
m_复制行 m_复制行
m_1 m_1
m_剪切ctrlx m_剪切ctrlx
m_复制ctrlc m_复制ctrlc
m_粘贴ctrlv m_粘贴ctrlv
m_- m_-
m_上移 m_上移
m_下移 m_下移
end type
global type m_dwchild_rbotton from menu
m_0 m_0
end type
end forward

global type m_dwchild_rbotton from menu
m_0 m_0
end type
global m_dwchild_rbotton m_dwchild_rbotton

on m_dwchild_rbotton.create
m_dwchild_rbotton=this
call super::create
this.text = "m_mstpay"
this.m_0=create m_0
this.Item[UpperBound(this.Item)+1]=this.m_0
end on

on m_dwchild_rbotton.destroy
call super::destroy
destroy(this.m_0)
end on

event clicked;//w_mustpay.triggerevent('ue_add')
end event

type m_0 from menu within m_dwchild_rbotton
m_插行 m_插行
m_增行 m_增行
m_删行 m_删行
m_-0 m_-0
m_复制行 m_复制行
m_1 m_1
m_剪切ctrlx m_剪切ctrlx
m_复制ctrlc m_复制ctrlc
m_粘贴ctrlv m_粘贴ctrlv
m_- m_-
m_上移 m_上移
m_下移 m_下移
end type

on m_0.create
call super::create
this.m_插行=create m_插行
this.m_增行=create m_增行
this.m_删行=create m_删行
this.m_-0=create m_-0
this.m_复制行=create m_复制行
this.m_1=create m_1
this.m_剪切ctrlx=create m_剪切ctrlx
this.m_复制ctrlc=create m_复制ctrlc
this.m_粘贴ctrlv=create m_粘贴ctrlv
this.m_-=create m_-
this.m_上移=create m_上移
this.m_下移=create m_下移
this.Item[UpperBound(this.Item)+1]=this.m_插行
this.Item[UpperBound(this.Item)+1]=this.m_增行
this.Item[UpperBound(this.Item)+1]=this.m_删行
this.Item[UpperBound(this.Item)+1]=this.m_-0
this.Item[UpperBound(this.Item)+1]=this.m_复制行
this.Item[UpperBound(this.Item)+1]=this.m_1
this.Item[UpperBound(this.Item)+1]=this.m_剪切ctrlx
this.Item[UpperBound(this.Item)+1]=this.m_复制ctrlc
this.Item[UpperBound(this.Item)+1]=this.m_粘贴ctrlv
this.Item[UpperBound(this.Item)+1]=this.m_-
this.Item[UpperBound(this.Item)+1]=this.m_上移
this.Item[UpperBound(this.Item)+1]=this.m_下移
end on

on m_0.destroy
call super::destroy
destroy(this.m_插行)
destroy(this.m_增行)
destroy(this.m_删行)
destroy(this.m_-0)
destroy(this.m_复制行)
destroy(this.m_1)
destroy(this.m_剪切ctrlx)
destroy(this.m_复制ctrlc)
destroy(this.m_粘贴ctrlv)
destroy(this.m_-)
destroy(this.m_上移)
destroy(this.m_下移)
end on

type m_插行 from menu within m_0
end type

on m_插行.create
call super::create
this.text = "插行 F4"
end on

on m_插行.destroy
call super::destroy
end on

event clicked;parentwindow.event dynamic ue_insertmx()
end event

type m_增行 from menu within m_0
end type

event clicked;parentwindow.event dynamic ue_addmx()
end event

on m_增行.create
call super::create
this.text = "增行 F5"
end on

on m_增行.destroy
call super::destroy
end on

type m_删行 from menu within m_0
end type

event clicked;parentwindow.event dynamic ue_deletemx()
end event

on m_删行.create
call super::create
this.text = "删行 F6"
end on

on m_删行.destroy
call super::destroy
end on

type m_-0 from menu within m_0
end type

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

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

type m_复制行 from menu within m_0
end type

event clicked;parentwindow.event dynamic ue_copyrow()
end event

on m_复制行.create
call super::create
this.text = "复制行 Ctrl + A"
end on

on m_复制行.destroy
call super::destroy
end on

type m_1 from menu within m_0
end type

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

on m_1.destroy
call super::destroy
end on

type m_剪切ctrlx from menu within m_0
end type

on m_剪切ctrlx.create
call super::create
this.text = "剪切 Ctrl + X"
end on

on m_剪切ctrlx.destroy
call super::destroy
end on

event clicked;parentwindow.event dynamic ue_cutcol()
end event

type m_复制ctrlc from menu within m_0
end type

on m_复制ctrlc.create
call super::create
this.text = "复制 Ctrl + C"
end on

on m_复制ctrlc.destroy
call super::destroy
end on

event clicked;parentwindow.event dynamic ue_copycol()
end event

type m_粘贴ctrlv from menu within m_0
end type

on m_粘贴ctrlv.create
call super::create
this.text = "粘贴 Ctrl + V"
end on

on m_粘贴ctrlv.destroy
call super::destroy
end on

event clicked;parentwindow.event dynamic ue_pastecol()
end event

type m_- from menu within m_0
end type

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

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

type m_上移 from menu within m_0
end type

event clicked;parentwindow.event dynamic ue_rowup()
end event

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

on m_上移.destroy
call super::destroy
end on

type m_下移 from menu within m_0
end type

event clicked;parentwindow.event dynamic ue_rowdown()
end event

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

on m_下移.destroy
call super::destroy
end on