aview-app 1.0.2

package/aardio/lib/win/ui/ctrl/static.aardio

@@ -0,0 +1,167 @@
+//static 静态文本框
+import win.ui.ctrl.metaProperty;//导入控件属性元表支持
+namespace win.ui.ctrl;  
+
+class static{
+    ctor(parent,tParam){ 
+    	if(tParam){
+			if(tParam.edge) tParam.exstyle |= 0x20000/*_WS_EX_STATICEDGE*/;	
+			if(tParam.transparent)tParam.exstyle |= 0x20/*_WS_EX_TRANSPARENT*/;
+			if(tParam.notify)tParam.style |= 0x100/*_SS_NOTIFY*/ 
+			
+			if(tParam.nWrap) 
+				tParam.style |= 0xC/*_SS_LEFTNOWORDWRAP*/
+			else{
+				select(tParam.align) {
+					case  "center"  
+					tParam.style |= 0x1/*_SS_CENTER*/; 
+					case "right" 
+	   				tParam.style |= 0x2/*_SS_RIGHT*/; 
+					else  
+	   				tParam.style |= 0x0/*_SS_LEFT*/;
+				}
+			}
+			if(tParam.center)
+				tParam.style |= 0x200/*_SS_CENTERIMAGE*/ 
+		}
+    }
+	@_metaProperty;
+}
+static._metaProperty = metaProperty( 
+
+	ellipsis = {
+		_set = function(v){
+			var style = ..win.getStyle(owner.hwnd);
+			style = ( style & ~0xC000 );
+			
+			if(v) style = style | ( ({"path":0x8000;"end":0x4000;"word":0xC000})[v] : 0);
+			::SetWindowLong(owner.hwnd,0xFFFFFFF0/*_GWL_STYLE*/,style);
+			
+			owner.redrawTransparent();
+		};
+		_get = function(){
+			var style = ..win.getStyle(owner.hwnd);
+			if(style&0x8000) return "path";
+			if(style&0x4000) return "end";
+			if(style&0xC000) return "word";
+		} 
+	}
+
+)
+ 
+/***intellisense() 
+!static.cls = 设计时类名
+!static.color = 获取或修改字体颜色数值
+!static.bgcolor= 获取或修改景颜色数值
+!static.className = 运行时类名
+!static.hwnd = 控件句柄
+!static.id = 控件ID
+!static.text = 控件文本
+!static.ellipsis = 超出显示范围如何显示省略号，可选值：\n"path" 单行显示，在最后一个反斜杆前显示省略号\n"end" 单行显示，字符串末尾超出显示范围则显示省略号\nnull 不显示省略号
+!static.disabledText = 指定文本时,禁用此控件,并显示指定文本,\n指定为null时,启用此控件,并恢复控件之前的正常文本
+!static.getForm() = 如果是窗体返回自身\n如果是控件则返回_parentForm\n!winform.
+!static.isForm = 标准库中所有控件以及窗体对象都拥有此同名函数\n窗体返回true,控件返回false
+!static.getForm() = 标准库中所有控件都拥有此同名函数用于返回控件所在窗口,\n窗口对象实现了同名函数用于返回窗口自身
+!static._parentForm = 创建该控件的父窗口（win.form对象）,\n设计时窗体容器是所有拖放在窗体上的控件的 _parentForm,\n\n即使窗口移除子窗口样式、更改父子关系，或以 orphanWindow显示,\n控件的 _parentForm 始终都不会改变\n!winform.
+!static.getParent() = 返回父窗口\n!static.
+!static.setParent(__/*控件对象*/) = 改变父窗口 
+!static.addCtrl = @.addCtrl(\n	button={ cls="button";text="button";left=33;top=32;right=126;bottom=81;autoResize=false }  \n)
+!static.translateAccelerator = @.translateAccelerator = function(msg){\n	if(  msg.wParam == 0x20/*_VK_SPACE*/ && msg.message = 0x101/*_WM_KEYUP*/){ \n		return true;__/*返回是否快捷键,适用窗体或普通控件对象\n仅当前窗口内的按键触发此事件\n\nmsg 参数为包含窗口按键消息的 ::MSG 结构体*/\n	} \n}
+!static.adjust = @.adjust = function( cx,cy,wParam ) {	 \n	__/*窗口缩放后会自动触发此函数。\ncx 参数为窗口宽度,cy 参数为窗口高度,\nwParam 参数请参考 _WM_SIZE 消息参数说明,一般不用管。\n\n所有 win.form 创建的窗体和控件都支持此事件,\n重复赋值只会追加而不会覆盖此事件。\n一般不建议添加一个 wndproc 仅仅是为了处理  _WM_SIZE 消息，\n定义 adjust 事件是更好的选择。\n\n可主动调用此事件,省略参数时 cx,cy 参数默认设为窗口大小*/  \n}; 
+!static.preadjust = @.preadjust = function( cx,cy,wParam ) {	 \n	__/*窗口缩放后重绘前、触发 adjust 事件之前触发此事件。\n所有 win.form 创建的窗体和控件都支持此事件,\n与 adjust 事件不同，对 preadjust 重复赋值则覆盖而不是追加事件。 \n\ncx 参数为窗口宽度,cy 参数为窗口高度,\nwParam 为 _WM_SIZE 消息参数。*/  \n};
+!static._embedObject = 嵌入 COM 控件的容器对象\n!embedObject.
+!static.createEmbed( = 创建嵌入控件,返回控件容器对象,\n容器对象的 _object 成员是创建的 COM 对象,\n容器对象可通过添加成员函数响应 COM 对象事件，\n容器对象的主要作用是充当访问 COM 对象的中间代理对象。\n通常使用 util.metaProperty 为容器对象添加属性元表，\n属性元表可拦截属性、函数调用并调用 _object 对象,\n\ncreateEmbedEx 返回的容器已添加默认代理以直接访问 COM 对象
+!static.createEmbed(.(clsId,embedObj) = 创建嵌入控件,返回控件容器对象,\n容器对象的 _object 成员是创建的 COM 对象,\n容器对象可通过添加成员函数响应 COM 对象事件，\n容器对象的主要作用是充当访问 COM 对象的中间代理对象,\n@clsId 指定控件 CLSID,\n可选在参数@2中指定 COM 对象绑定的容器对象\n\n此函数失败会抛出异常
+!static.createEmbed(.(comObject,embedObj) = 嵌入 COM 控件,返回控件容器对象,\n容器对象的 _object 成员是传入的 COM 对象,\n容器对象可通过添加成员函数响应 COM 对象事件，\n容器对象的主要作用是充当访问 COM 对象的中间代理对象,\n@comObject 指定已创建成功的 COM 对象,\n可选在参数@2中指定 COM 对象绑定的容器对象\n\n此函数失败会抛出异常
+!static.tryCreateEmbed( = 创建嵌入控件,返回控件容器对象,\n容器对象的 _object 成员是创建的 COM 对象,\n容器对象可通过添加成员函数响应 COM 对象事件，\n容器对象的主要作用是充当访问 COM 对象的中间代理对象。\n通常使用 util.metaProperty 为容器对象添加属性元表，\n属性元表可拦截属性、函数调用并调用 _object 对象,\n\ncreateEmbedEx 返回的容器已添加默认代理以直接访问 COM 对象
+!static.tryCreateEmbed(.(clsId,embedObj) = 创建嵌入控件,返回控件容器对象,\n容器对象的 _object 成员是创建的 COM 对象,\n容器对象可通过添加成员函数响应 COM 对象事件，\n容器对象的主要作用是充当访问 COM 对象的中间代理对象,\n@clsId 指定控件 CLSID,\n可选在参数@2中指定 COM 对象绑定的容器对象\n\n成功返回容器对象,失败返回false,错误信息
+!static.createEmbedEx( = 创建嵌入 COM 控件，返回控件容器对象。\n容器对象的 _object 成员是创建的 COM 对象。\n容器对象的 __event__ 成员为 COM 对象默认事件监听器。\n在窗口销毁时解除默认事件监听器并释放 COM 对象。\n\n返回容器已添加元表，可通过容器对象的成员代理访问 COM 对象成员。\n也可以通过指定容器对象的成员函数响应 COM 对象事件
+!static.createEmbedEx(.(clsId,embedObj) = 创建嵌入 COM 控件，返回控件容器对象。\n此函数返回的容器已添加元表并创建代理以直接访问 COM 对象，\n也可以通过指定容器对象的成员函数响应 COM 对象事件。\n\n@clsId 指定控件 CLSID，\n可选在参数 @2 中指定 COM 对象绑定的容器对象。\n\n此函数失败会抛出异常
+!static.createEmbedEx(.(comObject,embedObj) = 嵌入 COM 控件，返回控件容器对象。\n此函数返回的容器已添加元表并创建代理以直接访问 COM对象，\n也可以通过指定容器对象的成员函数响应 COM 对象事件。\n\n参数 @comObject 指定已创建成功的 COM 对象,\n可选在参数 @2 中指定 COM 对象绑定的容器对象。\n\n此函数失败会抛出异常
+!static.createEmbedEx() = !embedObject.
+!static.createEmbed() = !embedObject.
+!static.tryCreateEmbed() = !embedObject.
+!static.autoResize = 是否允许跟随父窗体自动缩放
+!static.hide = 控件是否隐藏
+!static.disabled = 是否禁用
+!static.left = 左侧坐标
+!static.right = 右侧坐标
+!static.top = 顶部坐标
+!static.bottom = 底部坐标
+!static.width = 宽度
+!static.height = 高度
+!static.redraw() = 刷新
+!static.setRedraw(false) = 禁止重绘
+!static.setRedraw(true) = 恢复重绘
+!static.redrawTransparent() = 刷新\n透明背景时请使用此函数替代redraw()
+!static.show(true__) = 显示控件
+!static.getRect() = 控件区块位置(::RECT结构体)
+!static.getRect(true) = 控件屏幕区块位置(::RECT结构体)  
+!static.setRect(rc) = 设置控件区块位置(::RECT结构体)  
+!static.setRect(rc,true) = 设置控件屏幕区块位置(::RECT结构体)
+!static.getClientRect() =  控件客户区块位置(::RECT结构体)\n!rect.
+!static.getFont() = 返回控件 LOGFONT 字体，\n返回对象的 h 值会按控件的 DPI 缩放设置自动还原为缩放前大小。\n!logfont.
+!static.getFont(true) = 返回控件 LOGFONT 字体，\n返回对象的 h 值为字体实际大小，不会按控件 DPI 设置还原。\n返回字体会设置 noScale 属性为 true,\n使用控件的 setFont 函数或赋值 font 属性时，\nnoScale 属性为 true 的字体同样不会进行自动 DPI 缩放\n!logfont.
+!static.setFont(__/*指定字体*/) = 指定 LOGFONT 字体对象,或逻辑字体句柄\n如果不指定 point 值并指定 h 值，字体会按控件的 DPI 缩放设置自动缩放。
+!static.setFont(混入字体属性) = @.setFont(h=-12;name="Tahoma");
+!static.font = 控件字体（LOGFONT 结构体），\n注意获取该属性总是返回新的 LOGFONT 对象，\n修改返回字体并不会更新控件字体，\n除非重新赋值。\n\n建议尽量优先使用 getFont 或 setFont 函数，\n以增强代码可读性\n\n字体会根据控件设置自动处理 DPI 缩放，不需要事先缩放字体大小
+!static.theme = 外观主题,例如\nwinform.button.theme = "Explorer"\nwinform.button.theme = false
+!static.modifyStyle(.(remove,add,swpFlags) = 修改窗口样式,所有参数都是可选参数,\n@remove 用数值指定要移除的样式,可使用 _WS_ 前缀的常量\n@add 用数值指定要添加的样式,可使用 _WS_ 前缀的常量\n@swpFlags 可选用数值指定调整窗口选项,可使用 _SWP_ 前缀的常量\n如果指定了 @swpFlag ,则使用该参数调用::SetWindowPos\n细节请参考 win.modifyStyle 函数源码 
+!static.modifyStyleEx(.(remove,add,swpFlags) = 修改窗口扩展样式,所有参数都是可选参数,\n@remove 用数值指定要移除的样式,可使用 _WS_EX_ 前缀的常量\n@add 用数值指定要添加的样式,可使用 _WS_EX_ 前缀的常量\n@swpFlags 可选用数值指定调整窗口选项,可使用 _SWP_ 前缀的常量\n如果指定了 @swpFlag ,则使用该参数调用::SetWindowPos\n细节请参考 win.modifyStyle 函数源码
+!static.capture = 是否捕获全局鼠标消息
+!static.close() = 关闭控件窗口
+!static.invalidate(__/*可选使用::RECT()对象指定客户区*/) = 使窗口绘图区无效
+!static.invalidate(__/*可选使用::RECT()对象指定客户区*/,0) = 使窗口绘图区无效\n不刷新背景
+!static.update() = 重绘invalidate函数指定的区块
+!static.setFocus() = 设置焦点 
+!static.tabNext(.(移动焦点,是否反向) = 获取下一个支持tab控制焦点的控件\n参数@1为true会自动移动焦点到该控件\n参数@2为true则获取上一个控件,否则获取下一个控件
+!static.tabNext() = !static.
+!static.setPos(.(x坐标,y坐标,宽,高,插入位置,参数) = 调整窗口位置或排序,所有参数可选\n同时指定x,y坐标则移动位置\n同时指定宽高则改变大小\n指定插入位置(句柄或_HWND前缀常量)则调整Z序
+!static.getPos() = 返回相对父窗口客户区的坐标,宽,高,\n参数为true返回屏幕坐标,宽,高,\nx,y,cx,cy=win.getPos(hwnd)
+!static.messageOnly() = 将窗口转换为message-only window\n该窗口不可见,仅用于消息分发
+!static.setTimeout(.(函数或代码,延时,其他附加参数) = 推迟执行指定的函数或代码\n此函数异步执行参数中指定的函数，不会阻塞当前代码继续执行，\n延时参数是可选参数，以毫秒为单位，默认为0毫秒\n可选用附加参数指定调用延时函数的实参\n返回值为定时器ID
+!static.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)
+!static.changeInterval(.(定时器ID,间隔时间,回调函数) = 重新设置间隔时间或回调函数
+!static.clearTimeout(.(定时器ID) =  删除定时器。\n参数如果为 null 则忽略不执行，\n否则定时器ID必须是 setInterval 函数或setTimeout函 数的返回值。\n\n请注意如果定时器被删除，ID 可能被重新分配给其他定时器。\n在定时器回调函数中返回 0,false 以删除定时器是更稳妥的方式
+!static.clearInterval(.(定时器ID) =  删除定时器。\n参数如果为 null 则忽略不执行，\n否则定时器ID必须是 setInterval 函数或setTimeout函数的返回值。\n\n请注意如果定时器被删除，ID 可能被重新分配给其他定时器。\n在定时器回调函数中返回 0,false 以删除定时器是更稳妥的方式
+!static.msgbox("__") = 弹出对话框,可选用参数@2指定标题
+!static.msgboxErr("__") = 弹出错误对话框,可选用参数@2指定标题
+!static.msgboxTest("__") = 弹出询问对话框,可选用参数@2指定标题
+!static.msgInfo(__) = 显示提示框\n请先调用win.dlg.message.install安装此函数
+!static.msgWarn(__) = 显示警告提示框\n请先调用win.dlg.message.install安装此函数
+!static.msgOk(__) = 显示正确提示框\n请先调用win.dlg.message.install安装此函数
+!static.msgErr(__) = 显示错误提示框\n请先调用win.dlg.message.install安装此函数
+!static.msgGreat(__) = 显示竖大拇指图标提示框\n请先调用win.dlg.message.install安装此函数
+!static.msgSorry(__) = 显示倒竖大拇指图标提示框\n请先调用win.dlg.message.install安装此函数
+!static.msgSmile(__) = 显示微笑图标提示框\n请先调用win.dlg.message.install安装此函数
+!static.msgFrown(__) = 显示皱眉图标提示框\n请先调用win.dlg.message.install安装此函数
+!static.threadCallable() = 开启此控件的跨线程调用功能
+!static.saveScale() = 根据控件当前位置、缩放比例，更新控件的设计时位置参数。\n以避免下次窗口缩放自适应调整控件当前位置更改被清除，\n控件所有调整位置的属性或成员函数已自动调用此函数。
+!static.reloadScale() = 按设计时位置参数、重新调整控件位置以适应窗口当前缩放比例。\n父窗口缩放时会自动执行此操作。\n默认在启动窗口消息循环时会自适应调整所有控件。\n所以在启动消息循环前添加控件不必调用此函数
+!static.orphanWindow( = 如果当前是子窗口,\n移除窗口的WS_CHILD样式，使窗口孤立出来悬浮于原位置,\n悬浮窗口如影随形的跟随父窗口移动或改变大小,控件原来的固定边距等参数仍然有效
+!static.orphanWindow(.(transparent,hwndBuddy) = 创建悬浮窗口,\n悬浮窗口仍然显示在原来的位置,\n可选参数 @transparent 如果为 true 则转换为分层透明窗口,\n可选利用 @hwndBuddy 参数将只有句柄的窗口托管在悬浮窗口之上实现相同的效果,\n伙伴窗口总是会保持在悬浮窗口前面，并保持相同的大小、位置\n可重复调用此函数更换伙伴窗口，旧的伙伴窗口必须自行关闭
+!static.group() = 将在此控件范围内的所有其他控件设为此控件的子窗口
+!static.translateCommand() = 允许转发转发子窗口的命令（_WM_COMMAND）与通知（_WM_NOTIFY）消息，\n避免子窗口 oncommand，onnotify 等回调失效。\n同时会处理子窗口的 _WM_CTLCOLORSTATIC 等消息，\n以避免部分外观属性失效
+!static.resize(.(宽度,高度) = 如果指定了参数则调整窗口大小,\n无论是否实际调整窗口大小,发送 _WM_SIZE 消息给窗口
+!static.onDestroy = @.onDestroy = function(){\n	__/*窗口销毁前触发*/\n}
+!static.onnotify = @.onnotify = function(id,code,ptr){\n	__/*通知事件触发*/\n}
+!static.oncommand = @.oncommand = function(id,event){\n	__/*命令事件触发*/\n}
+!static.wndproc = @.wndproc = function(hwnd,message,wParam,lParam){\n	__/*窗口消息回调，返回任意非null值阻止默认回调\nwndproc重复赋值时追加函数而不是覆盖之前的回调\n设为null添除所有消息回调函数\nwndproc也可以是一个表,键要为处理的消息,值为对应的消息回调函数*/	\n}
+!static.wait(.(等待函数,超时,延时间隔) = 循环执行等待函数,并等待返回值\n直到等待函数返回非空值,或存在第二个返回值,或当前窗口关闭\n等待函数返回的值就是wait函数的返回值,\n如果指定超时,超过指定毫秒时返回null,\n除等待函数以外,所有参数可选
+!static.sendMessage(.(msg,wParam,lParam) = 发送窗口消息\n此函数用法请参考 ::User32.SendMessage
+!static.postMessage(.(msg,wParam,lParam) = 投递窗口消息到消息队列中\n此函数用法请参考 ::User32.PostMessage
+!static.publish("__/*发布消息名*/",) = 在窗口所在界面线程发布消息,\n运行界面线程所有所有调用subscribe函数订阅此消息的函数,\n可添加任意个触发参数
+!static.reduce(array,callback,debounce) = @.reduce(\n	{__/*在这里指定要遍历处理每个元素的数组或表,\n并在回调函数中返回每次需要间隔的延时,以毫秒为单位,返回0或空值中断处理,\n回调参数为下一个元素的值和索引,处理完后回调参数为null,\n如果此时未返回null或0退出处理函数,将返回第一个元素继续遍历*/},\n	function(value,index){\n		if(value){\n			return 50\n		}\n	} \n)
+!static.reduce(array,callback,debounce) = @.reduce(\n	{__/*@array 参数指定要循环处理每个元素的数组或表。\n@array 指定为 false 则取消之前创建的防抖单例循环。\n\n@callback 指定回调函数。\n回调函数中可返回本次间隔延时，以毫秒为单位。\n返回 0、null、false、以及不能转换为非 0 数的值中断处理。\n回调参数为下一个元素的值和索引,处理到数组尾部时回调参数为 null,\n如果此时仍然返回可转换为非 0 数的值,将转到第一个数组元素重复循环\n@callback 指定回调函数。\n\n@debounce 指定是否创建为防抖单例循环，默认为 true。*/},\n	function(value,index){\n		if(value){\n			return 50\n		}\n	} \n)
+!static.enableDpiScaling(false) = 禁用DPI自动缩放,\n不指定参数启用DPI自动缩放,默认已启用
+!static.dpiScaleX = 窗口当前使用的DPI横坐标缩放系数,\n该值由界面系统自动维护，任何情况下都不应手动修改,\n\n这是一个以小数表示百分比的数，例如 1.25 表示 125%,\n窗口未使用缩放或未完成缩放初始化时，值可能为 null，\n如果要获取屏幕缩放设置应改用 gdi.getDpiScale 函数
+!static.dpiScaleY = 窗口当前使用的DPI纵坐标缩放系数,\n该值由界面系统自动维护，任何情况下都不应手动修改,\n\n这是一个以小数表示百分比的数，例如 1.25 表示 125%,\n窗口未使用缩放或未完成缩放初始化时，值可能为 null，\n如果要获取屏幕缩放设置应改用 gdi.getDpiScale 函数
+!static.dpiScale(.(x,y) = 将 @x,@y 表示的像素值乘以窗体当前 DPI 缩放倍数并返回,\n省略 @y 参数时仅返回 @x 转换后的值,\n所有 win.ui 创建的窗口或控件都提供这个函数
+!static.getRoot() = 获取顶层父窗口，这个函数会查找 orphanWindow 的父窗口
+!static.isDialogMessage = @.isDialogMessage = function(hParent,msg){__/*在控件范围内替代父窗口的 isDialogMessage，\n可用于在控件范围内屏蔽对话框快捷键。\n可用于禁用 tab 控制键的多行文本框支持按 tab 输入制表符*/}
+!static._defWindowProc(hwnd,message,wParam,lParam) = 用于在 wndproc 回调中提前调用默认消息回调函数,\n所有窗口和控件定义了 wndproc 回调以后会自动创建这个函数,\n调用此函数以后,wndproc 必须指定非 null 返回值,\n以避免再次重复调用默认回调函数
+!static.valid = 窗口是否有效，\n窗口未关闭返回 true ，\n窗口已关闭或正在关闭返回 false
+?win.ui.ctrl.static  =!static.
+win.ui.ctrl.static() = 静态文本控件\n!static.
+win.ui.ctrl.static = 静态文本控件支持库
+end intellisense***/

package/aardio/lib/win/ui/ctrl/syslink.aardio

@@ -0,0 +1,132 @@
+//syslink 超链接控件
+import win.ui.ctrl.metaProperty;
+
+namespace win.ui.ctrl;  
+
+class syslink{
+    ctor(parent,tParam){ 
+    	if(tParam){
+			if(tParam.transparent) { tParam.style |= 1/*_LWS_TRANSPARENT*/ }
+			else{ tParam.exstyle &= ~0x20/*_WS_EX_TRANSPARENT*/ };  
+			
+			if( tParam.align == "right" ){
+				tParam.style |=0x0020/*_LWS_RIGHT*/;
+			}
+			
+			if( _WIN7_LATER ){
+				tParam.style |= 8/*_LWS_USEVISUALSTYLE  */ 
+			}
+		}
+    }
+	@_metaProperty;
+}
+
+namespace syslink{
+ 
+	class LITEM{
+  		INT mask;
+  		int iLink;
+  		INT state;
+  		INT stateMask;
+  		WORD id[48];
+  		WORD url[2084];
+	} 
+
+	_metaProperty = ..win.ui.ctrl.metaProperty( 
+		setItem = function(item){
+			return !! ::SendMessageByStruct(owner.hwnd,0x702/*_LM_SETITEM*/,0,item);
+		}
+		getItem = function(item){ 
+			var item = LITEM();
+			if( ::SendMessageByStruct(owner.hwnd,0x703/*_LM_GETITEM*/,0,item) )
+				return item;
+		};
+		_prenotify = {
+			[0xFFFFFFFC/*_NM_RETURN*/] = function(id,code,ptr,nmhdr){
+				if( owner.onHyperlinkClick  ){
+    				var nmSysLink = ..raw.convert(ptr,{
+						struct hdr = ::NMHDR();
+   						struct item = LITEM();
+					});
+					 
+					owner.onHyperlinkClick(nmSysLink,nmSysLink.item.url,nmSysLink.item.id)
+				}	
+			};
+			[0xFFFFFFFE/*_NM_CLICK*/] = function(id,code,ptr,nmhdr){
+				if( owner.onHyperlinkClick  ){
+    				var nmSysLink = ..raw.convert(ptr,{
+						struct hdr = ::NMHDR();
+   						struct item = LITEM();
+					});
+					
+					owner.onHyperlinkClick(nmSysLink,nmSysLink.item.url,nmSysLink.item.id)
+				}	
+			} 
+		};
+	)
+}
+
+/***intellisense() 
+!syslink.cls = 设计时类名
+!syslink.className = 运行时类名
+!syslink.hwnd = 控件句柄
+!syslink.id = 控件ID
+!syslink.text = 控件文本
+!syslink.getForm() = 如果是窗体返回自身\n如果是控件则返回_parentForm\n!winform.
+!syslink._parentForm = 创建该控件的父窗口（win.form对象）,\n设计时窗体容器是所有拖放在窗体上的控件的 _parentForm,\n\n即使窗口移除子窗口样式、更改父子关系，或以 orphanWindow显示,\n控件的 _parentForm 始终都不会改变\n!winform.
+!syslink.getParent() = 返回父窗口\n!syslink.
+!syslink.setParent(__/*控件对象*/) = 改变父窗口 
+!syslink.translateAccelerator = @.translateAccelerator = function(msg){ \n	__/*返回是否快捷键*/\n} 
+!syslink.adjust = @.adjust = function( cx,cy,wParam ) {	 \n	__ \n};  
+!syslink.adjust() = 调整窗口 - 自定义事件函数
+!syslink.hide = 控件是否隐藏
+!syslink.disabled = 是否禁用
+!syslink.left = 左侧坐标
+!syslink.right = 右侧坐标
+!syslink.top = 顶部坐标
+!syslink.bottom = 底部坐标
+!syslink.width = 宽度
+!syslink.height = 高度
+!syslink.redraw() = 刷新
+!syslink.setRedraw(false) = 禁止重绘
+!syslink.setRedraw(true) = 恢复重绘
+!syslink.show(true__) = 显示控件
+!syslink.getRect() = 控件区块位置(::RECT结构体)
+!syslink.getRect(true) = 控件屏幕区块位置(::RECT结构体)  
+!syslink.setRect(rc) = 设置控件区块位置(::RECT结构体)  
+!syslink.setRect(rc,true) = 设置控件屏幕区块位置(::RECT结构体)
+!syslink.getClientRect() =  控件客户区块位置(::RECT结构体)\n!rect.
+!syslink.getFont() = 控件字体(::LOGFONT结构体)\n!logfont.
+!syslink.setFont(__/*指定字体*/) = 指定LOGFONT字体对象,或逻辑字体句柄 
+!syslink.setFont(混入字体属性) = @.setFont(point=10;name="宋体");
+!syslink.theme = 外观主题,例如\nwinform.button.theme = "Explorer"\nwinform.button.theme = false
+!syslink.modifyStyle(.(remove,add,swpFlags) = 修改窗口样式,所有参数都是可选参数,\n@remove 用数值指定要移除的样式,可使用 _WS_ 前缀的常量\n@add 用数值指定要添加的样式,可使用 _WS_ 前缀的常量\n@swpFlags 可选用数值指定调整窗口选项,可使用 _SWP_ 前缀的常量\n如果指定了 @swpFlag ,则使用该参数调用::SetWindowPos\n细节请参考 win.modifyStyle 函数源码 
+!syslink.modifyStyleEx(.(remove,add,swpFlags) = 修改窗口扩展样式,所有参数都是可选参数,\n@remove 用数值指定要移除的样式,可使用 _WS_EX_ 前缀的常量\n@add 用数值指定要添加的样式,可使用 _WS_EX_ 前缀的常量\n@swpFlags 可选用数值指定调整窗口选项,可使用 _SWP_ 前缀的常量\n如果指定了 @swpFlag ,则使用该参数调用::SetWindowPos\n细节请参考 win.modifyStyle 函数源码
+!syslink.capture = 是否捕获全局鼠标消息
+!syslink.close() = 关闭控件窗口
+!syslink.invalidate(__/*可选使用::RECT()对象指定客户区*/) = 使窗口绘图区无效
+!syslink.invalidate(__/*可选使用::RECT()对象指定客户区*/,0) = 使窗口绘图区无效\n不刷新背景
+!syslink.update() = 重绘invalidate函数指定的区块
+!syslink.setFocus() = 设置焦点 
+!syslink.setPos(.(x坐标,y坐标,宽,高,插入位置,参数) = 调整窗口位置或排序,所有参数可选\n同时指定x,y坐标则移动位置\n同时指定宽高则改变大小\n指定插入位置(句柄或_HWND前缀常量)则调整Z序
+!syslink.getPos() = 返回相对坐标,宽,高\nx,y,cx,cy=win.getPos(hwnd)
+!syslink.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)
+!syslink.changeInterval(.(定时器ID,间隔时间,回调函数) = 重新设置间隔时间或回调函数
+!syslink.clearInterval(__/*定时器ID*/) = 删除定时器
+!syslink.getItem() = 返回控件数据,该值为为LITEM结构体
+!syslink.setItem(.(item) = 修改控件数据,参数为LITEM结构体
+!syslink.getItem() = !syslinklitem.
+!syslink.onHyperlinkClick = @.onHyperlinkClick = function(nmSysLink,url,id){
+	import process;
+	process.openUrl(url);__/*点击超链接回调此事件，可使用此代码打开超链接*/
+}
+!syslinklitem.mask = 掩码
+!syslinklitem.iLink = 索引
+!syslinklitem.state = 状态 
+!syslinklitem.stateMask = 状态掩码
+!syslinklitem.id = ID,unicode编码
+!syslinklitem.url = URL,unicode编码
+?win.ui.ctrl.syslink  =!syslink.
+win.ui.ctrl.syslink() = 静态文本控件\n!syslink.
+win.ui.ctrl.syslink = 静态文本控件支持库
+end intellisense***/

package/aardio/lib/win/ui/ctrl/tab.aardio

@@ -0,0 +1,312 @@
+//tab 选项卡
+import win.ui.ctrl.metaProperty;
+namespace win.ui.ctrl; 
+
+class tab{
+    ctor(parent,tParam){  
+    	if(!tParam)
+    		error("该控件不能附加到外部窗口",2)
+    		
+    	tParam.cls = "SysTabControl32";
+    	tParam.style = tParam.style | 0x40000000/*_WS_CHILD*/ | 0x10000000/*_WS_VISIBLE*/ ;
+    	if(tParam.ownerDraw) tParam.style = tParam.style | ( 0x2000/*_TCS_OWNERDRAWFIXED*/ | 0x400/*_TCS_FIXEDWIDTH*/ )
+		if( tParam.multiline ) tParam.style = tParam.style | 0x0200 //TCS_MULTILINE  
+ 		this._forms ={}
+ 		this._history ={};//记录用户切换当前页的历史 
+    };
+	@_metaProperty;
+}
+ 
+namespace tab{
+
+	class TCITEM {
+ 		INT mask = 0x0001|0x0002 ; //TCIF_TEXT | TCIF_IMAGE;
+ 		INT dwState;
+ 		INT dwStateMask;
+ 		ustring pszText;
+ 		int cchTextMax;
+ 		int iImage = -1;
+ 		int lParam;
+	} 
+	
+	_metaProperty = ..win.ui.ctrl.metaProperty( 
+	
+		items = {
+			_get = function(){ 
+				return owner._forms
+			} 
+		};
+		_afterDpiChanged = function(scaleX,scaleY){
+			for(i,frm in owner._forms){
+				frm.enableDpiScaling(scaleX,scaleY) 
+			} 
+		}; 
+		selIndex = {
+			_get = function(){ 
+				return ::SendMessageInt(owner.hwnd,0x1300+11,0,0) + 1;
+			}
+			_set = function( v ){
+				::SendMessageInt(owner.hwnd,0x1300+12,v-1,0,0 ) ;
+				owner._onChange();
+			} 	
+		};
+		getItemRect=function(i){
+			var rcTab = ::RECT();
+			::SendMessageByStruct( owner.hwnd, 0x130A, i - 1, rcTab);
+			return rcTab;
+		}
+		hitTest = function (x,y,screen=false){
+			if( !(x && y) ){
+				x,y = ..win.getMessagePos();
+				screen = true;
+			} 
+			if(screen) x,y = ..win.toClient(owner.hwnd,x,y)
+			var rcTab;
+			for ( i = 1; #owner._forms; 1 ) {
+				var rcTab = owner.getItemRect(i)
+				if ( ::PtInRect(rcTab, x, y) ) {
+					return i;
+				}
+			} 
+		}
+		loadForm = function(code,...){
+			var this = owner;
+			var ret,wb = ..win.loadForm(code
+				,function(tParam) { return this.add(tParam) }
+				,owner,...);
+			if( owner.lastForm != owner.form ){
+				owner.lastForm.show(false);
+				owner.adjustRect();
+			}
+			else {
+				owner.adjustRect();
+			} 
+			return ret,wb;
+    	};
+    	loadcode = function(...) {    
+			return owner.loadForm(...);
+    	}; 
+    	add = function(tParam){
+    		var tci = TCITEM();
+    		tci.pszText = tParam.text; 
+    		tParam.text = null;
+    		tParam.parent = owner ;
+    		tParam.mode="child";
+    		tParam.exmode="none";
+    		tParam.border="none"
+    		tParam.title=false;
+    		if( !(tParam.right && tParam.bottom) ){
+    			var rc = owner.getClientRect();
+    			tParam.right = rc.right;
+    			tParam.bottom = rc.bottom;
+    		}
+    		
+    		var wf = ..win.form(tParam);
+    		if(!wf) return null,"创建窗口失败";
+    		
+    		var index = ..table.push(owner._forms ,wf)-1;
+    		::SendMessageByStruct(owner.hwnd ,0x133E/*_TCM_INSERTITEMW*/, index,tci); 
+    		::SendMessage(owner.hwnd,0x5/*_WM_SIZE*/);
+    		owner.lastForm = wf;
+    		
+    		wf._onDestroyInTabs = function(){
+    			var i = ..table.find(owner.parent._forms,wf);
+    			if(i) owner.parent.remove(i);
+    		} 
+    		
+    		if(!index){ 
+    			owner.form = wf;   
+    			owner.form.show(true);
+    			owner.adjustRect();
+    		}
+    		else {
+    			wf.show(false); 
+    			owner.adjustRect();
+    		}
+    			
+    		return wf; 	
+    	}
+    	remove = function(i){
+    		assert( owner._forms[i],"错误的索引")
+    	 	
+    		if( owner.form==owner._forms[i]){ 
+    			owner.form = null;
+    			..table.pop(owner._history)
+    			if( #(owner._history) ){
+    				var form = ..table.pop(owner._history);
+    				for(i=1;#(owner._forms);1){
+    					if( owner._forms[i] == form ){
+    						owner.selIndex = i;
+    						break ;
+    					}
+    				} 
+    			}
+    		}
+    		owner._forms[i].close();
+    		..table.remove(owner._forms ,i );
+    		::SendMessage(owner.hwnd ,4872,topointer(i-1) )
+    		
+    		if(!owner.selIndex)
+    				owner.selIndex = #owner._forms 
+    	} 
+    	removeAll = function(){
+			for(i=#owner._forms;1;-1){
+				::SendMessage(owner._forms[i][["hwnd"]],0x10/*_WM_CLOSE*/);
+				..table.remove(owner._forms,i );
+			}  
+			owner.form = null; 
+			..table.pop(owner._history,#owner._history)
+    		::SendMessage(owner.hwnd ,4873 )   
+    	} 
+    	setItem = function(i,tci){
+    		::SendMessageByStruct(owner.hwnd, 0x133D/*_TCM_SETITEMW*/,i-1,tci);
+    		owner._onChange()
+    	}
+    	getItem = function(i,tci){
+    		tci := TCITEM(); 
+    		::SendMessageByStruct(owner.hwnd, 0x133C/*_TCM_GETITEMW*/,i-1,tci);
+    		return tci;
+    	}
+    	getItemText = function(i,len=100){
+    		var tci = TCITEM(); 
+    		tci.pszText = ..raw.buffer(len)
+    		tci.cchTextMax = len; 
+    		return owner.getItem(i,tci).pszText; 
+    	}
+    	setItemText = function(i,text){ 
+    		var tci = owner.getItem(i-1);
+    		tci.pszText = text;
+    		tci.cchTextMax = #text;
+    		::SendMessageByStruct(owner.hwnd, 0x133D/*_TCM_SETITEMW*/,i-1,tci); 
+    		owner._onChange()
+    	} 
+    	adjustRect = function(){ 
+    		var rc = owner.getClientRect();
+    		::SendMessageByStruct(owner.hwnd, 0x1300+40/*TCM_ADJUSTRECT*/,0,rc);
+    		if(owner.form){ 
+    			var w,h = rc.right - rc.left + 2 ,rc.bottom - rc.top;
+    			::MoveWindow(owner.form.hwnd, rc.left-2, rc.top, rc.right - rc.left + 2 ,rc.bottom - rc.top,true ); 
+    			::SendMessageInt(owner.form.hwnd, 0x5/*_WM_SIZE*/,0,::MAKELONG(w,h) ); 
+    		}
+    	};
+    	_preadjust = function(){
+    		owner.adjustRect();
+    	};
+    	_onDestroy = function(){ 
+    		owner.removeAll();
+    	};
+    	_prenotify = {
+    	    [4294966745/*_TCN_SELCHANGE*/] = function(id,code,nmdr){ 
+    			owner._onChange();
+    		}
+    	};
+    	_onChange = function(){
+    		var sel = ::SendMessage(owner.hwnd,0x1300+11) + 1;
+    		if(!sel) return;
+    		
+    		for(i=1;#(owner._forms);1){
+    			owner._forms[i].show(false)
+    		}
+    		owner.form = owner._forms[sel];
+    		if(owner.form){
+    			owner.adjustRect();
+    			owner.form.show(true) ;  
+    		}
+    			
+    		..table.push( owner._history,owner.form);
+    		if(#owner._history > #owner._forms ){
+    			..table.remove(owner._history);
+    		}
+    	};
+	)
+}
+
+
+/***intellisense()
+!ui_tab.cls = 设计时类名
+!ui_tab.className = 运行时类名
+!ui_tab.loadForm("__/*请输入aardio文件路径*/") = 加载外部窗体文件并添加到tab页.\n请注意保存外部窗体文件以后测试运行.
+!ui_tab.hwnd = 控件句柄
+!ui_tab.id = 控件ID
+!ui_tab._parentForm = 创建该控件的父窗口（win.form对象）,\n设计时窗体容器是所有拖放在窗体上的控件的 _parentForm,\n\n即使窗口移除子窗口样式、更改父子关系，或以 orphanWindow显示,\n控件的 _parentForm 始终都不会改变\n!winform.
+!ui_tab.getParent() = 返回父窗口\n!static.
+!ui_tab.setParent(__/*控件对象*/) = 改变父窗口 
+!ui_tab.disabled = 是否禁用
+!ui_tab.left = 左侧坐标
+!ui_tab.right = 右侧坐标
+!ui_tab.top = 顶部坐标
+!ui_tab.bottom = 底部坐标 
+!ui_tab.width = 宽度
+!ui_tab.height = 高度
+!ui_tab.redraw() = 刷新
+!ui_tab.setRedraw(false) = 禁止重绘
+!ui_tab.setRedraw(true) = 恢复重绘
+!ui_tab.show(true__) = 显示控件
+!ui_tab.getRect() = 控件区块位置(::RECT结构体)
+!ui_tab.getRect(true) = 控件屏幕区块位置(::RECT结构体)  
+!ui_tab.setRect(rc) = 设置控件区块位置(::RECT结构体)  
+!ui_tab.setRect(rc,true) = 设置控件屏幕区块位置(::RECT结构体)
+!ui_tab.getClientRect() =  控件客户区块位置(::RECT结构体)\n!rect.
+!ui_tab.getFont() = 控件字体(::LOGFONT结构体)\n!logfont.
+!ui_tab.setFont(__/*指定字体*/) = 指定LOGFONT字体对象,或逻辑字体句柄 
+!ui_tab.setFont(混入字体属性) = @.setFont(point=10;name="宋体");
+!ui_tab.theme = 外观主题,例如\nwinform.button.theme = "Explorer"\nwinform.button.theme = false
+!ui_tab.remove(__) = 参数为数值,移除指定索引的选项页
+!ui_tab.removeAll() = 移除所有选项卡
+!ui_tab.items = 返回子窗口列表,只读属性
+!ui_tab.items.? = 选项卡子窗口\n!winform.
+!ui_tab.adjustRect() = 调整子窗口大小以适应客户区
+!ui_tab.selIndex = 读取或设置当前选项索引\n起始索引为1
+!ui_tab.add(__) = 请先用窗体设计器生成创建窗体代码,\n然后将创建窗体的win.form函数替换为此函数。\n函数参数即是win.form的参数(text参数表示选项卡标题)。
+!ui_tab.modifyStyle(.(remove,add,swpFlags) = 修改窗口样式,所有参数都是可选参数,\n@remove 用数值指定要移除的样式,可使用 _WS_ 前缀的常量\n@add 用数值指定要添加的样式,可使用 _WS_ 前缀的常量\n@swpFlags 可选用数值指定调整窗口选项,可使用 _SWP_ 前缀的常量\n如果指定了 @swpFlag ,则使用该参数调用::SetWindowPos\n细节请参考 win.modifyStyle 函数源码 
+!ui_tab.modifyStyleEx(.(remove,add,swpFlags) = 修改窗口扩展样式,所有参数都是可选参数,\n@remove 用数值指定要移除的样式,可使用 _WS_EX_ 前缀的常量\n@add 用数值指定要添加的样式,可使用 _WS_EX_ 前缀的常量\n@swpFlags 可选用数值指定调整窗口选项,可使用 _SWP_ 前缀的常量\n如果指定了 @swpFlag ,则使用该参数调用::SetWindowPos\n细节请参考 win.modifyStyle 函数源码
+!ui_tab.capture = 是否捕获全局鼠标消息
+!ui_tab.hitTest(.(x坐标,y坐标,是否屏幕坐标) = 返回坐标指向的选项索引\n参数三可省略,默认为false.\n如果不指定任何参数,则自动调用 win.getMessagePos() 获取消息坐标
+!ui_tab.close() = 关闭控件窗口
+!ui_tab.setItem(__/*索引*/,"") = 设置选项结构体
+!ui_tab.getItem(__/*索引*/) = 读取选项结构体
+!ui_tab.setItemText(__/*索引*/,"") = 设置选项卡标题
+!ui_tab.getItemText(__/*索引*/) = 读取选项卡标题 
+!ui_tab.getItemRect(__/*索引*/) = 读取选项卡区块位置
+!ui_tab.invalidate(__/*可选使用::RECT()对象指定客户区*/) = 使窗口绘图区无效
+!ui_tab.invalidate(__/*可选使用::RECT()对象指定客户区*/,0) = 使窗口绘图区无效\n不刷新背景
+!ui_tab.update() = 重绘invalidate函数指定的区块
+!ui_tab.setFocus() = 设置焦点 
+!ui_tab.threadCallable() = 开启此控件的跨线程调用功能
+!ui_tab.setPos(.(x坐标,y坐标,宽,高,插入位置,参数) = 调整窗口位置或排序,所有参数可选\n同时指定x,y坐标则移动位置\n同时指定宽高则改变大小\n指定插入位置(句柄或_HWND前缀常量)则调整Z序
+!ui_tab.getPos() = 返回相对坐标,宽,高\nx,y,cx,cy=win.getPos(hwnd)
+!ui_tab.form = !winform.
+!ui_tab.onDrawItem = @.onDrawItem = function(drawItem){ \n    if( drawItem.CtlType == 101 /*_ODT_TAB*/ ){\n        __/*自绘选项卡,创建控件的参数中需要添加ownerDraw=true*/\n    } 		 	\n} 
+!ui_tab.onDestroy = @.onDestroy = function(){\n	__/*窗口销毁前触发*/\n}
+!ui_tab.onnotify = @.onnotify = function(id,code,ptr){\n	__/*通知事件触发*/\n}
+!ui_tab.oncommand = @.oncommand = function(id,event){\n	__/*命令事件触发*/\n}
+!ui_tab.wndproc = @.wndproc = function(hwnd,message,wParam,lParam){\n	__/*窗口消息回调，返回任意非null值阻止默认回调\nwndproc重复赋值时追加函数而不是覆盖之前的回调\n设为null添除所有消息回调函数\nwndproc也可以是一个表,键要为处理的消息,值为对应的消息回调函数*/	\n}
+!ui_tab.sendMessage(.(msg,wParam,lParam) = 发送窗口消息\n此函数用法请参考 ::User32.SendMessage
+!ui_tab.postMessage(.(msg,wParam,lParam) = 投递窗口消息到消息队列中\n此函数用法请参考 ::User32.PostMessage
+!ui_tab.adjust = @.adjust = function( cx,cy,wParam ) {	 \n	__/*窗口缩放时会自动触发此函数。\ncx 参数为窗口宽度,cy 参数为窗口高度,\nwParam 参数请参考 _WM_SIZE 消息参数说明,一般不用管。\n\n所有 win.form 创建的窗体和控件都支持此事件,\n重复赋值只会追加而不会覆盖此事件。\n一般不建议添加一个 wndproc 仅仅是为了处理  _WM_SIZE 消息，\n定义 adjust 事件是更好的选择。\n\n可主动调用此事件,省略参数时 cx,cy 参数默认设为窗口大小*/  \n}; 
+win.ui.ctrl.tab.TCITEM() = 选项结构体
+win.ui.ctrl.tab() = 选项卡控件\n!ui_tab.
+?win.ui.ctrl.tab  =!ui_tab.
+
+_TCS_SCROLLOPPOSITE=@1/*_TCS_SCROLLOPPOSITE*/
+_TCS_BOTTOM=@2/*_TCS_BOTTOM*/
+_TCS_RIGHT=@2/*_TCS_RIGHT*/
+_TCS_MULTISELECT=@4/*_TCS_MULTISELECT*/
+_TCS_FLATBUTTONS=@8/*_TCS_FLATBUTTONS*/
+_TCS_FORCEICONLEFT=@0x10/*_TCS_FORCEICONLEFT*/
+_TCS_FORCELABELLEFT=@0x20/*_TCS_FORCELABELLEFT*/
+_TCS_HOTTRACK=@0x40/*_TCS_HOTTRACK*/
+_TCS_VERTICAL=@0x80/*_TCS_VERTICAL*/
+_TCS_TABS=@0/*_TCS_TABS*/
+_TCS_BUTTONS=@0x100/*_TCS_BUTTONS*/
+_TCS_SINGLELINE=@0/*_TCS_SINGLELINE*/
+_TCS_MULTILINE=@0x200/*_TCS_MULTILINE*/
+_TCS_RIGHTJUSTIFY=@0/*_TCS_RIGHTJUSTIFY*/
+_TCS_FIXEDWIDTH=@0x400/*_TCS_FIXEDWIDTH*/
+_TCS_RAGGEDRIGHT=@0x800/*_TCS_RAGGEDRIGHT*/
+_TCS_FOCUSONBUTTONDOWN=@0x1000/*_TCS_FOCUSONBUTTONDOWN*/
+_TCS_OWNERDRAWFIXED=@0x2000/*_TCS_OWNERDRAWFIXED*/
+_TCS_TOOLTIPS=@0x4000/*_TCS_TOOLTIPS*/
+_TCS_FOCUSNEVER=@0x8000/*_TCS_FOCUSNEVER*/
+_TCM_FIRST=@0x1300/*_TCM_FIRST*/
+end intellisense***/