Q5/ws_objects/longjoe_report_uo.pbl.src/w_rpt_field.srw

$PBExportHeader$w_rpt_field.srw
$PBExportComments$字段中文名设置 -- 窗口
forward
global type w_rpt_field from w_rpt_1dw
end type
end forward

global type w_rpt_field from w_rpt_1dw
int Width=4224
end type
global w_rpt_field w_rpt_field

on w_rpt_field.create
call super::create
end on

on w_rpt_field.destroy
call super::destroy
if IsValid(MenuID) then destroy(MenuID)
end on

event open;call super::open;m_rpt_tool.m_tool.m_delete.visible=false
m_rpt_tool.m_tool.m_insert.visible=false
m_rpt_tool.m_tool.m_new.visible=false
m_rpt_tool.m_tool.m_delete.toolbaritemvisible=false
m_rpt_tool.m_tool.m_insert.toolbaritemvisible=false
m_rpt_tool.m_tool.m_new.toolbaritemvisible=false

dw1.setcolumn('pbcatcol_pbc_labl')

uo_1.of_bott()

end event

event ue_cond;call super::ue_cond;dw1.setcolumn('pbcatcol_pbc_labl')

end event

type dw1 from w_rpt_1dw`dw1 within w_rpt_field
int Y=220
int Width=3950
boolean BringToTop=true
string DataObject="dw_rpt_field"
end type

type uo_1 from w_rpt_1dw`uo_1 within w_rpt_field
boolean BringToTop=true
end type