aview-app 1.0.2

package/aardio/lib/win/guid.aardio

@@ -0,0 +1,137 @@
+//guid 唯一标识
+import util.metaProperty;
+namespace win;
+
+class guid{
+	ctor(d1,d2,d3,d4,...){ 
+		if(type.isString(d1)){
+			return ..win.guid.fromString(d1);
+		}
+		
+		this.Data1 = d1;
+		this.Data2 = d2;
+		this.Data3 = d3;
+		this.Data4 = d4;
+		if( ...!== null ) this.Data4 = ..string.pack(d4,...);
+	};
+	INT Data1;
+	WORD Data2;
+	WORD Data3;
+	BYTE Data4[8]; 
+	@_metaProperty;
+}  
+
+namespace guid{
+	
+	::Ole32 := ..raw.loadDll("Ole32.dll");
+	Rpcrt4 := ..raw.loadDll("Rpcrt4.dll");
+	
+	_metaProperty = ..util.metaProperty(
+		_eq = function(b){   
+			return owner.Data1 == b.Data1 
+				&& owner.Data2 == b.Data2 
+				&& owner.Data3 == b.Data3 
+				&& owner.Data4 == b.Data4; 
+		};
+		isNull = function(){
+			return !(owner.Data1  || owner.Data2  || owner.Data3 || #owner.Data4); 
+		};
+		_tostring = function(lower,clsId) {
+			if(type(lower)==="string") return..string.format(lower,owner.unpack() );
+			
+			var ps = {ptr p};
+			var re = Rpcrt4.UuidToString(owner,ps)
+			if( ps.p ){
+				var str = ..string.fromUnicode(ps.p,,true );
+				Rpcrt4.RpcStringFree(ps);
+				if(str){
+					if(!lower) str = ..string.upper(str);
+					if(clsId) str = "{" + str + "}";
+					return str;
+				};
+			}
+		};
+		create = function(){
+			Rpcrt4.UuidCreate(owner);
+			return owner;
+		};
+		hex = function(){
+			return ..string.hex(..raw.buffer(owner));
+		};
+		fromString = function(progId){  
+			if(progId[1]=='{'# ){
+				return ::Ole32.CLSIDFromStringW(progId,owner ) >=0/*_SUCCEEDED*/ ? owner : null;
+			} 
+			else {
+				var uuid = ..string.match(progId,"\x{8}-\x{4}-\x{4}-\x{4}-\x{12}");
+				if(uuid){
+					return ( Rpcrt4.UuidFromString (uuid,owner) == 0/*_RPC_S_OK*/ ) ? owner : null;
+				}
+			}
+
+			if( (::Ole32.CLSIDFromProgID( ..string.toUnicode(progId),owner))>=0/*_SUCCEEDED*/ )
+				return owner; 
+		};
+		toProgId = function(){ 
+			var hr,,progId = ::Ole32.ProgIDFromCLSID(owner,{ptr value});
+			if( (hr)>=0/*_SUCCEEDED*/ ){ 
+				var str = ..string.fromUnicode(progId.value,,true);
+				::Ole32.CoTaskMemFree(progId.value) 
+				return str;  
+			};
+		};
+		unpack = function(){
+			return owner.Data1,owner.Data2,owner.Data3,
+		   		owner.Data4[1],owner.Data4[2],owner.Data4[3],owner.Data4[4],
+		   		owner.Data4[5],owner.Data4[6],owner.Data4[7],owner.Data4[8]	
+		};
+		_json = lambda() owner.toString(,true);
+	)
+	_metaProperty.toString = _metaProperty._tostring;
+	
+	create = function() { 
+		return ..win.guid().create();	 
+	};
+	
+	fromString = function(progId){
+		return ..win.guid().fromString(progId); 
+	} 
+		
+	toProgId = function(guid){
+		if( type(guid) == "string" )
+			guid = ..win.guid().fromString(guid);
+			
+		return guid.toProgId();
+	}
+	
+	var _guid = ..win.guid();
+	valid = function(guid){
+		if( type(guid) == "string" ) guid = fromString(guid);
+		if(  _guid._struct == guid[["_struct"]] ) return guid;
+	};
+}
+
+/**intellisense()
+win.guid.create() = 创建 GUID 结构体并初始化为唯一值\n!win_guid.
+win.guid() = 创建 GUID 结构体,初始化为空值,\n此对象可以使用 tostring 函数转换为大写字符串,\ntostring 参数@2指定是否小写,参数@3指定是否添加大括号,\ntostring 参数@2 也可用字符串指定11个数值参数的格式化串,\n!win_guid.
+win.guid(.(数值,数值,数值,'\x00\x00\x00\x00\x00\x00\x00\x00') = 创建GUID结构体\n参数@4也可以改为包含8个字节数值的数组或者展开为8个数值参数
+win.guid(.("GUID、CLSID、ProgID等") =  字符串转换为 GUID,\n参数支持ProgID,CLSID,GUID,\n失败返回null空值
+win.guid.fromString("__/*可输入 ProgID,CLSID,GUID*/") = 字符串转换为 GUID\n参数支持ProgID,CLSID,GUID,\n失败返回null空值\n\n注意 win.guid 对象可以使用 tostring 函数转换为字符串,\ntostring 参数@1指定是否小写,参数@2指定是否添加大括号,\n!win_guid.
+win.guid.toProgId("__/*请输入GUID*/") = GUID转换为字符串格式的 ProgId\n失败返回null空值
+win.guid.valid(.(GUID对象) = 判断是否有效GUID对象,\n如果参数是ProgID,CLSID,GUID,则尝试转换,\n转换成功则返回GUID对象,否则返回空
+win.guid.valid() = !win_guid.
+win.guid.fromString() = !win_guid.
+!win_guid.Data1 = INT类型
+!win_guid.Data2 = WORD类型
+!win_guid.Data3 = WORD类型
+!win_guid.Data4 = 字符串值,也可以指定包含多个字节值的数组
+!win_guid.unpack() = 转换并返回 11 个数值
+!win_guid.hex() = 转换为16进制格式\n返回值可以置入单引号转义字符串内使用
+!win_guid.isNull() = 是否等于GUID_NULL，也就是结构体内存的所有字节值为0
+!win_guid.create() = 初始化为唯一值，返回自身\n!win_guid.
+!win_guid.fromString("__/*请输入ProgID*/") = 字符串转换为 GUID 结构体,返回自身,\n也可以直接写到 win.guid 参数中,\n可使用 tostring 函数将 GUID 结构体重新转换为字符串\ntostring 参数@2指定是否小写,参数@3指定是否添加大括号,\ntostring 参数@2 也可用字符串指定11个数值参数的格式化串\n!win_guid.
+!win_guid.toString( = 转换为字符串,也支持通过 tostring 自动调用此函数
+!win_guid.toString(.(是否小写,是否添加大括号) = 转换为字符串,生成格式:\n00000000-0000-0000-0000-000000000000
+!win_guid.toString(.("%08X%04X%04X%02X%02X%02X%02X%02X%02X%02X%02X") = 转换为字符串,自定义 11 个数值参数的格式化串
+!win_guid.toProgId() = CLSID转换为ProgId,返回字符串 
+end intellisense**/

package/aardio/lib/win/image.aardio

@@ -0,0 +1,204 @@
+//image 图像
+import fsys.localfile;
+namespace win.image;
+
+loadIcon = function(id,hinst){  
+	if(type(id)==type.number){
+		id = topointer(id)
+	}
+	return ::LoadIcon(hinst,id); 
+}
+
+loadCursor = function(id,hinst){   
+	if(type(id)==type.number){
+		id = topointer(id)
+	}
+	return ::LoadCursor(hinst,id); 
+}
+
+loadImage = function(path,hinst){   
+	if(type(path)==type.number){
+		path = topointer(path)
+	} 
+	return ::LoadImage( hinst, path,0x0/*_IMAGE_BITMAP*/,0,0,0 ); 
+}
+
+loadIconFromFile = function( path,gc=true ){
+    var resfile = ..fsys.localfile(path)
+	assert( resfile,'错误的图标文件路径\n'+path);
+	
+	var hicon  = ::LoadImage( ,resfile.path(),0x1/*_IMAGE_ICON*/,0,0,0x10/*_LR_LOADFROMFILE*/ );
+	assert(hicon,"加载图标失败"+resfile.path());
+	resfile.free();
+
+	if(!gc) return hicon;
+	
+	return ..gcdata(  
+		_topointer = hicon;
+		_gc = function(){
+			::DestroyIcon(hicon);
+		} 
+	);
+}
+
+loadCursorFromFile = function(path){
+	var resfile = ..fsys.localfile(path)
+	assert( resfile,'错误的图标文件路径\n'+path)  
+	
+	var hcur = ::User32.LoadCursorFromFileW( resfile.path() );
+	if(!hcur) error("加载图标失败:"+ resfile.path(),2);
+	resfile.free();
+
+	return hcur; 
+}
+
+loadImageFromFile  = function(path,gc=true){  
+ 
+	var resfile = ..fsys.localfile(path)
+	var hBmp = ::LoadImage( , resfile.path(),0x0/*_IMAGE_BITMAP*/,0,0,0x10/*_LR_LOADFROMFILE*/ );
+	if(!hBmp) error("加载位图失败:"+ resfile.path(),2);
+	resfile.free();
+	
+	if(! (gc && ret ) ) return hBmp;	
+	return ..gcdata(  
+		_topointer = hBmp;
+		_gc = function(){
+			::DeleteObject(hBmp)
+		} 
+	);   
+}
+
+extractIcon = function(fileName,ind=1,gc=true){
+	var ret = ::Shell32.ExtractIconP(_HINSTANSE,..io.localpath(fileName) or fileName,ind-1);
+	if( ind <= 0 ) return tonumber(ret);;
+ 
+	if(! (gc && ret ) ) return ret;	
+	return ..gcdata(  
+		_topointer = ret;
+		_gc = function(){
+			::DestroyIcon(ret)
+		} 
+	);
+}
+
+class IconHeader {
+	word idreserved; 
+	word idtype; 
+	word idcount; 
+}
+
+class IconDirEntry{
+	byte bWidth;
+	byte bHeight;
+	byte bColorCount;
+	byte bReserved;
+	word wPlanes;
+	word wBitCount;
+	int dwBytesInRes;
+	int dwImageOffset;
+}
+
+queryIconFromResource = function(iconData,fIcons,queryProc,flags){ 
+	if( fIcons === null ) fIcons = true; 
+	if ( (#iconData <= 0x410/*_MAX_PATH_U8*/ ) ) {
+		if( ( ..string.endWith(iconData,".ico",true) || ..string.endWith(iconData,".cur",true) ) ) { 
+			iconData = ..string.load( iconData ); 
+		}
+	} 
+	if( #iconData < 6 ) return;
+	  
+	var count = ..raw.convert( iconData, IconHeader() ).idcount; 
+	if( #iconData < 6 + count * 16 ) return;
+
+	var entrys = {};
+	for (i = 0; count - 1) {
+		var entry = ..raw.convert( iconData, IconDirEntry(),6 + i * 16 ); 
+		..table.push( entrys,entry ); 
+	}
+	..table.sort( entrys,function(b){
+		if( owner.bWidth == b.bWidth ) return owner.bColorCount > b.bColorCount
+		return owner.bWidth < b.bWidth  ;
+	} ) 
+
+	for (i = 1; #entrys) { 
+		var entry = entrys[i];
+		if( queryProc(count,i,entry.bWidth,entry.bHeight,entry.wBitCount,entry.bColorCount,entry.wPlanes) ){
+			var hIcon;
+			if(!fIcons && entry.bColorCount == 2){
+				var offset = entry.dwImageOffset + 48;//BITMAPINFOHEADER,crColors
+				var size = entry.bHeight * entry.bWidth / 8;
+				hIcon = ::User32.CreateCursorP(_HINSTANSE,
+  					entry.wPlanes,entry.wBitCount,entry.bWidth,entry.bHeight,
+  					..raw.toPointer(iconData,offset+size),
+  					..raw.toPointer(iconData,offset)
+				);
+			}
+			else {
+				hIcon= ::User32.CreateIconFromResourceExP(..raw.toPointer(iconData,entry.dwImageOffset),entry.dwBytesInRes
+					, fIcons,0x30000/*format version*/,entry.bWidth,entry.bHeight,flags)
+			}
+			 
+			return hIcon,entry ;
+		}
+	}	
+} 
+
+
+createIcon = function(iconData,fIcons,mWidth,mBpp,flags){
+	if( mBpp === null ) mBpp = 32
+	if( !fIcons ) mBpp = null;
+	return queryIconFromResource(iconData,fIcons,
+		function(count,index,width,height,bpp,colorCount,planes){
+			if ( ( mWidth && width >= mWidth ) || index = count) { 
+				if( mBpp && ( bpp > mBpp )  ) return;
+				return true;
+			}
+		},flags
+	)	
+}
+
+createSharedIcon = function(iconData,fIcons,mWidth,mBpp,flags){
+	return createIcon(iconData,fIcons,mWidth,mBpp,0x00008000/*_LR_SHARED*/);
+}
+
+createAniCursor = function(buf){ 
+	var buf = ..raw.buffer(#buf+8,buf); 
+	return ::User32.CreateIconFromResource(buf,#buf,false,0x00030000);
+}
+
+setIcon = function(hwnd,hIcon,big){
+	hwnd = hwnd[["hwnd"]] : hwnd;
+	if( type.isString(hIcon) ) hIcon = loadIconFromFile(hIcon,false); 
+    
+    var smallPrev,bigPrev;		 
+	if( !big ){  
+		smallPrev = ::User32.SendMessageP( owner.hwnd,0x80/*_WM_SETICON*/,0,hIcon); 
+		if( big !== null  ) return smallPrev;
+	}
+	
+	return smallPrev,::User32.SendMessageP( owner.hwnd,0x80/*_WM_SETICON*/,0,hIcon);  
+}
+
+getIcon = function( hwnd,big){
+	return ::User32.SendMessageP( hwnd[["hwnd"]] : hwnd,0x80/*_WM_SETICON*/,big ? 1/*_ICON_BIG*/ : 2/*_ICON_SMALL2*/,0) ;
+}
+
+self.DestroyIcon = ::DestroyIcon;
+self.DestroyCursor = ::DestroyCursor;
+
+/**intellisense(win.image)
+loadIconFromFile(.(位图路径,是否自动释放) = 自文件载入图标,支持aardio资源文件\n参数二默认为true
+loadImageFromFile(.(位图路径,是否自动释放) = 自文件载入位图,支持aardio资源文件\n参数二默认为true
+loadCursorFromFile(.(位图路径) = 自文件载入光标,支持资源文件
+loadIcon(__/*请输入资源名*/,模块句柄) = 自图标资源载入图标,\n返回句柄无需释放
+loadImage(__/*请输入资源名*/,模块句柄) = 自位图资源载入位图,\n返回句柄无需释放
+loadCursor(__/*请输入资源名*/,模块句柄) = 自光标资源载入光标,\n返回句柄无需释放
+extractIcon(.(EXE文件路径,图标索引,是否自动释放) = 索引默认为1,如果为0,则返回图标总数,\n参数二默认为true
+queryIconFromResource(图标数据,是否图标,回调函数,选项) = @.queryIconFromResource(__/*图标数据或路径*/,true,\n\n	function(count,index,width,height,bpp,colorCount,planes){\n		if ( width == 48 && bpp == 32 ) {  \n			return true;\n		}\n	}\n)	
+createIcon( = 在图标数据中加载指定像素的图标,失败返回空值
+createIcon(.(图标数据,是否图标,适配大小,最大位宽,选项) = 自内存创建图标,失败返回空值,\n图标数据:也可以是路径,或资源文件路径,\n是否图标:可省略,默认为true,载入光标请指定为false,仅支持单色光标\n适配大小:可省略,如果不匹配则取最接近大小的图标,\n最大位宽:可省略,默认值为32位\n选项:保留参数,不必指定\n\n如果选项不指定_LR_SHARED，返回的句柄不再使用时必须调用 ::DestroyIcon销毁
+createSharedIcon(.(图标数据,是否图标,适配大小,最大位宽) = 自内存创建共享图标,失败返回空值,\n图标数据:也可以是路径,或资源文件路径,\n是否图标:可省略,默认为true,载入光标请指定为false,仅支持单色光标\n适配大小:可省略,如果不匹配则取最接近大小的图标,\n最大位宽:可省略,默认值为32位\n选项:保留参数,不必指定\n\返回的句柄不能调用 ::DestroyIcon销毁,注意这种图标不应大量创建
+createAniCursor(.(动画光标数据) = 自内存加载*.ani格式的动画光标\n参数也可以是文件、或资源文件路径
+setIcon(.(窗口对象或句柄,图标句柄或路径,是否大图标) = 设置窗口图标,窗口负责释放图标句柄,\n参数@3设为true仅设置大图标,设为false仅设置小图标\n如果省略该参数l则同时设置大图标和小图标\n如果替换了小图标,返回值1为窗口原来的小图标,如果替换了大图标,返回值为窗口原来的大图标
+getIcon(.(窗口对象或句柄,是否大图标) = 获取窗口图标句柄\n返回的句柄不应被释放,共享图标返回空值
+end intellisense**/

package/aardio/lib/win/imageList.aardio

@@ -0,0 +1,145 @@
+//imageList 图像列表
+import win.image;
+import com.picture;
+
+namespace win {
+	
+	class imageList {
+		ctor ( width, height ) {
+			if (height !== null ) {
+				this.handle = ::Comctl32.ImageList_CreateP(width, height, 0x00000020 | 0x1/*_ILC_MASK*/, 0, 1);
+				this.width,this.height = width, height; 
+			}
+			else{
+				this.handle = width;
+				if( type(this.handle) != type.pointer ) error("无效的图标句柄",2);
+				
+				var width,height = {INT value},{INT value};
+				::Comctl32.ImageList_GetIconSize(this.handle, width, height);
+				this.width,this.height =  width.value,height.value;
+			}
+		};
+		add = function (pic, color=0xff00ff) { 
+			var iPic = ..com.picture.load(pic);
+			if(!iPic) error("加载图像失败",2);
+				
+			var idx = ::Comctl32.ImageList_AddMasked(this.handle, iPic.Handle, color);
+			..com.Release(iPic)
+			
+			if( idx > -1 ) return this,idx;
+			error("加载图像失败",2);
+		};
+		addBitmap = function(hbmp,color=0xff00ff){
+			var idx = ::Comctl32.ImageList_AddMasked(this.handle,hbmp, color); 
+			if( idx > -1 ) return this,idx;
+			error("加载图像失败",2);
+		};
+		addIcon = function (iconData) {
+			var hIcon = ..win.image.createIcon(iconData,true,this.width);
+			if(!hIcon) return;
+			
+			var idx = ::Comctl32.ImageList_ReplaceIcon(this.handle, -1, hIcon);
+			if( idx > -1 ) return this,idx;
+		};
+		loadIcon = function (id,hinst) {
+			var hIcon = ::LoadIcon(hinst,type(id)==="number"? topointer(id) : id );
+			if(!hIcon) return;
+			
+			var idx = ::Comctl32.ImageList_ReplaceIcon(this.handle, -1, hIcon);
+			if( idx > -1 ) return this,idx;
+		};
+		getIcon = function(i,flags){
+			return ::Comctl32.ImageList_GetIconP(this.handle,i : 0 ,flags : 0 );
+		}; 
+		draw = function(i,hdc,x,y,fStyle){
+			if( fStyle === null ) fStyle = 1/*_ILD_TRANSPARENT*/;
+			::Comctl32.ImageList_Draw(this.handle,i,hdc,x,y,fStyle)
+		}; 
+		destroy = function(){
+			if( this.handle ){
+				::Comctl32.ImageList_Destroy(this.handle)
+				this.handle = null;
+			}
+		}; 
+		@_meta
+	}
+	
+	imagelist = imageList;//@Deprecated
+}
+
+namespace win.imageList {
+	_meta = {
+		_topointer = lambda() owner.handle;
+	}
+	
+	::Comctl32 := ..raw.loadDll("Comctl32.dll");  
+	var shGetImageListA = ::Shell32.api("SHGetImageList","int(int iImageList,pointer riid,pointer &ppv)" );
+	IID_IImageList = '\x26\x59\xEB\x46\x2E\x58\x17\x40\x9F\xDF\xE8\x99\x8D\xAA\x09\x50';
+	shell = function(size){
+		var hr,hList = shGetImageListA( size,IID_IImageList);
+		if( !hList && shilImg == 4/*_SHIL_JUMBO*/){
+			hr,hList = shGetImageListA( 2/*_SHIL_EXTRALARGE*/,IID_IImageList)
+		}
+		if(  hr>=0/*_SUCCEEDED*/ ) return ..win.imageList(hList);
+	}
+} 
+
+/**intellisense(win)
+imageList = 图像列表，\n可用于工具条、树形控件等。\n\n图像列表默认并不会自适应 DPI 缩放（控件已实现缩放的除外），\n可在窗口或控件的 onDpiChanged 事件内更换不同大小的图像列表。\n\n建议改用 plus 控件、 win.ui.tabs 等，\n这些控件可以支持适合缩放的字体图标
+imageList(__/*句柄*/)  = 通过句柄创建一个 imageList
+imageList(.(宽度,高度)  = 创建一个 imageList
+end intellisense**/
+
+/**intellisense() 
+win.imageList.shell( _SHIL___ ) = 调用SHGetImageList获取系统图像列表
+win.imageList.shell() = !imageList.
+win.imageList() = !imageList.
+!imagelist.addIcon( = 添加图标
+!imagelist.addIcon(.(图标数据) = 参数可指定图标数据或文件路径,支持资源路径,\n成功返回自身,失败返回null
+!imagelist.loadIcon(.(资源名,模块ID) = 自图标资源载入图标,\n参数@1可指定资源名或资源ID,\n参数@2可省略,\n成功返回自身,失败返回null
+!imagelist.addBitmap( = 添加位图
+!imagelist.addBitmap(.(位图句柄,透明色) = 添加位图,\n成功返回自身,失败抛出异常,\n该函数会复制位图,不会接管或销毁传入的位图\n如果传入的位图句柄不再使用,应使用::DeleteObject销毁
+!imagelist.add( = 添加图像
+!imagelist.add(.(图像路径,透明色) = 添加图像,\n成功返回自身,失败抛出异常
+!imagelist.draw(.(索引,hDC,x,y,fStyle) = 绘图
+!imagelist.getIcon(.(索引,1/*_ILD_TRANSPARENT*/) = 返回图标句柄\n该句柄应使用 ::DestroyIcon 函数释放
+!imagelist.width = 宽度
+!imagelist.height = 高度
+!imagelist.destroy() = 删除对象\n这个函数不会被在对象释放时被自动调用,\n应用程序应在图像列表不再使用时调用此函数销毁对象，\n注意treeview控件不负责自动销毁图像列表，\n而listview控件在销毁时负责自动销毁正在使用的图像列表.\n
+end intellisense**/
+
+ /**intellisense() 
+_SHIL_LARGE=@0/*_SHIL_LARGE*/
+_SHIL_SMALL=@1/*_SHIL_SMALL*/
+_SHIL_EXTRALARGE=@2/*_SHIL_EXTRALARGE*/
+_SHIL_SYSSMALL=@3/*_SHIL_SYSSMALL*/
+_SHIL_JUMBO=@4/*_SHIL_JUMBO*/
+_ILD_NORMAL=@0/*_ILD_NORMAL*/
+_ILD_TRANSPARENT=@1/*_ILD_TRANSPARENT*/
+_ILD_MASK=@0x10/*_ILD_MASK*/
+_ILD_IMAGE=@0x20/*_ILD_IMAGE*/
+_ILD_ROP=@0x40/*_ILD_ROP*/
+_ILD_BLEND25=@2/*_ILD_BLEND25*/
+_ILD_BLEND50=@4/*_ILD_BLEND50*/
+_ILD_OVERLAYMASK=@0xF00/*_ILD_OVERLAYMASK*/
+_ILD_PRESERVEALPHA=@0x1000/*_ILD_PRESERVEALPHA*/
+_ILD_SCALE=@0x2000/*_ILD_SCALE*/
+_ILD_DPISCALE=@0x4000/*_ILD_DPISCALE*/
+_ILD_ASYNC=@0x8000/*_ILD_ASYNC*/
+_ILS_NORMAL=@0/*_ILS_NORMAL*/
+_ILS_GLOW=@1/*_ILS_GLOW*/
+_ILS_SHADOW=@2/*_ILS_SHADOW*/
+_ILS_SATURATE=@4/*_ILS_SATURATE*/
+_ILS_ALPHA=@8/*_ILS_ALPHA*/
+_ILC_MASK=@1/*_ILC_MASK*/
+_ILC_COLOR=@0/*_ILC_COLOR*/
+_ILC_COLORDDB=@0xFE/*_ILC_COLORDDB*/
+_ILC_COLOR4=@4/*_ILC_COLOR4*/
+_ILC_COLOR8=@8/*_ILC_COLOR8*/
+_ILC_COLOR16=@0x10/*_ILC_COLOR16*/
+_ILC_COLOR24=@0x18/*_ILC_COLOR24*/
+_ILC_COLOR32=@0x20/*_ILC_COLOR32*/
+_ILC_PALETTE=@0x800/*_ILC_PALETTE*/
+_ILC_MIRROR=@0x2000/*_ILC_MIRROR*/
+_ILC_PERITEMMIRROR=@0x8000/*_ILC_PERITEMMIRROR*/
+end intellisense**/

package/aardio/lib/win/inputBox.aardio

@@ -0,0 +1,66 @@
+//inputBox 输入框
+import win.ui;
+import win.ui.ctrl.edit;
+import win.ui.ctrl.button;
+import win.ui.ctrl.static;
+
+namespace win;  
+
+class  inputBox{
+	ctor(parent,password){  
+			
+		this = ..win._form(cls="";text="aardio form";right=442;bottom=137;border="dialog frame";exmode="none";max=false;min=false;mode="popup";parent=parent)
+		this.add(
+			btnCancel={cls="button";text="取消";left=298;top=87;right=372;bottom=115;db=1;dr=1;z=2};
+			btnOk={cls="button";text="确定";left=205;top=87;right=279;bottom=115;db=1;dr=1;style=1;z=1};
+			info={cls="static";text="请输入";left=20;top=20;right=350;bottom=38;dl=1;dt=1;notify=1;transparent=1;z=4};
+			input={cls="edit";left=20;top=46;right=423;bottom=71;dl=1;dt=1;edge=1;password=password;z=3}
+		)
+		
+		this.onInitDialog = function(hwnd,message,wParam,lParam){
+			this.input.setFocus();
+		};
+		
+		this.btnCancel.oncommand = function(id,event){
+			this.endModal();
+		};
+		
+		this.btnOk.oncommand = function(id,event){ 
+			this.endModal( this.input.text );
+		};  
+		
+		this.onOk = function(){
+	    	this.endModal( this.input.text );
+		}; 
+		
+		this.onCancel = function(){
+	    	this.endModal();
+		}; 
+	} 
+}
+ 
+/***intellisense()
+win.inputBox = 输入对话框 
+win.inputBox( = 创建一个输入对话框
+win.inputBox(.(父窗口,密码模式） =  创建一个输入对话框,所有参数可选\n设置密码模式输入框输入内容显示为星号
+win.inputBox() = !wininputBox.
+end intellisense***/
+
+/***intellisense(!wininputBox)
+doModal() = 弹出输入对话框\n该函数返回用户输入的值\n取消则返回null空值
+onInitDialog = @.onInitDialog = function(hwnd,message,wParam,lParam){\n	??.center()__/*输入框初始化完成触发该函数*/\n}
+center() = 居中显示
+info = !edit.
+input = !edit.
+text = 输入框标题
+setPos(.(x,y,宽,高,插入位置,参数) = 调整窗口位置或排序\n所有参数可选 
+getPos() = 返回相对坐标,宽,高 
+topmost()=窗体始终最前
+topmost(false)=取消窗体始终最前
+modifyStyle(.(remove,add,swpFlags) = 修改窗口样式,所有参数都是可选参数,\n@remove 用数值指定要移除的样式,可使用 _WS_ 前缀的常量\n@add 用数值指定要添加的样式,可使用 _WS_ 前缀的常量\n@swpFlags 可选用数值指定调整窗口选项,可使用 _SWP_ 前缀的常量\n如果指定了 @swpFlag ,则使用该参数调用::SetWindowPos\n细节请参考 win.modifyStyle 函数源码 
+modifyStyleEx(.(remove,add,swpFlags) = 修改窗口扩展样式,所有参数都是可选参数,\n@remove 用数值指定要移除的样式,可使用 _WS_EX_ 前缀的常量\n@add 用数值指定要添加的样式,可使用 _WS_EX_ 前缀的常量\n@swpFlags 可选用数值指定调整窗口选项,可使用 _SWP_ 前缀的常量\n如果指定了 @swpFlag ,则使用该参数调用::SetWindowPos\n细节请参考 win.modifyStyle 函数源码  
+setInterval(回调函数,延时毫秒数,->->->) = @.setInterval( \n	function(){\n		__/*参数@1指定执行函数,参数@2指定执行间隔，\n可选指定一个或多个回调参数，不指定回调参数则默认为:\n hwnd,message,timerId,tick,\n\n如果在定时器中执行了win.delay等继续消息循环的代码，\n在定时器退出前不会再触发同一定时器（重入）。\n\n定时器回调函数返回数值可修改时间间隔,\n返回false取消该定时器*/\n	},1000 \n)
+clearInterval(__/*请输入ID*/) = 删除定时器
+changeInterval(__/*请输入ID*/,1000) = 重新设定定时器的延时时间
+setTimeout(.(函数名,延时,其他参数) = 延时执行函数
+end intellisense***/

package/aardio/lib/win/messageFilter.aardio

@@ -0,0 +1,44 @@
+//messageFilter 消息特权隔离
+namespace win.messageFilter;
+
+try {
+
+	ChangeWindowMessageFilter = ::User32.api( "ChangeWindowMessageFilter", "bool(INT msg,INT flag)");
+	
+	try {
+		ChangeWindowMessageFilterEx = ::User32.api( "ChangeWindowMessageFilterEx", "bool(addr hwnd,INT msg,INT flag,struct &chgFilter)");
+	};
+	
+	change = function(hwnd,flag,msg,...){
+		if( !hwnd || !ChangeWindowMessageFilterEx ){
+			if( ChangeWindowMessageFilter(msg,flag) ){
+				if(!...) return true;
+				return change(hwnd,flag,...);
+			}
+		}
+		
+		var chgFilter = {  INT cbSize = 8;  INT extStatus; }
+		if( ChangeWindowMessageFilterEx(hwnd,msg,flag,chgFilter) ){
+			if( !... ) return true,chgFilter.extStatus;
+			return change(hwnd,flag,...);
+		}
+	}
+}
+catch( e ){
+	change = function() {};
+}
+ 
+/**intellisense()
+win.messageFilter = 用于管理权限进程设置消息特权隔离白名单
+win.messageFilter.change(.(窗口句柄,选项,消息,->->->) = 变更消息特权隔离白名单,成功返回true,\n如果不指定窗口句柄则设置进程级白名单
+win.messageFilter.change(窗口句柄,阻止选项,消息) = @.change(__,1/*_MSGFLT_ADD*/\n	,0x4A/*_WM_COPYDATA*/,0x233/*_WM_DROPFILES*/,0x0049/*_WM_COPYGLOBALDATA*/ )
+_MSGFLT_ALLOW=@1/*_MSGFLT_ALLOW*/
+_MSGFLT_DISALLOW=@2/*_MSGFLT_DISALLOW*/
+_MSGFLT_RESET=@0/*_MSGFLT_RESET*/
+_MSGFLT_ADD=@1/*_MSGFLT_ADD*/
+_MSGFLT_REMOVE=@2/*_MSGFLT_REMOVE*/
+_MSGFLTINFO_NONE=@0/*_MSGFLTINFO_NONE*/
+_MSGFLTINFO_ALLOWED_HIGHER=@3/*_MSGFLTINFO_ALLOWED_HIGHER*/
+_MSGFLTINFO_ALREADYALLOWED_FORWND=@1/*_MSGFLTINFO_ALREADYALLOWED_FORWND*/
+_MSGFLTINFO_ALREADYDISALLOWED_FORWND=@2/*_MSGFLTINFO_ALREADYDISALLOWED_FORWND*/
+end intellisense**/

package/aardio/lib/win/ole/_.aardio

@@ -0,0 +1,25 @@
+namespace win.ole;  
+
+::Ole32 := ..raw.loadDll("Ole32.dll")
+::OleAut32  := ..raw.loadDll("OleAut32.dll")
+
+ /*intellisense(::)*/
+::CreateStreamOnHGlobal = Ole32.api("CreateStreamOnHGlobal","int(pointer hGlobal,bool deleteOnRelease,pointer &ppstm)")
+::GetHGlobalFromStream = Ole32.api("GetHGlobalFromStream","int(pointer ppstm,pointer &hGlobal)")
+::SysAllocString = OleAut32.api("SysAllocString","pointer(ustring psz)") 
+::SysFreeString = OleAut32.api("SysFreeString","pointer(pointer bstr)")  
+::CoTaskMemFree := Ole32.api("CoTaskMemFree","void(POINTER hMem)" ) 
+/*end intellisense*/
+
+fromSysString = function(bstr){
+    if(type(bstr)==="pointer"){
+    	var s = ..string.fromUnicode(bstr,,::OleAut32.SysStringLen(bstr)); 
+		::SysFreeString(bstr)
+		return s;
+    }	
+} 
+
+/**intellisense()
+win.ole = Ole32.dll,OleAut32.dll接口函数
+win.ole.fromSysString(__) = 参数传入bstr指针，返回普通UTF8字符串,\n如果传入参数类型不是指针,返回null,\n此函数会调用::SysFreeString释放传入的bstr指针
+end intellisense**/