aview-app 1.0.2

package/aardio/lib/win/animate.aardio

@@ -0,0 +1,81 @@
+//animate 动画窗口 
+namespace win;
+
+class animate{
+	ctor( hwnd,pred,defalut ){
+		this.hwnd = hwnd[["hwnd"]] : hwnd;
+		if( !hwnd ) error("请指定窗口句柄",2) 
+		this.pred = pred || 0;
+		this.defalut = defalut || 0;
+	};
+	hide = function(tick,flags){
+		if( !tick ) tick = 500;
+		if( !flags ) flags = this.defalut;
+		flags = flags | 0x10000/*_AW_HIDE*/
+		animateWindow(this.hwnd,tick,flags | this.pred );
+	};
+	show = function(tick,flags){
+		if( !tick ) tick = 500;
+		if( !flags ) flags = this.defalut;
+		flags = flags & ~0x10000/*_AW_HIDE*/
+		 
+		animateWindow(this.hwnd,tick,flags | this.pred );
+	}; 
+	activate = function(tick,flags){
+		if( !tick ) tick = 500;
+		if( !flags ) flags = this.defalut;
+		flags = ( flags & ~0x10000/*_AW_HIDE*/ ) | 0x20000/*_AW_ACTIVATE*/;
+		animateWindow(this.hwnd,tick,flags | this.pred );
+	};
+}
+
+namespace animate{
+
+	animateWindow = ::User32.api("AnimateWindow", "bool(INT hwnd,INT tick,INT flags)");
+	
+	roll = function(hwnd,pred){
+		hwnd = hwnd[["hwnd"]] : hwnd;
+		if( !hwnd ) error("请指定窗口句柄",2) 
+		return ..win.animate( hwnd, ,0x4/*_AW_VER_POSITIVE*/ );
+	}
+	
+	slide = function(hwnd,pred){
+		hwnd = hwnd[["hwnd"]] : hwnd;
+		if( !hwnd ) error("请指定窗口句柄",2) 
+		return ..win.animate( hwnd,0x40000/*_AW_SLIDE*/,0x4/*_AW_VER_POSITIVE*/); //不支持AW_CENTER
+	} 
+	
+	fade = function(hwnd){
+		hwnd = hwnd[["hwnd"]] : hwnd;
+		if( !hwnd ) error("请指定窗口句柄",2) 
+		return ..win.animate( hwnd,0x80000/*_AW_BLEND*/ | 0x10/*_AW_CENTER*/ );//不支持指定方向
+	}
+}
+
+
+/*intellisense(win)
+animate(.(窗口对象或句柄) = 创建动画窗口
+animate.roll(.(窗口对象或句柄) = 创建滚动动画窗口
+animate.slide(.(窗口对象或句柄) = 创建滑动动画窗口\n该动画不支持_AW_CENTER选项
+animate.fade(.(窗口对象或句柄) = 创建淡入淡出动画窗口,该动画仅支持顶层窗口,\n不支持自定义动画方向,仅支持默认的_AW_CENTER选项
+animate() = !win_animate.
+animate.slide() = !win_animate.
+animate.fade() = !win_animate.
+end intellisense*/
+
+/**intellisense(!win_animate)
+show(.(持续时间,_AW__ ) = 动画显示窗口,\n可选用参数@1指定持续时间,省略则默认值为500毫秒\n参数@2可选指向动画方向,选项使用 _AW_ 前缀常量,\n注意fade效果不能指定方向
+hide(.(持续时间,_AW__ ) = 动画隐藏窗口,\n可选用参数@1指定持续时间,省略则默认值为500毫秒\n参数@2可选指向动画方向,选项使用 _AW_ 前缀常量,\n注意fade效果不能指定方向
+activate(.(持续时间,_AW__ ) = 动画显示窗口,\n可选用参数@1指定持续时间,省略则默认值为500毫秒\n参数@2可选指向动画方向,选项使用 _AW_ 前缀常量,\n注意fade效果不能指定方向
+end intellisense**/
+
+/**intellisense()
+_AW_ACTIVATE=@0x20000/*_AW_ACTIVATE*/
+_AW_BLEND=@0x80000/*_AW_BLEND*/
+_AW_SLIDE=@0x40000/*_AW_SLIDE*/
+_AW_VER_POSITIVE=@0x4/*垂直自上向下*/
+_AW_VER_NEGATIVE=@0x8/*垂直自下向上*/
+_AW_HOR_POSITIVE=@0x1/*水平自左向右*/
+_AW_HOR_NEGATIVE=@0x2/*水平自右向左*/
+_AW_CENTER=@0x10/*_AW_CENTER*/
+end intellisense**/

