window.width = 0 end if next window.x = li_x window.y = li_height+li_y window.width = 0 window.height = 0 window.show() case 9 // closetype = 9,从左下->右上 for li_gd = li_x to li_x+li_width step 1 window.x = li_gd window.width = li_width +li_x -li_gd if window.height > 0 then window.height = li_height -(li_gd - li_x) else window.height = 0 end if next window.x = li_x+li_width window.y = li_y window.width = 0 window.height = 0 window.show() case 10 // closetype = 10,从四面到中间 li_ceny = li_y+li_height/2 li_cenx = li_x+li_width / 2 for li_gd = li_y to li_ceny step 1 window.y = li_gd window.height = li_height - 2*(li_gd - li_y) if window.x < li_x + li_cenx then window.x = li_x + (li_gd - li_y) else window.x = li_x + li_cenx end if if window.width > 0 then window.width = li_width - 2*(li_gd - li_y) else window.width = 0 end if next window.x = li_cenx window.y = li_ceny window.width = 0 window.height = 0 window.show() case else window.show() window.width = li_width window.height = li_height window.x = li_x window.y = li_y END CHOOSE return 0 ************************ // 调用该函数在窗体的 closequery 事件中 gf_closequery (w_main,mod(integer(string(now(),"ss")),11)) |
……