w_main.srw

来自「pb所需编程技巧和事例」· SRW 代码 · 共 64 行

$PBExportHeader$w_main.srw
forward
global type w_main from window
end type
type st_1 from statictext within w_main
end type
end forward

global type w_main from window
integer width = 2533
integer height = 1408
boolean titlebar = true
string title = "图书借阅管理系统"
string menuname = "m_main"
boolean controlmenu = true
boolean minbox = true
boolean maxbox = true
boolean resizable = true
long backcolor = 67108864
string icon = "AppIcon!"
boolean center = true
st_1 st_1
end type
global w_main w_main

on w_main.create
if this.MenuName = "m_main" then this.MenuID = create m_main
this.st_1=create st_1
this.Control[]={this.st_1}
end on

on w_main.destroy
if IsValid(MenuID) then destroy(MenuID)
destroy(this.st_1)
end on

event open;if LoginOk<>"ok" then
	open(w_login)
	this.visible=false
end if

end event
type st_1 from statictext within w_main
integer x = 494
integer y = 496
integer width = 1449
integer height = 184
integer textsize = -28
integer weight = 400
fontcharset fontcharset = ansi!
fontpitch fontpitch = variable!
fontfamily fontfamily = swiss!
string facename = "Arial"
long textcolor = 255
long backcolor = 12632256
string text = "图书借阅管理系统"
alignment alignment = center!
long bordercolor = 255
fillpattern fillpattern = diamond!
borderstyle borderstyle = stylelowered!
boolean focusrectangle = false
end type