menu.gml

来自「在线游戏最新服务器端源代码」· GML 代码 · 共 87 行

#ifndef MENU_GML
#define MENU_GML
<style>
.menu_Icon:text{
	pos=2,0;
 font=Webdings,16,16,400;anti=1;color=R123G255B255;
 src=8;
 //filltext={bar(0,0,40,40,#333399);Circlelight(6,6,13,#333399);Circlelight(6,6,5,#AAAAAA);};
 //bk=shadow(#006666,250,0,0,2);
 clip=0;
 //ctrl=loopt(1,alpha,0,255,12,20);
}
.menu_item:text{
	showStyle=0;
	color=black;
	autopos=true;
	font=黑体,6,14,000;
	OnCreate={<menu_Icon src="$[icon]";>
		<: if=(pid.maxw<width)?{pid.oldmaxw=*pid.maxw;pid.maxw=(width+10);};pid.eve=refSize;>
	};
	/*
	OnCreate={<: 
		switch(icon){
		case $[toeve]:icon=u;break;
		};
		{<menu_item_text 
			switch(pid.icon){
			case " ": src="$[txtsrc]";break;
			default: src=" $[txtsrc]";break;
			};
			iconsrc="$[icon]";
			if=(pid.pid.maxw<width)?{pid.pid.oldmaxw=*pid.pid.maxw;pid.pid.maxw=*width+10;};
			?*width;
			>
		};
	>};

*/
	OnMouseOver={<: bk=round4_3(#009999,5);color=#99FFFF>};
	OnMouseOut={<: bk=null;color=black>};
	OnRButtonUp={<: pid.show=0;>};
	OnLButtonUp={<: if(ifmouseover)?{eve=Click}>};
	OnClick={<:$[toid] eve=$[toeve];>};
}
.menu_item_close:menu_item{
	src="返回";
	OnCreate#3={<menu_Icon src="q";>
	};
	OnCreate={<: from=*regstr(from,"root");fromname=*regstr(fromname,"root");bwnd=*&desktop.bwnd;eve=set>};
	OnSet={<: if=(bwnd==1)?{src="   关闭";OnClick=window.close();}:{switch(fromname){
			case "root":src="   关闭";OnClick=window.close();break;
			case "croot":src="   关闭";OnClick=window.close();break;
			default:src="   返回->$[fromname]";OnClick={<:desktop exec=$[from]>};
		}};
		if=(width<100)?{width=100;};
		if=(pid.maxw<width)?{pid.oldmaxw=*pid.maxw;pid.maxw=(width+10);pid.refSize;};
		>
	};
}
.menu:div{
	autopos=true;
//	bk=color(#EFEBEF);
	autosubpos=vert(3,3,1,1);
//	draw={wv();rect(-1,-1,width+1,height+1,#D6D2CE);};
	bk=round4_3(#CCFFFF,5,#CCFFFF);
	
	maxw=100;oldmaxw=0;
	OnAddMenuItem={<menu_item toid=$[ep1];toeve=$[ep2];
		switch(pid.ep3){
		case "$[ep2]":icon=" ";break;
		default: icon="$[ep3]";
		};src="   $[ep0]";
		>
	};
//	OnDelMenuItem={<: enumsub(txtsrc,$[ep0])={<: del=1;>};>};
	OnrefSize={<: ctrl#ref=loopcmd(1,100,1,{<: oldmaxw=*maxw;enumsub={<: width=*pid.maxw;>};>});>};
}
</style>

#ifdef MAINGML
<menu pos=100,100;
	ctrl=loopcmd(5,100,1,{<: eve=addMenuItem,中文,toid,toeve;>});
	ctrl#3=loopcmd(5,100,1,{<: eve=addMenuItem,中文测试,toid,toeve;>});
>
</menu>
#endif
#endif