Q5/ws_objects/Ew_machining.pbl.src/m_dwchild_rbotton_wfjg.srm

$PBExportHeader$m_dwchild_rbotton_wfjg.srm
forward
global type m_dwchild_rbotton_wfjg from menu
end type
type m_0 from menu within m_dwchild_rbotton_wfjg
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_0 from menu within m_dwchild_rbotton_wfjg
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
end type
global type m_dwchild_rbotton_wfjg from menu
m_0 m_0
end type
end forward

global type m_dwchild_rbotton_wfjg from menu
m_0 m_0
end type
global m_dwchild_rbotton_wfjg m_dwchild_rbotton_wfjg

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

on m_dwchild_rbotton_wfjg.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_wfjg
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
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.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
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)
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