package/aardio/lib/win/api.aardio

@@ -0,0 +1,57 @@
+//api 全局 WinAPI
+
+namespace win.api{}
+
+/*intellisense(::)*/ 
+::GetSystemMetrics = ::User32.api("GetSystemMetrics","int(int)") 
+::SystemParametersInfo = ::User32.api("SystemParametersInfo","int(INT act, INT param, struct& pvParam,INT winIni)"); 
+::CreateWindowEx = ::User32.api( "CreateWindowExW", " int(INT exStyle,ustring className,ustring windowName,INT style,int x,int y,int width,int height,addr hwndParent,addr hMenu,pointer hlnstance,ptr lpParam)" )  
+::DestroyWindow = ::User32.api( "DestroyWindow", "int(addr hwnd )" );	
+::DefWindowProc  = ::User32.api( "DefWindowProc", "int(addr hwnd,INT msg,ADDR wParam,addr lParam) " );		 
+::CallWindowProc = ::User32.api("CallWindowProc","int(ptr lpPrevWndFunc,addr hwnd,INT Msg,ADDR wParam,addr lParam)" )
+::SetWindowPointer = ::User32.api("SetWindowLong","ptr(addr hwnd,int nIndex,ptr ptrNew)" ) 
+::SetWindowLong = ::User32.api("SetWindowLong","int(addr hwnd,int nIndex,int dwNewLong)" )
+::GetWindowLong = ::User32.api("GetWindowLong","int(addr hwnd,int nIndex)" )
+::UpdateWindow = ::User32.api( "UpdateWindow", "bool(addr) " ) 
+::InvalidateRect = ::User32.api( "InvalidateRect", " int(addr hwnd,struct rect,bool erase) " )  
+::RedrawWindow = ::User32.api("RedrawWindow","bool(addr hwnd,struct lprcUpdate,ptr hrgnUpdate,INT flags)");
+::GetWindowRect = ::User32.api( "GetWindowRect", " int(addr hwnd,struct &lpRect ) " )
+::GetClientRect = ::User32.api( "GetClientRect", " int(addr hwnd,struct &lpRect ) " )
+::ScreenToClient = ::User32.api( "ScreenToClient", " int(addr hwnd,struct &lpPoint ) " )
+::ClientToScreen = ::User32.api( "ClientToScreen", " int(addr hwnd,struct &lpPoint ) " )
+::MapWindowPoints = ::User32.api( "MapWindowPoints", "int(addr from,addr to,struct &points,INT len)");
+::PtInRect = ::User32.api( "PtInRect", "int(struct, int, int)" );
+::MoveWindow = ::User32.api( "MoveWindow", "int( addr hwnd, int x,int y,int w,int h,bool repaint)" )  
+::SetWindowPos = ::User32.api("SetWindowPos","boolean(addr hwnd,addr hwndlnsertAfter,int X,int Y,int cx,int cy,int Flags)")
+::BeginDeferWindowPos = ::User32.api( "BeginDeferWindowPos", "ptr(int numWins)" )  
+::DeferWindowPos = ::User32.api( "DeferWindowPos", "ptr(PTR hWinPo,addr hwnd,addr instAffer,int x,int y, int cx, int Cy,INT fags)" )  
+::EndDeferWindowPos = ::User32.api( "EndDeferWindowPos", "bool(PTR hWinPos)" )   
+::RegisterWindowMessage = ::User32.api("RegisterWindowMessageW","INT(ustring)");
+::PostMessage = ::User32.api("PostMessageW","addr(addr hwnd,INT msg,ADDR wParam,addr lParam)")
+::PostThreadMessage = ::User32.api("PostThreadMessageW","addr(int idThread,INT msg,ADDR wParam,addr lParam)"); 
+::SendMessage = ::User32.api("SendMessageW","addr(addr hwnd,INT msg,ptr wParam,ptr lParam)")
+::SendMessageInt = ::User32.api("SendMessageW","addr(addr hwnd,INT msg,ADDR wParam,addr lParam)")
+::SendMessageByInt = ::User32.api("SendMessageW","addr(addr hwnd,INT msg,int &wParam,int &lParam)")
+::SendMessageByString = ::User32.api("SendMessageW","addr(int,INT,int,string &lParam)")
+::SendMessageByStr = ::User32.api("SendMessageW","addr(int,INT,int,ustring &lParam)")
+::SendMessageByStruct = ::User32.api("SendMessageW","addr(int,INT,int,struct &lParam)") 
+::SendMessageTimeout = ::User32.api("SendMessageTimeoutW","addr(addr hwnd,INT msg,ptr wParam,ptr lParam,INT flags,INT timeout,int & resultult)") 
+::LoadImage = ::User32.api("LoadImageW", "ptr(ptr hInst,ustring name,INT uType,int cxDesired,int CyDesire,INT fuLoad)") 
+::CopyImage = ::User32.api("CopyImageW", "ptr(ptr hlmage, INT uType,int cx,int cy,INT flags)") 
+::LoadBitmap = ::User32.api("LoadBitmapW", "ptr(ptr,ustring)")  
+::LoadIcon = ::User32.api("LoadIconW", "ptr(ptr,ustring)")      
+::LoadCursor = ::User32.api("LoadCursorW", "ptr(ptr,ustring)") 
+::GetCursor = ::User32.api("GetCursor","ptr()")
+::SetCursor = ::User32.api("SetCursor","int(ptr hCur)")
+::DestroyIcon = ::User32.api("DestroyIcon","int(ptr hIcon)")
+::DestroyCursor = ::User32.api("DestroyCursor","int(ptr hCursor)")
+::GetClassInfoEx = ::User32.api("GetClassInfoEx", "int(ptr,utf16,struct&)")
+::RegisterClassEx = ::User32.api( "RegisterClassEx", " word(struct wc) " )  
+/*end intellisense*/
+
+::GetAsyncKeyState := ::User32.api("GetAsyncKeyState","word(int vKey)" );
+::GetKeyState := ::User32.api("GetKeyState","word(int vKey)" );
+
+/**intellisense()
+win.api = 用于声明 win 用到的全局 WinAPI
+end intellisense**/

