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

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

global type w_rpt_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 ( )
event ue_help ( )
cb_exit cb_exit
end type
global w_rpt_publ_base w_rpt_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
Boolean if_ue_showall = FALSE

Long printnum

end variables

forward prototypes
public function integer wf_movetocenter ()
end prototypes

event ue_help();int i
//messagebox('',this.title+".htm")
//i=htmlhelpA(handle(this), "企精灵.chm", 0, "help\"+this.title+".htm") 
end event

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_rpt_publ_base.create
this.cb_exit=create cb_exit
this.Control[]={this.cb_exit}
end on

on w_rpt_publ_base.destroy
destroy(this.cb_exit)
end on

type cb_exit from uo_imflatbutton within w_rpt_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