aview-app 1.0.2

package/aardio/lib/winex/accObject/_.aardio

@@ -0,0 +1,287 @@
+import com;
+
+namespace winex;
+
+class accObject{
+	ctor( accObject,childId ){
+		this = element(accObject,childId);
+		if(!childId){
+			this.unkAccessible = ..com.GetIUnknown(this.accObject,"{618736E0-3C3D-11CF-810C-00AA00389B71}")
+			this.type = "object";	
+		}
+	};
+	release = function(){
+		if(this.accObject ){
+			..com.Release(this.accObject);
+			this.accObject = null;
+		}
+	};
+	selection = function(){
+		var r;
+		try{ r = this.accObject.accSelection() }
+		
+		var result = {};
+		if(type(r)==type.number){ 
+			..table.push(result,element(this.accObject,r))
+		}
+		elseif(..com.IsObject(r)){ 
+			..table.push(result,..winex.accObject(r)); 
+		}
+		elseif(r){  
+			for index,item in ..com.each(r) {
+				if(type(item)==type.number){
+					..table.push(result,element(this.accObject,item))
+				}
+				elseif(..com.IsObject(item)){ 
+					..table.push(result,..winex.accObject(item)); 
+				}
+			}  
+		} 
+		else {
+			return;
+		}
+		
+		return result;
+		
+	};
+	hitTest = function(x,y){
+		var r;
+		try{
+			r = this.accObject.accHitTest(x,y)
+		}
+		
+		if(type(r)==type.number){
+			return element(this.accObject,r)
+		}
+		elseif(..com.IsObject(r)){ 
+			return ..winex.accObject(r); 
+		}
+		else {
+			return r;
+		}
+	};
+	focus = function(){
+		var r;
+		try{
+			r = this.accObject.accFocus()
+		}
+		if(type(r)==type.number){
+			return element(this.accObject,r)
+		}
+		elseif(..com.IsObject(r)){ 
+			return ..winex.accObject(r); 
+		}
+		else {
+			return r;
+		}
+	};
+	childCount = function(){
+		return this.accObject.accChildCount;
+	}
+	each =  function(options){
+		var childCount = this.accObject.accChildCount;
+		var children = ..raw.buffer( 16/*sizeof(Variant)*/ * childCount ); 
+		var obtained = {int size}; 
+		if(!childCount || !this.unkAccessible){
+			return function(){}; 
+		}
+		
+		var hr,obtained = ::OleAcc.AccessibleChildren(this.unkAccessible, 0,childCount, children,obtained);
+		if( hr < 0 ) return function(){};
+
+		var i = 0;
+		var size = obtained.size;
+		var next = function(){
+			i++;
+			if(i>size) return;
+
+			var p = ..raw.toPointer(children,16*(i-1)); 
+			var variant = ..com.Variant( p,true);
+			::OleAut32.VariantClear(p);  
+			 
+			if(variant.vt!= 9/*_VT_DISPATCH*/ ){
+				var ret = element(this.accObject,variant.value);
+				variant.clear();
+				return ret;
+			}
+			else{
+				var accChild = ..com.QueryObject( variant.pdispVal ); 
+				variant.clear();
+				
+				if(accChild) {
+					return ..winex.accObject(accChild);
+				} 
+			} 
+		}
+		
+		var optStateType = options ? type(options.state);
+		var optRoleType = options ? type(options.role);
+		
+		return function(){
+			while( var accChild = next() ) {
+				if(!options){ return accChild;}
+				
+				if(#options.name && !..string.match(accChild.name():"",options.name) ){
+					continue;
+				}
+				 
+				if( optStateType == "number"  && (accChild.state() != options.state) ){
+					continue;
+				}
+				
+				if( optStateType == "string" && !..string.match(accChild.stateText():"",options.state ) ){
+					continue;
+				}
+			
+				if( optRoleType == "number"  && (accChild.role() != options.role) ){
+					continue;
+				}
+				
+				if( optRoleType == "string" && !..string.match(accChild.roleText():"",options.role ) ){
+					continue;
+				} 
+				
+				if(#options.value && !..string.match(accChild.value():"",options.value) ){
+					continue;
+				}
+				
+				if(#options.shortcut && !..string.match(accChild.keyboardShortcut():"",options.keyboardShortcut) ){
+					continue;
+				}
+				
+				if(options.number){
+					options.lastNumber = (options.lastNumber:0) + 1;
+					if(options.number!=options.lastNumber){
+						return;
+					}
+				}
+				
+				return element;	
+			}
+		}
+	};
+	find = function(options){
+		var accResult;
+		options.lastNumber = 0;
+		
+		this.enum(
+			function(accChild,accParent){
+				accResult = accChild; 
+				return false;
+			},options
+		) 
+		
+		return accResult;	
+	};
+}
+
+import ..winex.accObject.element;
+
+namespace accObject{
+		
+	::OleAut32  := ..raw.loadDll("OleAut32.dll")
+	::OleAcc := ..raw.loadDll("OLEACC.DLL");
+
+	IID_IAccessible = '\xE0\x36\x87\x61\x3D\x3C\xCF\x11\x81\x0C\x00\xAA\x00\x38\x9B\x71'
+	fromWindow = function(hwnd,iid,objId){ 
+		if(!hwnd){
+			hwnd = ::User32.GetForegroundWindow();
+		}
+		
+		var pvObject = {ptr p} 
+		if( 0 == ::OleAcc.AccessibleObjectFromWindow(hwnd,objId:0,iid:IID_IAccessible,pvObject) ){
+			var accObject = ..com.QueryObjectR( pvObject.p ); //转换为COM对象(COM.IDispatch)
+			return ..winex.accObject( accObject );
+		}   	
+	}  
+	
+	getCaret = function(hwnd,iid){ 
+		var accObj = fromWindow(hwnd,iid, 0xFFFFFFF8/*_OBJID_CARET*/);
+		if(accObj){
+			var x,y,cx,cy = accObj.location();
+			accObj.release();
+			
+			if(y!==null && ( (y+cy) || y ) ){
+				var rc = ::RECT(x,y,x+cx,y+cy);
+				rc.hwnd = hwnd;
+				return rc;
+			}
+		}
+	}
+	
+	focus = function(){
+		var obj = fromWindow();
+		if(obj){
+			return obj.focusElement();
+		}
+	}
+	
+	fromPoint = function(x,y){ 
+		
+		var pvObject = {ptr p} 
+		var varElement  = ..com.Variant(0);
+		if( 0 == ::OleAcc.AccessibleObjectFromPoint(
+			//传值结构体{int x;int y}需要展开为x,y参数
+			x,y,pvObject,varElement) ){
+		 
+			var accObject = ..com.QueryObject( pvObject.p ); //转换为COM对象(COM.IDispatch)
+			..com.Release(pvObject.p);
+			
+			return ..winex.accObject( accObject,varElement.value );
+		}   	
+	}  
+	
+	version = function(){
+		var ver = {WORD minor;WORD major}
+		var build = {WORD minor;WORD major}
+		::OleAcc.GetOleaccVersionInfo(ver,build);
+		return ver.major +"."+ ver.minor +"."+  build.major +"."+  build.minor;
+	} 
+}
+
+/**intellisense()
+winex.accObject = Microsoft Active Accessibility 自动化接口\n[微软接口文档]( https://docs.microsoft.com/en-us/windows/win32/api/oleacc/nn-oleacc-iaccessible )\n[ACC对象浏览工具]( http://download.aardio.com/v10.files/tool/Inspect.7z )
+winex.accObject.fromWindow(.(hwnd,iid) = 自hwnd窗口句柄返回AccessibleObject,\n省略hwnd参数时取前台窗口句柄,\niid参数可省略
+winex.accObject.fromWindow() = !winex_accObject.
+winex.accObject.fromPoint(.(x,y) = 自屏幕坐标返回AccessibleObject
+winex.accObject.fromPoint() = !winex_accObject.
+winex.accObject.focus() = 返回前台窗口输入焦点元素\n!winex_accObject.
+winex.accObject.getCaret(__/*可选指定窗口句柄*/) = 获取指定参数@1指定句柄的窗口光标区块位置，\n不指定参数获取前台窗口光标区块位置。\n成功返回 ::RECT 结构体（添加 hwnd 成员记录光标所在窗口句柄），\n失败返回 null\n\n不是所有窗口都支持，\n建议 winex.getCaret 函数获取光标位置失败再调用此函数
+accObject = !winex_accObject.
+winex.accObject.version() = 返回MSAA组件版本
+end intellisense**/
+
+/**intellisense(!winex_accObject)
+type = 节点类型，可包含子元素的容器元素返回"object"，否则返回"element"
+name() = 元素的名字
+setName(_) = 设置元素的名字,\n参数指定文本，成功返回true，\n注意有些控件没有实现这个接口时会返回null
+value() = 元素的文本值
+setValue(__) = 设置文本值,\n参数指定文本，成功返回true，\n注意有些控件没有实现这个接口时会返回null
+takeFocus() = 设置为焦点
+takeSelection() = 设置为选定，成功返回true
+extendSelection() = 扩展到选区，成功返回true
+addSelection() = 添加到选区，成功返回true
+removeSelection() = 自选区移除，成功返回true
+selection() = 返回包含选区元素数组\n!winex_accObject.
+focus() = 返回输入焦点元素，仅在子级查找。\n!winex_accObject.
+focusElement() = 返回输入焦点元素\n!winex_accObject.
+hitTest(.(x,y) = 自屏幕坐标查找子元素
+childCount() =  子元素总数
+role() =  返回表示角色的数值
+roleText() = 返回表示角色的文本
+state() =  返回表示状态的数值
+stateText() = 返回表示状态的文本
+location() =  返回4个值x,y,cx,cy，用于描述元素的屏幕位置，\nx为横坐标，y为纵坐标，cx为宽，cy为高。
+keyboardShortcut() =  返回文本用于描述元素的快捷键
+doDefaultAction() = 执行默认操作
+defaultAction() = 返回描述默认元素的文本
+hwnd() = 返回对象所在的窗口句柄
+find(options) = @.find(\n	name = "";\n	role = "__/*可指定一个或多个条件属性值以查找拥有这些属性的元素，\n值为文本时支持模式匹配表达式。\nrole,state 属性值可以为数值，也可以指定文本值。\nnumber 指定要返回第几个匹配查找条件的元素*/";\n	type = "";\n	state = "";\n	value = "";\n	shortcut = "";\n	number = 1;\n)
+enum(pro,options) = @.enum(\n	function(accChild,accParent){\n		__/*枚举所有下级元素，\n调用参数 @options 用法与 winex.accObject.find 参数@1 相同，\naccChild为当前元素，\naccParent为当前元素的父元素*/\n	}\n)
+each(options) = @for accChild in ??.each(){\n	__/*遍历所有子级元素，\n调用参数 @options 用法与 winex.accObject.find 参数@1 相同，\n返回 accChild 为当前元素*/\n}
+each() = !winex_accObject.
+parent() = 返回父元素\n!winex_accObject.
+hitTest() = !winex_accObject.
+find() = !winex_accObject.
+release() = 释放对象，\n释放对象后，通过该对象获取的子节点不能再使用
+end intellisense**/

