这个示例创建了一个菜单,包含扩展名为 .prg 的文件,并且在关闭菜单之前移动、放大、缩小它。
clear
define popup popmovin from 2,2 to 7, 14 prompt files like *.prg ;
title 'programs'
activate popup popmovin nowait
=chrsaw(2)
move popup popmovin by 5,5 &&把菜单向下移动
=chrsaw(2)
size popup popmovin by 5,5 &&放大菜单
=chrsaw(2)
size popup popmovin by -5,-5 &&缩小菜单
=chrsaw(2)
move popup popmovin by -5,-5 &&把菜单向上移动
=chrsaw(2)
deactivate popup popmovin
release popup popmovin