PB2007.10.11 使用于不通环境的通用设计

用于不通环境的通用设计 

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)