package/aardio/lib/winex/accObject/element.aardio

@@ -0,0 +1,235 @@
+if(type(winex[["accObject"]])!="class"){
+	error("只能在 winex.accObject中 导入 winex.accObject.element",2)
+}
+
+namespace winex.accObject;
+	
+class element{
+	ctor(accObject,varElement){ 
+		this.accObject = accObject;
+		this.childId = varElement  : 0/*CHILDID_SELF*/;
+		this.type = "element";
+	};
+	name = function(){
+		var r;
+		try{r = this.accObject.accName(this.childId)} 
+		return r;
+	};
+	setName = function(value){
+		var r;
+		try{
+			this.accObject.setAccName(this.childId ,value);
+			r = true;
+		}
+		return r;
+	};
+	value = function(){
+		var r;
+		try{r = this.accObject.accValue(this.childId)} 
+		return r;
+	};
+	setValue = function(value){
+		var r;
+		try{
+			this.accObject.setAccValue(this.childId ,value);
+			r = true;
+		} 
+		
+		return r;
+	};
+	role = function(){
+		var r;
+		try{r = this.accObject.accRole(this.childId)}
+		return r;
+	};
+	roleText =  function(){
+		var roleText;
+		try{ 
+			var role = this.accObject.accRole(this.childId)
+			if(role){ 
+				var len = ::OleAcc.GetRoleTextW(role,null,0);
+				var buf = ..raw.buffer(len*2);
+				len = ::OleAcc.GetRoleTextW(role,buf,len+1/*the terminating null character*/);
+				roleText = ..string.fromUnicode(buf)
+			}
+		}
+		return roleText;
+	};
+	state = function(){
+		var r;
+		try{r = this.accObject.accState(this.childId)}
+		return r;
+	};
+	stateText =  function(){
+		var stateText;
+		try{ 
+			var state = this.accObject.accState(this.childId)
+			if(state){
+				var len = ::OleAcc.GetStateTextW(state,null,0);
+				var buf = ..raw.buffer(len*2);
+				len = ::OleAcc.GetStateTextW(state,buf,len+1/*the terminating null character*/);
+				stateText = ..string.fromUnicode(buf)
+			}
+		}
+		return stateText;
+	};
+	location = function(){ 
+		var x,y,cx,cy;
+		try{
+			x,y,cx,cy = this.accObject.accLocation(0,0,0,0,this.childId)
+		}
+		
+		return x,y,cx,cy;
+	};
+	keyboardShortcut = function(){ 
+		var k;
+		try{
+			k = this.accObject.accKeyboardShortcut(this.childId)
+		}
+		
+		return k;
+	}; 
+	takeFocus = function(){
+		return this.takeSelection(1/*SELFLAG_TAKEFOCUS*/)
+	};
+	takeSelection = function(flags){
+		if(flags===null){
+			flags = 2/*SELFLAG_TAKESELECTION*/
+		}
+		
+		var r;
+		try{
+			this.accObject.accSelect(flags,this.childId);
+			r = true;
+		}
+		 
+		return r;
+	}; 
+	extendSelection = function(){
+		return this.takeSelection(4/*SELFLAG_EXTENDSELECTION*/)
+	};
+	addSelection = function(){
+		return this.select(8/*SELFLAG_ADDSELECTION*/)
+	};
+	removeSelection = function(){
+		return this.select(0x10/*SELFLAG_REMOVESELECTION*/)
+	};
+	selection = function(){};
+	focus = function(){};
+	hitTest = function(){};
+	doDefaultAction = function(){ 
+		var r;
+		try{
+			r = this.accObject.accDoDefaultAction(this.childId)
+		}
+		
+		return r;
+	};
+	defaultAction = function(){ 
+		var r;
+		try{
+			r = this.accObject.accDefaultAction(this.childId)
+		}
+		
+		return r;
+	};
+	childCount = function(){return 0;};
+	parent = function(){
+		var r;
+		try{
+			r = this.accObject.accParent()
+		}
+		
+		return ..winex.accObject(r);
+	};
+	focus = function(){ };
+	focusElement = function(){
+		var r;
+		var next = owner.focus();
+		while(  next  ) { 
+			r = next;
+			next = next.focus() 
+		}
+		return r;
+	};
+	each =  function(options){
+		return function(){}
+	};
+	enum = function(proc,options,parent){
+		if( false === __enumCallback(proc,options,this,parent) ) {
+			return false;
+		}
+	
+		if(this.childId) return;
+		
+		for(accChild in owner.each() ){
+			if( false ===accChild.enum(proc,options,this) ) return false;
+		} 
+	};
+	hwnd = function(){
+		if(this["(hwnd)"]){ return this["(hwnd)"] }
+		
+		if(!this.unkAccessible){
+			this.unkAccessible = ..com.GetIUnknown(this.accObject,"{618736E0-3C3D-11CF-810C-00AA00389B71}")
+		}
+		
+		var phwnd = { addr value; }
+		if( 0 == ::OleAcc.WindowFromAccessibleObject(this.unkAccessible,phwnd) ){
+			this["(hwnd)"] = phwnd.value;
+			return this["(hwnd)"];
+		}
+	};
+	release = function(){ };
+}
+
+namespace element{
+    
+	__enumCallback = function(proc,options,accChild,accParent){
+		if(!options){ return proc(accChild,accParent);}
+			
+		if(#options.name && !..string.match(accChild.name():"",options.name) ){
+			return;
+		}
+		
+		if(#options.value && !..string.match(accChild.value():"",options.value ) ){
+			return;
+		}
+		
+		var optStateType = options ? type(options.state);
+		
+		if( optStateType == "number"  && (accChild.state() != options.state) ){
+			return;
+		}
+		
+		if( optStateType == "string" && !..string.match(accChild.stateText():"",options.state ) ){
+			return;
+		}
+		
+		var optRoleType = options ? type(options.role);
+	
+		if( optRoleType == "number"  && (accChild.role() != options.role) ){
+			return;
+		}
+		
+		if( optRoleType == "string" && !..string.match(accChild.roleText():"",options.role ) ){
+			return;
+		} 
+		
+		if(#options.shortcut && !..string.match(accChild.keyboardShortcut():"",options.keyboardShortcut) ){
+			return;
+		}
+		
+		if(#options.type && (accChild.type !== options.type) ){
+			return;
+		}
+		
+		if(options.number){
+			options.lastNumber = options.lastNumber + 1;
+			if(options.number!=options.lastNumber){
+				return;
+			}
+		}
+		
+		return proc(accChild,accParent);	
+	}
+}

