界面非常漂亮的卡通时钟。。。。。。
integer li_xx,li_yy
//f_central_window(this)
//gm_new_menu.m_main.m_position.m_right_top.triggerevent(clicked!)
gm_new_menu.m_main.m_position.m_central.triggerevent(clicked!)
integer li_day
li_day = DayNumber(today())
choose case li_day
case 1
uo_1.st_13.text = "星期日"
case 2
uo_1.st_13.text = "星期一"
case 3
uo_1.st_13.text = "星期二"
case 4
uo_1.st_13.text = "星期三"
case 5
uo_1.st_13.text = "星期四"
case 6
uo_1.st_13.text = "星期五"
case 7
uo_1.st_13.text = "星期六"
end choose
this.title=gs_title
li_xx=unitstopixels(this.uo_1.oval_1.width,xunitstopixels!)
li_yy=unitstopixels(this.uo_1.oval_1.height,yunitstopixels!)
SetWindowRgn(handle(this),CreateEllipticRgn(1,1,li_xx,li_YY),true)
wf_add_icon()
open(w_date)
timer(1)