main.prg

来自「这是一款非常实用的福彩3D彩票统计分析软件,实现各种代码走势图的查看,以及按照相」· PRG 代码 · 共 56 行

SET TALK OFF
set clock status
set carry on
set refresh to 0,5
******************************
on shutdown do qUIT1.prg
with _screen
 * .caption=''
 * .closable=.f.
 * .controlbox=.f.
 * .maxbutton=.f.
 * .minbutton=.f.
 * .movable=.f.
  .windowstate=1 
 * .caption=''
  .visible=.f.
ENDWITH

with _screen
  .visible=.t.
  .closable=.t.
  .controlbox=.t.
  .maxbutton=.t.
  .minbutton=.t.
  .movable=.t.
  .top=0
  .left=0
  .windowstate=2
 * .picture='photo2.jpg'
  .icon='graph.ico'
  ENDWITH
  ***************************************
DO  MAINMENU.mpx
DO form gj_zj name gj_zj
DO form gj_lf name gj_lf
 _screen.addobject("imge1","quit1")
  read event
define class quit1 as image
  top=-10
  left=0
 *height=_screen.height-50
 *width=_screen.width-50
  picture='photo2.jpg'
 backstyle=0
  visible=.t.
*  stretch=1
 enddefine
set sysmenu to default
set sysmenu on
set notify on
set exclusive off
set safety on
modi windows screen