用于不通环境的通用设计
Environment对象 是一系统结构,包含平台信息[操作系统,CPU,屏幕]
1. GETENvironment :
创建对象adaptive -open:
Environment lenv_system
GetEnvironment(lenv_system)
If not(lenv_system.ostype =windows! or lenv_system.ostype=windowsnt!) THEN
MessageBox("未知操作系统","程序只运行在WINDOWS系统")
HALT
ELSE
OPEN(w_adaptive)
ENd if
2.创建W_adaptive -open:
Environment lenv_system
integer li_ScrWidth,li_ScrHeight
SetRedraw(false)
getEnvironment(lenv_system)
li_scrwidth=Pixelstounits(lenv_system.screenwidth,xpixelstounits!)
li_scrHeight=Pixelstounits(lenv_system.screenHeight,xpixelstounits!)
Move((li_ScrWidth-this.width)/2,(li_scrheight - this.height)/2)
setradraw(true)