package/aardio/lib/winex/caret.aardio

@@ -0,0 +1,73 @@
+//caret 输入光标
+import winex;
+import winex.accObject;
+
+namespace winex.caret;
+
+if(_WIN10_LATER){
+	import System.Windows.Automation.3;
+}
+var cursorInfo = {INT cbSize = 20; INT flags; pointer hCursor;struct pt = ::POINT() };
+var iBeam = ::User32.LoadCursorP(,32513/*_IDC_IBEAM*/);
+
+var cacheUiaSupported = ..table.cache();
+
+get = function(hwnd){
+	if(!hwnd) hwnd = ::User32.GetForegroundWindow();
+	if(!hwnd) return;
+			
+	var uiInfo = ..winex.getUiInfo(hwnd);
+	if(!uiInfo) {
+		caret = ..winex.accObject.getCaret(hwnd);
+		if(caret) return caret,hwnd;
+		return;
+	}
+	
+	var hFocus = uiInfo.hwndFocus;
+	var hwndTarget = hFocus : hwnd;
+	if( cacheUiaSupported[hwndTarget] ){
+		caret = ..System.Windows.Automation.GetCaret(hwndTarget); 
+		return caret,hFocus;
+	}
+	
+	var hCaret = uiInfo.hwndCaret;
+	if(hCaret && ( uiInfo.flags & 1/*_GUI_CARETBLINKING*/ ) ){
+		caret = ..win.toScreenRect(hCaret,uiInfo.rcCaret);
+		if(caret){
+			caret.hwnd = hCaret;
+			return caret,hFocus : hCaret;	
+		}
+	}
+	
+	caret = ..winex.accObject.getCaret(hwndTarget);
+	if(!caret) {
+		caret = null;
+			
+		if(hFocus){
+			
+			if(_WIN10_LATER){
+				caret = ..System.Windows.Automation.GetCaret(hwndTarget);
+				if(caret){
+					cacheUiaSupported[hwndTarget] = true; 
+					return caret,hFocus;
+				}  
+			}
+			 
+			cursorInfo.cbSize = 20; 
+			if( ::User32.GetCursorInfo(cursorInfo) && (cursorInfo.hCursor == iBeam) ){
+				caret = ::RECT();
+				::User32.GetCursorPos(caret);
+				caret.hwnd = hwndTarget;  
+			} 
+		}
+	}
+	
+	return caret,hFocus;
+}
+
+/**intellisense()
+winex.caret = 结合 winex.getUiInfo,winex.accObject.getCaret,::User32.GetCursorInfo\nSystem.Windows.Automation.3 等多种接口获取当前输入光标位置
+winex.caret.get( = 获取输入光标位置
+winex.caret.get(.(hwnd) = 在 @hwnd 指句柄的窗口获取输入光标位置，\n不指定参数则获取前台窗口输入光标。\n\n成功返回 ::RECT 结构体，失败返回 null。\n返回结构体的值使用屏幕坐标。\n如果获取到真实输入光标大小则返回结构体的 right,bottom 为非 0 值，\n如果为 I 光标位置则 right,bottom 值为 0。\n返回结构体的 hwnd 成员为输入光标所在窗口句柄。\n\n第 2 个返回值为输入焦点窗口句柄
+winex.caret.get() = !rect.
+end intellisense**/

