//AAU文件编译工具
//将AAU代码文件编译为二进制文件

import win.ui; 
import fsys.dlg
/*DSG{{*/ begin
winform = win.form( bgcolor=16496028;bottom=122;topmost=1;right=521;left=0;style=0;exmode="";title="AAuto Form";acceptfiles=1;text="AAuto编译工具";min=1;top=0;cls="AFORM" )

winform.add( 
btnbuild={ visible=true;bgcolor=16496028;bottom=69;color=0;right=479;left=373;autosize=false;top=42;acceptfiles=1;z=0;tabstop=1;align="";text="编译AAU文件";cls="button" };
progress={ visible=true;disabled=1;color=0;right=497;left=33;cls="progress";bottom=98;max=100;text="progress";autosize=false;top=78;acceptfiles=1;tabstop=1;bgcolor=0;min=0;edge=1;z=1 };
static={ visible=true;bgcolor=0;bottom=88;color=0;right=347;left=40;autosize=false;top=47;acceptfiles=1;transparent=1;z=2;text="AAuto代码编译为二进制指令码可以有效保护您的源码
编译以后无法还原、编辑，请谨慎操作！　";tabstop=1;cls="static" };
editpath={ visible=true;bgcolor=16777215;bottom=38;color=0;right=431;border=1;autosize=false;top=14;align="";z=3;text="";left=39;tabstop=1;cls="edit" };
btndlg={ visible=true;bgcolor=16496028;bottom=37;color=0;right=493;left=439;autosize=false;top=14;acceptfiles=1;z=4;tabstop=1;align="";text="浏览...";cls="button" }
)
end /*}}*/

winform.wndproc = function(hwnd,message,wparam,lparam){
select(message) {//判断消息类型
	case 0x233/*_WM_DROPFILES*///鼠标右键弹起消息
	{ 
	winform.editpath.text = win.getDropFile(wparam )[1];   
	} 
}
}//endproc
 
winform.btnbuild.oncommand = function(hwnd,event){
	//win.msgbox( winform.btnbuild.text );
	if( winform.editpath.text == ""){
		winform.static.text = "注意,请选中或输入要编译的文件路径!"
		winform.redraw();
		return ;
	}
	 
	var str = dumpcode( assert( loadcode( winform.editpath.text  ) ) )
	
	//保存编译后的文件
	string.save( fsys.dlg.save("AAuto文件|*.aau|AAuto文件|*.aau||","保存编译后的二进制aau文件") ,str )
 
 　 //加点效果
    winform.progress.visible = true;//显示进度条
	for(i=1;10;1){ //循还从1到10
	    winform.progress.pos += 10 //增加进度
	    win.delay(100)
	}
	winform.progress.visible = false;//隐藏进度条
	winform.static.text = "                  谢谢使用 ,编译完成!"
	winform.redraw();
	
} 
	
winform.btndlg.oncommand = function(hwnd,event){
	//win.msgbox( winform.btndlg.text );
	var str  = fsys.dlg.open("AAuto文件|*.aau|AAuto文件|*.aau||","请选择AAuto代码文件")
	if( str)
		winform.editpath.text = str;
}//end callback

winform.show(true) 
win.loopMessage( winform );


