Q5/ws_objects/Ew_publ903.pbl.src/w_publ_base.srw

$PBExportHeader$w_publ_base.srw
forward
global type w_publ_base from window
end type
type cb_func from uo_imflatbutton within w_publ_base
end type
type cb_exit from uo_imflatbutton within w_publ_base
end type
end forward

global type w_publ_base from window
integer x = 713
integer y = 388
integer width = 2007
integer height = 1144
boolean titlebar = true
string title = "BASE"
boolean controlmenu = true
boolean minbox = true
windowtype windowtype = popup!
long backcolor = 134217739
event ue_before_open ( )
event ue_retr ( )
event ue_filter ( )
event ue_sentdataout ( )
event ue_sort ( )
cb_func cb_func
cb_exit cb_exit
end type
global w_publ_base w_publ_base

type prototypes
subroutine keybd_event(uint bVk,uint bScan,long dwFlags,long dwExtraInfo ) library 'user32.dll'
end prototypes

type variables
Boolean dw_edit_mode = FALSE
Boolean if_modify_mode = FALSE //修改模式
Boolean if_ue_retr = FALSE
Boolean if_ue_filter = FALSE
Boolean if_ue_sort = FALSE
Boolean if_ue_sentdataout = FALSE

Long printnum




end variables

forward prototypes
public function integer wf_movetocenter ()
end prototypes

public function integer wf_movetocenter ();//wf_movetocenter
environment   exerun_env 
GetEnvironment(exerun_env ) 
this.Move ( (PixelsToUnits(exerun_env.screenwidth, XPixelsToUnits!) - this.Width)/2,&
	(PixelsToUnits(exerun_env.screenheight, XPixelsToUnits!) - this.Height - 350 )/2) //
//this.Move ( (exerun_env.screenwidth*4.62 - this.Width)/2, (exerun_env.screenheight*3.87 - this.Height)/2)
return 0
end function

event open;this.triggerevent('ue_before_open')
wf_movetocenter()


//====================================================================
//菜单打开
//if_ue_retr=false
//if_ue_filter=false
//if_ue_sort=false
//if_ue_sentdataout=false
//====================================================================


end event

on w_publ_base.create
this.cb_func=create cb_func
this.cb_exit=create cb_exit
this.Control[]={this.cb_func,&
this.cb_exit}
end on

on w_publ_base.destroy
destroy(this.cb_func)
destroy(this.cb_exit)
end on

type cb_func from uo_imflatbutton within w_publ_base
event ue_retr ( )
event ue_filter ( )
event ue_sort ( )
event ue_sentdataout ( )
integer width = 165
integer height = 152
integer taborder = 20
string text = "查询"
string normalpicname = "setting.bmp"
integer picsize = 16
toolbaralignment pic_align = alignattop!
boolean border = false
end type

event ue_retr();parent.triggerevent('ue_retr')
end event

event ue_filter();parent.triggerevent('ue_filter')
end event

event ue_sort();parent.triggerevent('ue_sort')
end event

event ue_sentdataout();parent.triggerevent('ue_sentdataout')
end event

event clicked;call super::clicked;m_Dfc_Control_PopupMenu dmPopupMenu
string menustr

if if_ue_retr then
	menustr="Text=高级查询~tEvent=ue_retr"
end if

if if_ue_filter then
	if len(trim(menustr))=0 then
		menustr="Text=高级筛选~tEvent=ue_filter"
	else
		menustr=menustr + "|" + "Text=高级筛选~tEvent=ue_filter"
	end if
end if

if if_ue_sort then
	if len(trim(menustr))=0 then
		menustr="Text=高级排序~tEvent=ue_sort"
	else
		menustr=menustr + "|" + "Text=高级排序~tEvent=ue_sort"
	end if
end if

if menustr<>"" and if_ue_sentdataout then menustr=menustr + "|" + "Text=-"

if if_ue_sentdataout then
	if len(trim(menustr))=0 then
		menustr="Text=数据发送~tEvent=ue_sentdataout"
	else
		menustr=menustr + "|" + "Text=数据发送~tEvent=ue_sentdataout"
	end if
end if
	
if len(trim(menustr))<>0 then
	dmPopupMenu = Create m_Dfc_Control_PopupMenu
	dmPopupMenu.mf_BuildMenu(This, menustr)
	dmPopupMenu.mf_PopMenu()
	Destroy dmPopupMenu
end if
end event

type cb_exit from uo_imflatbutton within w_publ_base
integer x = 315
integer width = 311
integer height = 96
integer taborder = 10
string text = "退出"
boolean cancel = true
string normalpicname = "exit.bmp"
end type

event clicked;call super::clicked;close(parent)
end event