package/aardio/lib/winex/ctrl/_.aardio

@@ -0,0 +1,4 @@
+import winex.ctrl.listview;
+import winex.ctrl.edit;
+
+namespace winex.ctrl;

package/aardio/lib/winex/ctrl/edit.aardio

@@ -0,0 +1,44 @@
+import win;
+import process;
+import win.ui.ctrl.edit;
+
+namespace winex.ctrl;
+	
+class edit{
+	ctor( hwnd ){
+		this = ..win.ui.ctrl.edit();
+		this.hwnd = hwnd;
+		
+		var threadId,processId = ..win.getThreadProcessId(this.hwnd )
+		this.process = ..process( processId ) 
+		this.threadId = threadId; 
+		
+	};
+	showBalloonTip = function(title,text,icon){ 
+		if(text===null) title,text = text:"",title:"";
+		
+		var ti =  {
+			INT cbSize;
+			addr title = this.process.writeStringUtf16(,title);
+			addr text = this.process.writeStringUtf16(,text);
+			addr icon = icon;
+		}
+		
+		ti.cbSize = ..raw.sizeof(ti);
+		
+		..win.setFocus(owner.hwnd); 
+		this.process.sendMessage(owner.hwnd,5379/*EM_SHOWBALLOONTIP*/,0,ti);
+		this.process.mfree(ti.title);
+		this.process.mfree(ti.text);
+	};
+	setText = function(text){
+		//自定义 text 属性，外部进程必须发 _WM_SETTEXT 消息设置文本
+		::User32.SendMessage(owner.hwnd,0xC/*_WM_SETTEXT*/,,text);
+	};
+}
+
+/**intellisense()
+winex.ctrl.edit = 用于控制外部进程文本框\n仅支持标准控件,不保证所有函数都能用于外部控件\n注意外部进程窗口不支持任何事件函数
+winex.ctrl.edit(.(外部进程文本框句柄) = 绑定外部外部进程文本框控件
+winex.ctrl.edit() = !edit.
+end intellisense**/