下面示例定义并激活一个菜单,然后移动,并更改它的大小。
close database
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