package/aardio/lib/win/appBar.aardio

@@ -0,0 +1,136 @@
+//appBar 桌面任务栏
+namespace win.appBar;
+
+class APPBARDATA {
+  	INT cbSize = 36;
+  	addr hwnd;
+  	INT uCallbackMessage;
+  	INT uEdge;
+  	struct rc = {
+  		int left;
+		int top;
+		int right;
+		int bottom
+  	}
+  	addr lParam;
+}
+
+message = function(msg,data){ 
+	data = ..table.mix(APPBARDATA(),data); 
+	return ::Shell32.SHAppBarMessage( msg,data );
+}; 
+
+regist = function(hwnd,msg){
+	return message( 0x0/*_ABM_NEW*/,{
+		hwnd = hwnd;
+		uCallbackMessage = msg;
+	} );
+};
+
+unRegist = function(hwnd){
+	return message( 0x1/*_ABM_REMOVE*/,{
+		hwnd = hwnd;
+	} );  
+}; 
+
+autoHide = function(hwnd,hide){ 
+	return message( 0xA/*_ABM_SETSTATE*/,{
+		hwnd = hwnd;
+		lParam = hide ? 0x1/*_ABS_AUTOHIDE*/ : 0x2/*_ABS_ALWAYSONTOP*/
+	} );
+}; 
+
+isAutoHide = function(hwnd){
+	return 1 == message( 0x4/*_ABM_GETSTATE*/,{
+		hwnd = hwnd;
+	} );
+};
+	
+setAutoHideBar = function(hwnd,edge){
+	return message( 0x8/*_ABM_SETAUTOHIDEBAR*/,{
+		hwnd = hwnd;
+		uEdge = edge;
+	} );
+}; 
+
+getAutoHideBar = function() {
+	return message( 7,{uEdge = 0/*_ABE_LEFT*/ }), message( 7,{uEdge = 1/*_ABE_TOP*/}),
+		   message( 7,{uEdge = 2/*_ABE_RIGHT*/}), ( message( 7,{uEdge = 3/*_ABE_BOTTOM*/}) );
+}
+
+find = function(){
+	return ::User32.FindWindowW("Shell_TrayWnd",null);
+}
+
+command = function(cmd,lParam){
+	var hwnd = find();
+	if(hwnd) ::User32.SendMessage(hwnd,0x111/*_WM_COMMAND*/,cmd,lParam:0);
+}
+
+getTaskBar = function(){ 
+	var data = APPBARDATA();
+	data.hwnd = ::User32.FindWindowW("Shell_TrayWnd",null);
+	data.state = ::Shell32.SHAppBarMessage(0x4/*_ABM_GETSTATE*/,data); 
+	var ret,data =  ::Shell32.SHAppBarMessage(0x5/*_ABM_GETTASKBARPOS*/,data);
+	if(!ret) return;
+	
+	var rc = data.rc; 
+    if (rc.top == rc.left ){ 
+        data.uEdge = rc.bottom < rc.right ? 1/*_ABE_TOP*/ :   0/*_ABE_LEFT*/; 
+    }
+    else {
+        data.uEdge = (rc.top > rc.left) ? 3/*_ABE_BOTTOM*/ : 2/*_ABE_RIGHT*/;;
+    }
+         
+	return data;
+};  
+
+/**intellisense(win.appBar)
+message(.(_ABM__,{} ) = 发送任务栏命令,\n可选在第二个参数中使用表对象指定APPBARDATA属性
+command(__) = 发送命令,\n参数@1指定命令 ID，参数为 419 可显示桌面。
+find() = 返回系统任务栏句柄
+getTaskBar() = 返回系统任务栏信息,失败返回null\n!STDAPPBARDATA.
+getAutoHideBar() = 返回左,上,右,下四个被设置为自动隐藏的任务栏句柄
+setAutoHideBar(.( 任务栏句柄,_ABE_BOTTOM ) = 设置为自动停靠
+regist(.(窗口句柄,自定义回调消息ID) = 将窗口注册接收任务栏通知消息,例如 _ABN_FULLSCREENAPP
+unRegist(.(窗口句柄) = 取消注册的任务栏回调消息
+autoHide(.( 任务栏句柄,true) = 设置为自动隐藏
+autoHide(.( 任务栏句柄,false) = 取消自动隐藏
+isAutoHide(.( 任务栏句柄 ) = 任务栏是否自动隐藏
+end intellisense**/
+
+/**intellisense()
+win.appBar = 任务栏
+win.appBar(.(句柄) = 可选指定句柄,\n可选在第二个参数中使用表对象指定APPBARDATA属性
+win.appBar() = !win_appBar. 
+!STDAPPBARDATA.hwnd = 窗口句柄
+!STDAPPBARDATA.state = 状态\n_ABS_前缀常量
+!STDAPPBARDATA.rc = 屏幕区块位置
+!STDAPPBARDATA.rc.left = 左
+!STDAPPBARDATA.rc.top = 上
+!STDAPPBARDATA.rc.right = 右
+!STDAPPBARDATA.rc.bottom = 下
+!STDAPPBARDATA.uEdge = 状态栏靠在屏幕哪个边\n_ABE_ 前缀常量
+
+_ABS_ALWAYSONTOP=@0x2/*_ABS_ALWAYSONTOP*/
+_ABS_AUTOHIDE=@0x1/*_ABS_AUTOHIDE*/
+_ABE_BOTTOM=@0x3/*_ABE_BOTTOM*/
+_ABE_LEFT=@0x0/*_ABE_LEFT*/
+_ABE_RIGHT=@0x2/*_ABE_RIGHT*/
+_ABE_TOP=@0x1/*_ABE_TOP*/
+_ABM_SETSTATE=@0xA/*_ABM_SETSTATE*/
+_ABM_ACTIVATE=@0x6/*_ABM_ACTIVATE*/
+_ABM_GETAUTOHIDEBAR=@0x7/*_ABM_GETAUTOHIDEBAR*/
+_ABM_GETSTATE=@0x4/*_ABM_GETSTATE*/
+_ABM_GETTASKBARPOS=@0x5/*_ABM_GETTASKBARPOS*/
+_ABM_NEW=@0x0/*_ABM_NEW*/
+_ABM_QUERYPOS=@0x2/*_ABM_QUERYPOS*/
+_ABM_REMOVE=@0x1/*_ABM_REMOVE*/
+_ABM_SETAUTOHIDEBAR=@0x8/*_ABM_SETAUTOHIDEBAR*/
+_ABM_SETPOS=@0x3/*_ABM_SETPOS*/
+_ABM_WINDOWPOSCHANGED=@0x9/*_ABM_WINDOWPOSCHANGED*/
+_ABN_FULLSCREENAPP=@0x2/*_ABN_FULLSCREENAPP*/
+_ABN_POSCHANGED=@0x1/*_ABN_POSCHANGED*/
+_ABN_STATECHANGE=@0x0/*_ABN_STATECHANGE*/
+_ABN_WINDOWARRANGE=@0x3/*_ABN_WINDOWARRANGE*/
+end intellisense**/

