main.prg

来自「我见过最好的背景图片示例」· PRG 代码 · 共 46 行

set sysmenu off
with _screen
	.visible=.t.
	.closable=.t.
	.controlbox=.t.
	.maxbutton=.t.
	.minbutton=.t.
	.movable=.t.
	.top=0
	.left=0
	.windowstate=2
	.caption="背景图片大小自适应示例"
ENDWITH
*-----------设置软件所在的目录-------------
set default to sys(5)+sys(2003)        
mypath=sys(5)+sys(2003)
SET TALK OFF 
SET status bar OFF 
ON SHUTDOWN NowShutDown()
PUBLIC 背景,SelectPict,ADD1,name1
USE 图片
	背景=ALLTRIM(图片名)
USE 
do 菜单1.mpr
_screen.addobject("imge1","quit2")
read event
define class quit2 as image
	WIDTH =SYSMETRIC(1)
	HEIGHT=SYSMETRIC(2)-70
	stretch=2
picture=背景
backstyle=0
 visible=.t.
ENDDEFINE


PROCEDURE NowShutDown
	 DO WHILE .T.
	    IF _SCREEN.FORMCOUNT < 1
	       EXIT 
	    ENDIF 
	     _SCREEN.FORMS( 1 ).RELEASE
	 ENDDO 
  QUIT 
ENDPROC