|
原帖由 dvd008 于 2012-3-14 09:55 发表 
这样,可以得到差不多的效果了,只是弹出菜单的位置,需要这里指定,
不能跟随,自动改变
_SUB WinMenu, L80T720W900H50,,,,-
// LABE -center ,L0T0W200H20,固定窗口,,0x00#0xFF0000,
ITEM ,L10T10W4 ...
可用 SCRN CALC 自动定位:
win8TaskBar.wcs:
IMPORT WM_消息.wcs
SCRN ScrW,ScrH0
//SCRN ScrW,ScrH
ENVI B_TRIM=50 //XP下测试任务栏挡住了
CALC #ScrH=%ScrH0% - %B_TRIM%
TEAM ENVI WinL=80| ENVI WinH=50
CALC #WinW=%ScrW% - %WinL%
CALC #WinTOP=%ScrH% - %WinH%
_SUB WinMenu, L%WinL%T%WinTOP%W%WinW%H%WinH%,,,,-
// LABE -center ,L0T0W200H20,固定窗口,,0x00#0xFF0000,
ITEM ,L10T10W40H20,关闭, KILL \
ITEM ,L60T10W60H20,开始菜单, call start
ITEM ,L130T10W60H20,记事本,
ITEM ,L200T10W60H20,计算器,
_END
TEAM ENVI startH=90| ENVI startW=190
CALC #startL=%WinL%
CALC #startTOP=%ScrH% - %startH% - %WinH%
_SUB start, L%startL%T%startTOP%W%startW%H%startH%,,,,-
ENVI @start.MSG=%&WM_LBUTTONDOWN%:KILL \ //点一下就消失,一般这样
ITEM ,L10T10W60H20,开始菜单, KILL \
_END
CALL WinMenu
效果:
|
|