package/aardio/lib/win/clip/_.aardio

@@ -0,0 +1,83 @@
+namespace win.clip;
+  
+readUnicode = function(){
+	if(!::User32.OpenClipboard(0)) return;
+		
+	var txt;	
+	var hClip =  User32.GetClipboardDataP(0xD/*_CF_UNICODETEXT*/);
+	if(hClip){
+		var p = ::GlobalLock(hClip)
+		if(p){ 
+			txt = ..raw.str(p,true);
+			::GlobalUnlock(hClip)
+		}
+	} 
+	::User32.CloseClipboard();  
+
+	return txt;
+}
+
+read = function(){ 
+	var s = readUnicode();
+	if(s) return ..string.fromto(readUnicode(),0,65001);
+}
+
+write = function(str,rep){ 
+	str = ..string.toUnicode(str);
+	if(!str) return;
+	
+	if(!::User32.OpenClipboard(0)) return;
+	if(rep===null || rep) User32.EmptyClipboard();
+	
+	var clipbuffer = ::GlobalAlloc(0x2000/*_GMEM_DDESHARE*/, #str+2);
+    var buffer =  ::GlobalLock(clipbuffer);
+    
+    ::CopyMemory(buffer,str,#str+2); 
+	::GlobalUnlock(clipbuffer); 
+	
+	var hdl =  ::User32.SetClipboardDataP(0xD/*_CF_UNICODETEXT*/,clipbuffer);
+	::User32.CloseClipboard();
+	return hdl;
+}
+
+writeBitmap = function(hBmp,own,rep){ 
+	if(!::User32.OpenClipboard(0)) return;
+	if(rep===null || rep) User32.EmptyClipboard(); 
+	  
+	if(!own) hBmp = ::User32.CopyImageP(hBmp,0x0/*_IMAGE_BITMAP*/,0,0,0x4/*_LR_COPYRETURNORG*/) 
+	var hdl = ::User32.SetClipboardDataP (0x2/*_CF_BITMAP*/,hBmp);
+	::User32.CloseClipboard();
+	return hdl;
+}
+
+readBitmap = function(){ 
+	if(!::User32.OpenClipboard(0))
+		return;	 
+		
+	var hBmp = User32.GetClipboardDataP(0x2/*_CF_BITMAP*/);  
+	hBmp = hBmp ? ::User32.CopyImageP(hBmp,0/*_IMAGE_BITMAP*/, 0, 0, 0x40/*_LR_DEFAULTSIZE*/)
+	::User32.CloseClipboard();  
+	return hBmp;
+}
+
+formats = function(){
+	if(!::User32.OpenClipboard(0)) return;	 
+	
+	var r = {}	
+	for f in lambda(f) ::User32.EnumClipboardFormats(f) : null {
+		..table.push(r,f);
+	}	
+	  
+	::User32.CloseClipboard();
+	return r;
+}
+
+/**intellisense(win.clip)
+readUnicode() = 读取剪贴板UTF16编码文本
+read() = 读取剪贴板文本
+write(__) = 写入文本到剪贴板,\n可选使用参数@2指定在复制前是否清空剪贴板,默认清空,\n成功返回剪贴板数据句柄
+writeBitmap( = 写入位图到剪贴板,\n成功返回剪贴板数据句柄
+writeBitmap(.(位图句柄,接管位图,清空剪贴板) = 写入位图到剪贴板\n\n除位图句柄以外其他参数为可选参数。\n└── gdip.bitmap 对象请调用 copyHandle 函数复制位图句柄\n└── com.picture 对象请调用 CopyHandle 函数复制位图句柄\n如果接管位图参数为 true，则由剪贴板负责释放参数指定的位图。\n└── 否则会复制位图到剪贴板，且不负责释放参数传入的位图句柄。\n└── 请谨慎处理位图释放责任。\n如清空剪贴板参数为 false（默认为 true），则保留剪贴板其他格式数据
+readBitmap() = 读取剪贴板位图句柄，\n返回的位图句柄用完要自行销毁。\n读取失败返回 null 。\n└── 请谨慎处理位图释放责任。\n\n可使用 com.picture.fromBitmap 将位图句柄转换为 com.picture 对象。\n可使用 gdip.bitmap 构造函数将位图句柄转换为 gdip.bitmap 对象
+formats() = 获取剪贴板所有可用类型,\n位置越靠前优先级越高,应优先使用,\n返回值为数组,数组元素为表示格式的数值,例如 _CF_UNICODETEXT 
+end intellisense**/

package/aardio/lib/win/clip/file.aardio

@@ -0,0 +1,94 @@
+//file 剪贴板文件
+import win;
+namespace win.clip.file;
+  
+class DROPFILES{ 
+   INT pFiles = 20; 
+   struct pt = {int x;int y};
+   bool fNC;
+   bool fWide = true;    
+}
+var uDropEffect = ::User32.RegisterClipboardFormat('Preferred DropEffect') 
+
+write = function(file,effect="copy",rep){
+	
+    if(type(file)=="table"){
+        var t ={}
+        for(i=1;#file;1) t[i] = ..io.fullpath(file[i]); 
+    	file = ..string.join(t,'\0')
+    }
+    else {
+    	file = ..io.fullpath(file);
+    }
+     
+    if(!#file) error("参数错误",2);
+	file = ..string.toUnicode(file);
+	
+	if(!::User32.OpenClipboard(0)) return;	 
+	if(rep===null || rep) ::User32.EmptyClipboard();
+
+	var gBuffer = ::GlobalAlloc(0x40/*_GMEM_ZEROINIT*/ | 0x2/*_GMEM_MOVEABLE*/ | 0x2000/*_GMEM_DDESHARE*/, 4);
+    var pBuffer =  ::GlobalLock(gBuffer);
+     
+    ::CopyMemoryByStruct(pBuffer,{int effect = ( effect="copy"? 1/*_DROPEFFECT_COPY*/ :2/*_DROPEFFECT_MOVE*/)  },4);
+    ::GlobalUnlock(gBuffer);
+    
+    ::User32.SetClipboardDataP(uDropEffect,gBuffer); 
+		
+	var gBuffer = ::GlobalAlloc(0x40/*_GMEM_ZEROINIT*/ | 0x2/*_GMEM_MOVEABLE*/ | 0x2000/*_GMEM_DDESHARE*/
+		, 20 + #file + 4);
+    var pBuffer =  ::GlobalLock(gBuffer);
+    var stDrop = DROPFILES();
+    
+    ::CopyMemoryByStruct(pBuffer,stDrop,20/*raw.sizeof(DROPFILES()*/); 
+    ::CopyMemory(topointer(pBuffer,20),file,#file);
+	::GlobalUnlock(gBuffer); 
+	
+	var hdl = ::User32.SetClipboardDataP(0xF/*_CF_HDROP*/,gBuffer);
+	::User32.CloseClipboard();
+	return hdl;
+}
+
+read = function(){
+
+	if(!::User32.OpenClipboard(0))
+		return;	
+	
+	var file = {}; 
+	var effect;
+	var hdrop = ::User32.GetClipboardDataP(15);
+	if(hdrop) {
+		effect = topointer(::User32.GetClipboardData(uDropEffect) );
+		if( !effect)
+			 effect = "copy"
+		else {
+			effect  = ..raw.convert(effect,{int num}).num;
+			if(  effect & 1/*_DROPEFFECT_COPY*/  )
+				effect = "copy"
+			elseif( effect & 2/*_DROPEFFECT_MOVE*/ )
+				effect = "move"	 
+		}
+		
+		file = ..win.getDropFile(hdrop,false/*不可释放*/) 
+    }
+     
+	::User32.CloseClipboard() 
+	
+	return file,effect;
+}
+
+/**intellisense(win.clip.file)
+read() = 返回剪贴板文件路径数组,\n第二个返回值指明复制类型,复制为"copy",剪切则为"move"
+write(.(文件路径) = 将文件复制到剪贴板\n可选使用参数@3指定在复制前是否清空剪贴板,默认清空
+write(.(文件路径,"copy") = 将文件复制到剪贴板\n参数@1可用字符串或字符串数组指定一个或多个文件路径\n可选使用参数@3指定在复制前是否清空剪贴板,默认清空
+write(.(文件路径,"move") = 将文件剪切到剪贴板\n参数@1可用字符串或字符串数组指定一个或多个文件路径\n可选使用参数@3指定在复制前是否清空剪贴板,默认清空
+end intellisense**/
+
+ /**intellisense()
+_CF_HDROP=@0xF/*_CF_HDROP*/
+_DROPEFFECT_NONE=@0/*_DROPEFFECT_NONE*/
+_DROPEFFECT_COPY=@1/*_DROPEFFECT_COPY*/
+_DROPEFFECT_MOVE=@2/*_DROPEFFECT_MOVE*/
+_DROPEFFECT_LINK=@4/*_DROPEFFECT_LINK*/
+_DROPEFFECT_SCROLL=@0x80000000/*_DROPEFFECT_SCROLL*/
+end intellisense**/

package/aardio/lib/win/clip/gif.aardio

@@ -0,0 +1,30 @@
+//gif 动画
+import win.clip;
+import win.clip.file;
+import win.clip.html;
+import gdip.bitmap;
+import crypt;
+
+namespace win.clip.gif;
+
+write = function(path){ 
+	
+	path = ..io.fullpath(path);
+	..win.clip.file.write(path,"copy",true)
+	
+	var bmp = ..gdip.bitmap(path);
+	if(bmp){
+		..win.clip.writeBitmap(bmp.copyHandle(),true,false);
+		bmp.dispose();
+	}
+	
+	var html = ..win.clip.html();
+	var dataUrl = ..string.format('data:image/gif;base64,%s'
+		,..crypt.encodeBin( ..string.loadBuffer(path),,0x40000001/*_CRYPT_STRING_BASE64*/) ); 
+		
+	html.write(`<img src="`+ dataUrl+`" />`,,false);
+} 
+
+/**intellisense()
+win.clip.gif.write(__) = 复制 GIF 动画到剪贴板,\n参数指定*.gif 文件路径\n剪贴板虽没有 GIF 专有格式,但是这个函数拥有良好的兼容性
+end intellisense**/

package/aardio/lib/win/clip/html.aardio

@@ -0,0 +1,128 @@
+//html 复制操作
+import win.clip;
+import util.metaProperty;
+namespace win.clip;
+
+class html{
+	@_metaProperty;
+}
+
+namespace html{
+
+	CF_HTML = ::User32.RegisterClipboardFormat("HTML Format"); 
+	_metaProperty = ..util.metaProperty(
+		read = function(){
+			var cbHtml;
+			if(!::User32.OpenClipboard(0))
+				return;	
+				
+			var hClip = ::User32.GetClipboardDataP(CF_HTML);
+			if(hClip){
+				var p = ::GlobalLock(hClip)
+				if(p){ 
+					cbHtml = ..raw.str(p);
+					::GlobalUnlock(hClip)
+				}
+			} 
+			::User32.CloseClipboard();
+			if( cbHtml && owner.parse(cbHtml)) return owner;
+		}
+		write = function(htmlFragment,utf8,rep){
+			var cbHtml = owner.stringify(htmlFragment,utf8)
+			if(cbHtml){
+				if(!::User32.OpenClipboard(0))
+					return;	
+						
+				if(rep===null || rep) ::User32.EmptyClipboard();
+				 
+				var clipbuffer = ::GlobalAlloc(0x2000/*_GMEM_DDESHARE*/, #cbHtml+1);
+    			var buffer =  ::GlobalLock(clipbuffer); 
+    			::CopyMemory(buffer,cbHtml,#cbHtml+1); 
+				::GlobalUnlock(clipbuffer); 
+				
+				var hdl =  ::User32.SetClipboardDataP(CF_HTML,clipbuffer);
+				::User32.CloseClipboard();
+				return hdl;
+			} 
+		}
+		stringify = function(htmlFragment,utf8){
+			if( utf8 === null ) utf8 = true;
+			
+			if( htmlFragment ){
+				var startFragment = ..string.find(htmlFragment,"@<!--StartFragment-->");
+				var endFragment = ..string.find(htmlFragment,"@<!--EndFragment-->");
+				if( startFragment ){
+					owner[["html"]] = htmlFragment; 
+				}
+				else {
+					owner[["fragment"]] = htmlFragment;
+					owner[["html"]] = null;
+				}
+			}
+			
+			var cbHtml='Version:1.0\r\nStartHTML:000000000\r\nEndHTML:000000000\r\nStartFragment:000000000\r\nEndFragment:000000000\r\n';
+			
+			var cbData  = owner[["html"]];
+			
+			if(!cbData ){
+				if( owner[["fragment"]] ){
+					var fragment = owner[["fragment"]]  
+					owner[["html"]] = ..string.format("<html><body><!--StartFragment-->%s<!--EndFragment--></body></html>",fragment )
+					cbData  = owner[["html"]];
+					
+				}
+				else{
+					return;
+				}
+			}
+
+			if(!utf8) cbData  = ..string.fromto(cbData ,0,65001);
+			var startFragment = ..string.find(cbData ,"@<!--StartFragment-->");
+			var endFragment = ..string.find(cbData ,"@<!--EndFragment-->");
+			cbHtml = ..string.replace( cbHtml,"StartFragment\:000000000","StartFragment:" + ..string.format("%09d",#cbHtml + startFragment + #"<!--StartFragment--" ) )
+			cbHtml = ..string.replace( cbHtml,"EndFragment\:000000000","EndFragment:" + ..string.format("%09d",#cbHtml + endFragment - 1  ) )
+			cbHtml = ..string.replace( cbHtml,"StartHTML\:000000000","StartHTML:" + ..string.format("%09d", #cbHtml) )
+			cbHtml = ..string.replace( cbHtml,"EndHTML\:000000000","EndHTML:" + ..string.format("%09d", #cbHtml + #cbData) )
+			owner[["ClipboardData"]] = cbHtml + cbData ;
+			
+			return owner[["ClipboardData"]];
+		}
+		parse = function(cbData ,utf8){
+			if( utf8 === null ) utf8 = true;
+			if(!utf8) cbData  = ..string.fromto(cbData ,0,65001);
+			var startHTML = ..string.match(cbData ,"StartHTML\:(\d+)")
+			var headstr = ..string.slice(cbData ,1,tonumber(startHTML,10)-1);
+
+			var head = {}
+   	    	for k,v in ..string.gmatch(headstr ,"([^\:\r\n]+)\:([^\r\n]+)") { 
+   	    		if( ..string.match(v,"^\d+$") ) v = tonumber(v,10)
+   	    		head[k] = v;
+   	    	}
+   	    	
+   	    	if(head.StartHTML===null)return false;
+   	    	if(head.StartFragment===null)return false;
+			owner[["ClipboardData"]] = cbData ; 
+   	    	owner[["head"]] = head;
+   	    	owner[["html"]] = ..string.slice(cbData ,head.StartHTML+1,head.EndHTML);
+   	    	owner[["fragment"]] =  ..string.slice( cbData ,head.StartFragment+1,head.EndFragment);
+   	    	return owner; 
+		}
+	)
+}
+
+/**intellisense()
+win.clip.html = 剪贴板HTML操作
+win.clip.html() = 创建剪贴板HTML对象\n!win_clip_html.
+!win_clip_html.parse(.(剪贴板数据,是否UTF8) = 解析剪贴板数据,\n参数@2默认为true,注意HTML在剪贴板为UTF8编码\n成功返回对象自身
+!win_clip_html.stringify(.(HTML,是否UTF8) = 参数@1如果省略则获取对象的html或fragment属性生成复制数据,\n成功返回可写入剪贴板的数据
+!win_clip_html.write(.(剪贴板数据,是否UTF8) = 参数@1如果省略则获取对象的html或fragment属性生成复制数据,\n可选使用参数@3指定在复制前是否清空剪贴板,默认清空,\n成功返回剪贴板数据句柄
+!win_clip_html.read() = 读取并解析剪贴板HTML\n成功返回对象自身\n!win_clip_html.
+!win_clip_html.parse() = !win_clip_html.
+!win_clip_html.ClipboardData  = 剪贴板数据,UTF8编码\n该属性在解析剪贴板数据时自动生成,不要修改该属性
+!win_clip_html.StartFragment = 复制的片段开始位置\n该属性在解析剪贴板数据时自动生成,不要修改该属性
+!win_clip_html.EndFragment = 复制的片段结束位置\n该属性在解析剪贴板数据时自动生成,不要修改该属性
+!win_clip_html.StartHTML = HTML开始位置\n该属性在解析剪贴板数据时自动生成,不要修改该属性
+!win_clip_html.EndHTML = HTML结束位置\n不要修改该属性
+!win_clip_html.html = HTML
+!win_clip_html.fragment = HTML中需要复制的片段
+end intellisense**/

package/aardio/lib/win/clip/png.aardio

@@ -0,0 +1,47 @@
+//png 图像
+namespace win.clip;
+
+namespace png{
+
+	CF_PNG = ::User32.RegisterClipboardFormat("PNG"); 
+ 
+	read = function(){
+		var buf;
+		if(!::User32.OpenClipboard(0))
+			return;	
+			
+		var hClip =  ::User32.GetClipboardDataP(CF_PNG);
+		if(hClip){
+			var p = ::GlobalLock(hClip)
+			if(p){ 
+				buf = ..raw.buffer(::GlobalSize(hClip),p);
+				::GlobalUnlock(hClip)
+			}
+		} 
+		::User32.CloseClipboard();
+		return buf;
+	};
+	write = function(buf,rep){ 
+		if(buf){
+			if(!::User32.OpenClipboard(0))
+				return;	
+					
+			if(rep===null || rep) ::User32.EmptyClipboard();
+				
+			var clipbuffer = ::GlobalAlloc(0x2000/*_GMEM_DDESHARE*/, #buf);
+    		var p =  ::GlobalLock(clipbuffer); 
+    		::CopyMemory(p,buf,#buf); 
+			::GlobalUnlock(clipbuffer); 
+			
+			var hdl =  ::User32.SetClipboardDataP(CF_PNG,clipbuffer);
+			::User32.CloseClipboard();
+			return hdl;
+		} 
+	};  
+}
+
+/**intellisense()
+win.clip.png = 剪贴板读写 PNG 
+win.clip.png.write(.(剪贴板数据,是否清空剪贴板) = 写入 PNG 数据，参数@1为 buffer 或 string  对象，\n可选使用参数@2指定在复制前是否清空剪贴板,默认清空,\n成功返回剪贴板数据句柄
+win.clip.png.read() = 读取并解析剪贴板 PNG 数据\n成功返回 buffer 对象
+end intellisense**/