aview-app 1.0.2

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

@@ -0,0 +1,348 @@
+//button 按钮
+import win.ui.ctrl.metaProperty;
+import com.picture;
+namespace win.ui.ctrl; 
+
+class button{
+    ctor(parent,tParam){ 
+    	if( tParam ){
+			if(tParam.flat) tParam.style |= 0x8000/*_BS_FLAT*/;
+			if(tParam.default) tParam.style |= 0x1/*_BS_DEFPUSHBUTTON*/;
+			if(tParam.edge) tParam.exstyle |= 0x20000/*_WS_EX_STATICEDGE*/;	
+			if(tParam.multiline ) tParam.style |= 0x2000/*_BS_MULTILINE*/
+			if(tParam.note){
+				var version = {
+  					INT cbSize = 20;
+  					INT major;
+  					INT minor;
+  					INT build;
+  					INT platformId;
+				} 
+				
+				if( (  ::Comctl32.DllGetVersion( version ) >=0/*_SUCCEEDED*/ )
+					&&  ( version.major >=6 && version.minor >= 10 ) ){
+					tParam.style |= 0xE/*_BS_COMMANDLINK*/; 
+				}
+				else {
+					tParam.note = null;	
+				}
+			}
+			
+			tParam.style |=  0x2000/*_BS_MULTILINE*/;
+			
+			if(tParam.ownerDraw) 
+				tParam.style |= 0xB/*_BS_OWNERDRAW*/
+				
+			select(tParam.align) {
+				case  "left"  
+	   			tParam.style |= 0x100/*_BS_LEFT*/;
+				case "right" 
+	   			tParam.style |= 0x200/*_BS_RIGHT*/; 
+				else 
+	   			tParam.style |= 0x300/*_BS_CENTER*/;  
+			}
+			
+			select(tParam.valign) {
+				case  "top"  
+	   			tParam.style |= 0x400/*_BS_TOP*/;
+				case "bottom" 
+	   			tParam.style |= 0x800/*_BS_BOTTOM*/; 
+				else 
+	   			tParam.style |= 0xC00/*_BS_VCENTER*/;  
+			} 
+		} 
+	}
+	@_metaProperty;
+}
+
+var loadIpicture = ..com.picture.load;
+button._metaProperty = metaProperty(
+	image = {
+		_get = function(){   
+			return topointer(  
+				::SendMessage(owner.hwnd, 0x00F6/*_BM_GETIMAGE*/,
+			    	..win.getStyle(owner.hwnd,0x80/*_BS_BITMAP*/)?0x173/*_STM_GETIMAGE*/: 0x171/*_STM_GETICON*/ 
+			    ) 
+			)
+		}
+		_set = function( v ){
+			if(type(v)==type.pointer)
+				return owner.setImage(h);
+				
+			var ipic = loadIpicture(v)
+			if(!ipic){
+				owner.modifyStyle( 0x3/*_SS_ICON*/  |  0xE/*_SS_BITMAP*/);
+				return;
+			}
+			
+			var hpic,imgtype = ipic.CopyHandle() ; 
+			if( imgtype ==0x1/*_IMAGE_ICON*/ )	{  
+			     owner.setIcon(hpic); 
+		    }
+		    else if( imgtype ==0x0/*_IMAGE_BITMAP*/ ){
+		        owner.setImage(hpic); 
+		    }
+		    ..com.Release(ipic)
+		} 	
+	}   
+	setImage = function(h,delPrev=true,bs=0x80/*_BS_BITMAP*/,tt=0/*_IMAGE_BITMAP*/){
+		owner.modifyStyle( 0x80 | 0x40 ,bs);
+		var retPrev = ::SendMessage(owner.hwnd,0xF7/*_BM_SETIMAGE*/, topointer(tt),h);
+		if(retPrev){
+			if(delPrev){
+				::DeleteObject(topointer(retPrev));
+				retPrev = true;
+			}
+		}
+		return retPrev;
+	} 
+	setIcon = function(h,delPrev=true){ 
+		return owner.setImage(h,delPrev,0x40/*_BS_ICON*/,0x1/*_IMAGE_ICON*/) 
+	}
+	note = {
+		_set = function( v ){
+			 ::User32.SendMessage(owner.hwnd,0x1609/*BCM_SETNOTE*/, 0,v );
+		}
+		_get = function(){
+			var ok,size,buffer =  ::User32.SendMessage(owner.hwnd,0x160A/*BCM_GETNOTE*/,{INT len = 128},{WORD str[128]} )
+			if(ok) return buffer.str; 
+		}	
+	}   
+)
+
+class radiobutton{
+    ctor(parent,tParam){ 
+       if( tParam ){
+       	tParam.style |= 0x9/*_BS_AUTORADIOBUTTON*/  //BS_RADIOBUTTON 
+       	tParam.cls = "button" 
+       	if(tParam.edge) tParam.exstyle |= 0x200/*_WS_EX_CLIENTEDGE*/;
+       	if(tParam.ownerDraw) 
+				tParam.style |= 0xB/*_BS_OWNERDRAW*/
+       }
+    }
+	@_metaProperty;
+}
+radiobutton._metaProperty = metaProperty(
+
+	checked = {
+		_get = function(){ 
+			 return  ::SendMessage(owner.hwnd ,0xF0/*_BM_GETCHECK*/);
+		}
+		_set = function( v ){
+			::SendMessage(owner.hwnd ,0xF1/*_BM_SETCHECK*/,topointer(v?1:0));
+		} 	
+	}
+)
+ 
+
+class checkbox{
+    ctor(parent,tParam){ 
+       if( tParam ){
+		tParam.style |= 0x3/*_BS_AUTOCHECKBOX*/  
+		tParam.cls = "button" //这个类名仅用于创建窗口 
+		if(tParam.edge) tParam.exstyle |= 0x200/*_WS_EX_CLIENTEDGE*/;
+		if(tParam.ownerDraw) 
+				tParam.style |= 0xB/*_BS_OWNERDRAW*/
+       }
+    }
+	@_metaProperty;
+}
+checkbox._metaProperty = metaProperty(
+
+	checked = {
+		_get = function(){ 
+			 return ::User32.SendMessageB(owner.hwnd ,0xF0/*_BM_GETCHECK*/,0,0);
+		}
+		_set = function( v ){
+			::User32.SendMessage(owner.hwnd ,0xF1/*_BM_SETCHECK*/,v?1:0,0);
+		} 	
+	}
+)
+  
+class groupbox{
+    ctor(parent,tParam){  
+    	if( tParam ){
+    		tParam.style |= 0x7/*_BS_GROUPBOX*/  
+    		tParam.cls = "button" //这个类名仅用于创建窗口 
+			if(tParam.edge) tParam.style |= 0x20000/*_WS_EX_STATICEDGE*/;
+		}	 
+    }
+    onCreated =  function(){
+    	this.translateCommand();
+    } 
+	@_metaProperty;
+}
+groupbox._metaProperty = metaProperty( )
+
+/***intellisense() 
+!button.cls = 设计时类名
+!button.className = 运行时类名
+!button.text = 按钮文本属性
+!button.disabledText = @.disabledText = {"✶";"✸";"✹";"✺";"✹";"✷"}__/*指定文本时,禁用此控件,并显示指定文本,\n指定为数组时,创建动画并在主文本前循环显示数组中的字符串,\n数组可选用 text 属性指定按钮禁用状态按钮主文本,\n指定为null时,启用此控件,并恢复控件之前的正常文本*/
+!button.note = 设置按钮附注\n必须在创建控件的初始化参数中也指定该属性,\n\n指定该属性会切换为「命令链接」样式,\n支持Vista,Win7 以及之后的系统,不支持 XP 系统\n「命令链接」样式忽略控件的字体设置，但支持背景色属性
+!button.hwnd = 控件句柄
+!button.id = 控件ID 
+!button._parentForm = 创建该控件的父窗口（win.form对象）,\n设计时窗体容器是所有拖放在窗体上的控件的 _parentForm,\n\n即使窗口移除子窗口样式、更改父子关系，或以 orphanWindow显示,\n控件的 _parentForm 始终都不会改变\n!winform.
+!button.getParent() = 返回父窗口\n!static.
+!button.setParent(__/*控件对象*/) = 改变父窗口  
+!button.hide = 控件是否隐藏
+!button.disabled = 是否禁用
+!button.left = 左侧坐标
+!button.right = 右侧坐标
+!button.top = 顶部坐标
+!button.bottom = 底部坐标
+!button.width = 宽度
+!button.height = 高度
+!button.redraw() = 刷新
+!button.show(true__) = 显示控件
+!button.getRect() = 控件区块位置(::RECT结构体)
+!button.getRect(true) = 控件屏幕区块位置(::RECT结构体)  
+!button.setRect(rc) = 设置控件区块位置(::RECT结构体)  
+!button.setRect(rc,true) = 设置控件屏幕区块位置(::RECT结构体)  
+!button.getClientRect() =  控件客户区块位置(::RECT结构体)\n!rect.
+!button.getFont() = 返回控件 LOGFONT 字体，\n返回对象的 h 值会按控件的 DPI 缩放设置自动还原为缩放前大小。\n!logfont.
+!button.getFont(true) = 返回控件 LOGFONT 字体，\n返回对象的 h 值为字体实际大小，不会按控件 DPI 设置还原。\n返回字体会设置 noScale 属性为 true,\n使用控件的 setFont 函数或赋值 font 属性时，\nnoScale 属性为 true 的字体同样不会进行自动 DPI 缩放\n!logfont.
+!button.setFont(__/*指定字体*/) = 指定 LOGFONT 字体对象,或逻辑字体句柄\n如果不指定 point 值并指定 h 值，字体会按控件的 DPI 缩放设置自动缩放。
+!button.setFont(混入字体属性) = @.setFont(h=-12;name="Tahoma");
+!button.font = 控件字体（LOGFONT 结构体），\n注意获取该属性总是返回新的 LOGFONT 对象，\n修改返回字体并不会更新控件字体，\n除非重新赋值。\n\n建议尽量优先使用 getFont 或 setFont 函数，\n以增强代码可读性\n\n字体会根据控件设置自动处理 DPI 缩放，不需要事先缩放字体大小
+!button.theme = 外观主题,例如\nwinform.button.theme = "Explorer"\nwinform.button.theme = false
+!button.modifyStyle(.(remove,add,swpFlags) = 修改窗口样式,所有参数都是可选参数,\n@remove 用数值指定要移除的样式,可使用 _WS_ 前缀的常量\n@add 用数值指定要添加的样式,可使用 _WS_ 前缀的常量\n@swpFlags 可选用数值指定调整窗口选项,可使用 _SWP_ 前缀的常量\n如果指定了 @swpFlag ,则使用该参数调用::SetWindowPos\n细节请参考 win.modifyStyle 函数源码 
+!button.modifyStyleEx(.(remove,add,swpFlags) = 修改窗口扩展样式,所有参数都是可选参数,\n@remove 用数值指定要移除的样式,可使用 _WS_EX_ 前缀的常量\n@add 用数值指定要添加的样式,可使用 _WS_EX_ 前缀的常量\n@swpFlags 可选用数值指定调整窗口选项,可使用 _SWP_ 前缀的常量\n如果指定了 @swpFlag ,则使用该参数调用::SetWindowPos\n细节请参考 win.modifyStyle 函数源码
+!button.capture = 是否捕获全局鼠标消息
+!button.close() = 关闭控件窗口
+!button.invalidate(__/*可选使用::RECT()对象指定客户区*/) = 使窗口绘图区无效
+!button.invalidate(__/*可选使用::RECT()对象指定客户区*/,0) = 使窗口绘图区无效\n不刷新背景
+!button.update() = 重绘invalidate函数指定的区块
+!button.setFocus() = 设置焦点 
+!button.setPos(.(x坐标,y坐标,宽,高,插入位置,参数) = 调整窗口位置或排序,所有参数可选\n同时指定x,y坐标则移动位置\n同时指定宽高则改变大小\n指定插入位置(句柄或_HWND前缀常量)则调整Z序
+!button.getPos() = 返回相对坐标,宽,高\nx,y,cx,cy=win.getPos(hwnd)
+!button.image = 按钮图片或图标\n赋值必须是图片文件路径或数据\n位图句柄由窗体负责销毁\n取值时返回位图句柄
+!button.setIcon(__/*图标句柄*/) = 设置图标\n成功返回true,自动销毁原来的位图
+!button.setImage(__/*图片句柄*/) = 设置图片\n成功返回true,自动销毁原来的位图
+!button.setIcon(__/*图标句柄*/,false) = 设置图标\n成功返回控件原来的位图句柄,\n必须调用::DeleteObject()函数销毁该句柄
+!button.setImage(__/*图片句柄*/,false) = 设置图片\n成功返回控件原来的位图句柄,\n必须调用::DeleteObject()函数销毁该句柄
+!button.saveScale() = 根据控件当前位置、缩放比例，更新控件的设计时位置参数。\n以避免下次窗口缩放自适应调整控件当前位置更改被清除，\n控件所有调整位置的属性或成员函数已自动调用此函数。
+!button.reloadScale() = 按设计时位置参数、重新调整控件位置以适应窗口当前缩放比例。\n父窗口缩放时会自动执行此操作。\n默认在启动窗口消息循环时会自适应调整所有控件。\n所以在启动消息循环前添加控件不必调用此函数。
+!button.threadCallable() = 开启此控件的跨线程调用功能
+!button.orphanWindow(.(transparent,hwndBuddy) = 创建悬浮窗口,\n悬浮窗口仍然显示在原来的位置,\n悬浮窗口如影随形的跟随父窗口移动或改变大小,控件原来的固定边距等参数仍然有效\n此控件不建议指定参数
+!button.onMeasureItem(measureItem,dpiScaleX,dpiScaleY) = @.onMeasureItem = function(measureItem){
+	measureItem.itemHeight = 51;  
+	__/*控件属性里指定 ownerDraw 为 true 触发此事件\n在这里配置自绘控件项参数*/
+} 
+!button.onDrawItem(drawItem,dpiScaleX,dpiScaleY) = @.onDrawItem = function(drawItem){
+	__/*控件属性里指定 ownerDraw 为 true 触发此事件\n在这里自绘控件项*/	
+} 
+!button.sendMessage(.(msg,wParam,lParam) = 发送窗口消息\n此函数用法请参考 ::User32.SendMessage
+!button.postMessage(.(msg,wParam,lParam) = 投递窗口消息到消息队列中\n此函数用法请参考 ::User32.PostMessage
+!button.publish("__/*发布消息名*/",) = 在窗口所在界面线程发布消息,\n运行界面线程所有所有调用subscribe函数订阅此消息的函数,\n可添加任意个触发参数
+!button._defWindowProc(hwnd,message,wParam,lParam) = 用于在 wndproc 回调中提前调用默认消息回调函数,\n所有窗口和控件定义了 wndproc 回调以后会自动创建这个函数,\n调用此函数以后,wndproc 必须指定非 null 返回值,\n以避免再次重复调用默认回调函数
+!button.dpiScaleX = 窗口当前使用的DPI横坐标缩放系数,\n该值由界面系统自动维护，任何情况下都不应手动修改,\n\n这是一个以小数表示百分比的数，例如 1.25 表示 125%,\n窗口未使用缩放或未完成缩放初始化时，值可能为 null，\n如果要获取屏幕缩放设置应改用 gdi.getDpiScale 函数
+!button.dpiScaleY = 窗口当前使用的DPI纵坐标缩放系数,\n该值由界面系统自动维护，任何情况下都不应手动修改,\n\n这是一个以小数表示百分比的数，例如 1.25 表示 125%,\n窗口未使用缩放或未完成缩放初始化时，值可能为 null，\n如果要获取屏幕缩放设置应改用 gdi.getDpiScale 函数
+!button.translateCommand() = 允许转发转发子窗口的命令（_WM_COMMAND）与通知（_WM_NOTIFY）消息，\n避免子窗口 oncommand，onnotify 等回调失效。\n同时会处理子窗口的 _WM_CTLCOLORSTATIC 等消息，\n以避免部分外观属性失效
+!button.valid = 窗口是否有效，\n窗口未关闭返回 true ，\n窗口已关闭或正在关闭返回 false
+?win.ui.ctrl.button  =!button. 
+win.ui.ctrl.button() = 控钮控件\ncheckbox.radiobutton 等控件继承自 button 控件,\nbutton 控件默认会忽略背景色、字体颜色属性,\n在创建参数中指定 note 属性时会切换为「命令链接」样式\n!button. 
+?win.ui.ctrl.groupbox  =!static. 
+win.ui.ctrl.groupbox() = 控钮控件\n!static.
+end intellisense***/
+
+/***intellisense()
+?win.ui.ctrl.checkbox  =!checkbox.
+win.ui.ctrl.checkbox() = 复选控钮控件\n!checkbox.
+!checkbox.checked = 复选框是否选中状态
+!checkbox.hwnd = 控件句柄
+!checkbox.id = 控件ID
+!checkbox._parentForm = 创建该控件的父窗口（win.form对象）,\n设计时窗体容器是所有拖放在窗体上的控件的 _parentForm,\n\n即使窗口移除子窗口样式、更改父子关系，或以 orphanWindow显示,\n控件的 _parentForm 始终都不会改变\n!winform.
+!checkbox.getParent() = 返回父窗口\n!static.
+!checkbox.setParent(__/*控件对象*/) = 改变父窗口 
+!checkbox.hide = 控件是否隐藏
+!checkbox.disabled = 是否禁用
+!checkbox.left = 左侧坐标
+!checkbox.right = 右侧坐标
+!checkbox.top = 顶部坐标
+!checkbox.bottom = 底部坐标
+!checkbox.width = 宽度
+!checkbox.height = 高度
+!checkbox.redraw() = 刷新
+!checkbox.show(true__) = 显示控件
+!checkbox.getRect() = 控件区块位置(::RECT结构体)
+!checkbox.getRect(true) = 控件屏幕区块位置(::RECT结构体)  
+!checkbox.setRect(rc) = 设置控件区块位置(::RECT结构体)  
+!checkbox.setRect(rc,true) = 设置控件屏幕区块位置(::RECT结构体) 
+!checkbox.getClientRect() =  控件客户区块位置(::RECT结构体)\n!rect.
+!checkbox.getFont() = 控件字体(::LOGFONT结构体)\n!logfont\n!logfont.
+!checkbox.setFont(__/*指定字体*/) = 指定LOGFONT字体对象,或逻辑字体句柄 
+!checkbox.setFont(混入字体属性) = @.setFont(point=10;name="宋体");
+!checkbox.theme = 外观主题,例如\nwinform.button.theme = "Explorer"\nwinform.button.theme = false
+!checkbox.modifyStyle(.(remove,add,swpFlags) = 修改窗口样式,所有参数都是可选参数,\n@remove 用数值指定要移除的样式,可使用 _WS_ 前缀的常量\n@add 用数值指定要添加的样式,可使用 _WS_ 前缀的常量\n@swpFlags 可选用数值指定调整窗口选项,可使用 _SWP_ 前缀的常量\n如果指定了 @swpFlag ,则使用该参数调用::SetWindowPos\n细节请参考 win.modifyStyle 函数源码 
+!checkbox.modifyStyleEx(.(remove,add,swpFlags) = 修改窗口扩展样式,所有参数都是可选参数,\n@remove 用数值指定要移除的样式,可使用 _WS_EX_ 前缀的常量\n@add 用数值指定要添加的样式,可使用 _WS_EX_ 前缀的常量\n@swpFlags 可选用数值指定调整窗口选项,可使用 _SWP_ 前缀的常量\n如果指定了 @swpFlag ,则使用该参数调用::SetWindowPos\n细节请参考 win.modifyStyle 函数源码
+!checkbox.capture = 是否捕获全局鼠标消息
+!checkbox.close() = 关闭控件窗口
+!checkbox.invalidate(__/*可选使用::RECT()对象指定客户区*/) = 使窗口绘图区无效
+!checkbox.invalidate(__/*可选使用::RECT()对象指定客户区*/,0) = 使窗口绘图区无效\n不刷新背景
+!checkbox.update() = 重绘invalidate函数指定的区块
+!checkbox.setFocus() = 设置焦点 
+!checkbox.threadCallable() = 开启此控件的跨线程调用功能
+!checkbox.setPos(.(x坐标,y坐标,宽,高,插入位置,参数) = 调整窗口位置或排序,所有参数可选\n同时指定x,y坐标则移动位置\n同时指定宽高则改变大小\n指定插入位置(句柄或_HWND前缀常量)则调整Z序
+!checkbox.getPos() = 返回相对坐标,宽,高\nx,y,cx,cy=win.getPos(hwnd)
+!checkbox.onMeasureItem(measureItem) = @.onMeasureItem = function(measureItem){
+	measureItem.itemHeight = 51;  
+} 
+!checkbox.onDrawItem(drawItem) = @.onDrawItem = function(drawItem){
+	
+} 
+!checkbox.sendMessage(.(msg,wParam,lParam) = 发送窗口消息\n此函数用法请参考 ::User32.SendMessage
+!checkbox.postMessage(.(msg,wParam,lParam) = 投递窗口消息到消息队列中\n此函数用法请参考 ::User32.PostMessage
+!checkbox._defWindowProc(hwnd,message,wParam,lParam) = 用于在 wndproc 回调中提前调用默认消息回调函数,\n所有窗口和控件定义了 wndproc 回调以后会自动创建这个函数,\n调用此函数以后,wndproc 必须指定非 null 返回值,\n以避免再次重复调用默认回调函数
+end intellisense***/
+
+
+/***intellisense()
+?win.ui.ctrl.radiobutton  =!radiobutton.
+win.ui.ctrl.radiobutton() = 单选控钮控件\n!radiobutton.
+!radiobutton.checked = 单选按钮否选中状态
+!radiobutton.hwnd = 控件句柄
+!radiobutton.id = 控件ID
+!radiobutton._parentForm = 创建该控件的父窗口（win.form对象）,\n设计时窗体容器是所有拖放在窗体上的控件的 _parentForm,\n\n即使窗口移除子窗口样式、更改父子关系，或以 orphanWindow显示,\n控件的 _parentForm 始终都不会改变\n!winform.
+!radiobutton.getParent() = 返回父窗口\n!static.
+!radiobutton.setParent(__/*控件对象*/) = 改变父窗口 
+!radiobutton.hide = 控件是否隐藏
+!radiobutton.disabled = 是否禁用
+!radiobutton.left = 左侧坐标
+!radiobutton.right = 右侧坐标
+!radiobutton.top = 顶部坐标
+!radiobutton.bottom = 底部坐标
+!radiobutton.width = 宽度
+!radiobutton.height = 高度
+!radiobutton.redraw() = 刷新
+!radiobutton.show(true__) = 显示控件
+!radiobutton.getRect() = 控件区块位置(::RECT结构体)
+!radiobutton.getRect(true) = 控件屏幕区块位置(::RECT结构体)  
+!radiobutton.setRect(rc) = 设置控件区块位置(::RECT结构体)  
+!radiobutton.setRect(rc,true) = 设置控件屏幕区块位置(::RECT结构体) 
+!radiobutton.getClientRect() =  控件客户区块位置(::RECT结构体)\n!rect.
+!radiobutton.getFont() = 控件字体(::LOGFONT结构体)\n!logfont\n!logfont. 
+!radiobutton.setFont(__/*指定字体*/) = 指定LOGFONT字体对象,或逻辑字体句柄 
+!radiobutton.setFont(混入字体属性) = @.setFont(point=10;name="宋体");
+!radiobutton.theme = 外观主题,例如\nwinform.button.theme = "Explorer"\nwinform.button.theme = false
+!radiobutton.modifyStyle(.(remove,add,swpFlags) = 修改窗口样式,所有参数都是可选参数,\n@remove 用数值指定要移除的样式,可使用 _WS_ 前缀的常量\n@add 用数值指定要添加的样式,可使用 _WS_ 前缀的常量\n@swpFlags 可选用数值指定调整窗口选项,可使用 _SWP_ 前缀的常量\n如果指定了 @swpFlag ,则使用该参数调用::SetWindowPos\n细节请参考 win.modifyStyle 函数源码 
+!radiobutton.modifyStyleEx(.(remove,add,swpFlags) = 修改窗口扩展样式,所有参数都是可选参数,\n@remove 用数值指定要移除的样式,可使用 _WS_EX_ 前缀的常量\n@add 用数值指定要添加的样式,可使用 _WS_EX_ 前缀的常量\n@swpFlags 可选用数值指定调整窗口选项,可使用 _SWP_ 前缀的常量\n如果指定了 @swpFlag ,则使用该参数调用::SetWindowPos\n细节请参考 win.modifyStyle 函数源码
+!radiobutton.capture = 是否捕获全局鼠标消息
+!radiobutton.close() = 关闭控件窗
+!radiobutton.invalidate(__/*可选使用::RECT()对象指定客户区*/) = 使窗口绘图区无效
+!radiobutton.invalidate(__/*可选使用::RECT()对象指定客户区*/,0) = 使窗口绘图区无效\n不刷新背景
+!radiobutton.update() = 重绘invalidate函数指定的区块
+!radiobutton.setFocus() = 设置焦点 
+!radiobutton.threadCallable() = 开启此控件的跨线程调用功能
+!radiobutton.setPos(.(x坐标,y坐标,宽,高,插入位置,参数) = 调整窗口位置或排序,所有参数可选\n同时指定x,y坐标则移动位置\n同时指定宽高则改变大小\n指定插入位置(句柄或_HWND前缀常量)则调整Z序
+!radiobutton.getPos() = 返回相对坐标,宽,高\nx,y,cx,cy=win.getPos(hwnd)
+!radiobutton.onMeasureItem(measureItem) = @.onMeasureItem = function(measureItem){
+	measureItem.itemHeight = 51;  
+} 
+!radiobutton.onDrawItem(drawItem) = @.onDrawItem = function(drawItem){
+	
+} 
+!radiobutton.sendMessage(.(msg,wParam,lParam) = 发送窗口消息\n此函数用法请参考 ::User32.SendMessage
+!radiobutton.postMessage(.(msg,wParam,lParam) = 投递窗口消息到消息队列中\n此函数用法请参考 ::User32.PostMessage
+!radiobutton._defWindowProc(hwnd,message,wParam,lParam) = 用于在 wndproc 回调中提前调用默认消息回调函数,\n所有窗口和控件定义了 wndproc 回调以后会自动创建这个函数,\n调用此函数以后,wndproc 必须指定非 null 返回值,\n以避免再次重复调用默认回调函数
+end intellisense***/

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

@@ -0,0 +1,135 @@
+//calendar 日历控件
+
+import win.ui.ctrl.metaProperty;//导入控件属性元表支持
+namespace win.ui.ctrl;  
+ 
+class calendar{
+    ctor(parent,tParam){ 
+    	if(tParam){
+    		tParam.cls  = "SysMonthCal32";
+			if(tParam.edge) tParam.exstyle |= 0x200/*_WS_EX_CLIENTEDGE*/;	
+ 		
+			this.pos2 = 0;
+		}
+    }
+	@_metaProperty;
+}
+ 
+calendar._metaProperty = metaProperty(
+	getColor = function(ind){
+		::SendMessageInt(owner.hwnd,0x100B/*_MCM_GETCOLOR*/,ind,0);
+	};
+	setColor = function(ind,clr){
+		::SendMessageInt(owner.hwnd,0x100A/*_MCM_SETCOLOR*/,ind,clr);
+	};
+	bgcolor = {
+		_get = function(){
+			return owner.getColor(0/*_MCSC_BACKGROUND*/)
+		}
+		_set = function(v){
+			owner.setColor(0/*_MCSC_BACKGROUND*/,v)
+		} 
+	};
+	color = {
+		_get = function(){
+			return owner.getColor(1/*_MCSC_TEXT*/) 
+		}
+		_set = function(v){
+			owner.setColor(1/*_MCSC_TEXT*/,v) 
+		} 
+	};
+	time = {
+		_get = function(){ 
+			var tm = ..time(,"%x")
+			var hour,second,minute = tm.hour,tm.second,tm.minute
+			var re,tm = ::SendMessageByStruct(owner.hwnd, 0x1001/*_MCM_GETCURSEL*/,0,..time(,"%x"));
+     		return ..table.assign(tm,{ hour = hour; second = second; minute = minute; } )
+		}
+		_set = function( v ){
+			assert( ..time.istime(v),"无效的time对象")
+		    ::SendMessageByStruct(owner.hwnd, 0x1002/*_MCM_SETCURSEL*/,0, v);
+		} 	
+	};
+	setRange = function(tmMin,tmMax){ 
+		var flag = 0;
+		if( !tmMin )
+			tmMin = ..time();
+		elseif(! ..time.istime(tmMin) )
+			error("最小时间参数不正确",2)
+		else 
+			flag |= 1/*_GDTR_MIN*/
+			
+		if( !tmMax )
+			tmMax = ..time();
+		elseif(! ..time.istime(tmMax) )
+			error("最大时间参数不正确",2)
+		else 
+			flag |= 2/*_GDTR_MAX*/
+			
+		::SendMessageByStruct(owner.hwnd,0x1012/*_MCM_SETRANGE*/,flag,{struct tm[2]={tmMin;tmMax} });
+	}
+	getRange = function( ){
+		var tm =  ..time();
+		var tmRange = {struct array[2]={ ..time()  } }
+		var tmMin,tmMax;
+		var ret = ::SendMessageByStruct(owner.hwnd,0x1011/*_MCM_GETRANGE*/,0,tmRange);
+ 	 
+		if( ret & 1/*_GDTR_MIN*/ ){
+			tmMin = tmRange.array[1]; 
+		}
+		if( ret & 2/*_GDTR_MAX*/ ){
+			tmMax = tmRange.array[2]; 
+		}	
+		return tmMin,tmMax
+	}; 
+)
+ 
+
+/***intellisense() 
+?win.ui.ctrl.calendar =!calendar.
+win.ui.ctrl.calendar() = 日历控件\n!calendar.
+!calendar.cls = 设计时类名
+!calendar.className = 运行时类名
+!calendar.time = 获取或设置时间\n!time.
+!calendar.setRange(.(时间下限,时间上限) = 设置时间范围,参数为time()对象\n可省略其中一个参数,仅指定下限或仅指定上限
+!calendar.getRange() = 返回两个time()对象:时间范围下限,时间范围上限\n如果未调用setRange()指定上限或下限,相应值返回为空
+!calendar.hwnd = 控件句柄
+!calendar.id = 控件ID
+!calendar.text = 控件文本
+!calendar._parentForm = 创建该控件的父窗口（win.form对象）,\n设计时窗体容器是所有拖放在窗体上的控件的 _parentForm,\n\n即使窗口移除子窗口样式、更改父子关系，或以 orphanWindow显示,\n控件的 _parentForm 始终都不会改变\n!winform.
+!calendar.getParent() = 返回父窗口\n!static.
+!calendar.setParent(__/*控件对象*/) = 改变父窗口 
+!calendar.hide = 控件是否隐藏
+!calendar.disabled = 是否禁用
+!calendar.left = 左侧坐标
+!calendar.right = 右侧坐标
+!calendar.top = 顶部坐标
+!calendar.bottom = 底部坐标
+!calendar.width = 宽度
+!calendar.height = 高度
+!calendar.redraw() = 刷新
+!calendar.show(true__) = 显示控件
+!calendar.getRect() = 控件区块位置(::RECT结构体)
+!calendar.getRect(true) = 控件屏幕区块位置(::RECT结构体)  
+!calendar.setRect(rc) = 设置控件区块位置(::RECT结构体)  
+!calendar.setRect(rc,true) = 设置控件屏幕区块位置(::RECT结构体)
+!calendar.getClientRect() =  控件客户区块位置(::RECT结构体)\n!rect.
+!calendar.getFont() = 控件字体(::LOGFONT结构体)\n!logfont.
+!calendar.setFont(__/*指定字体*/) = 指定LOGFONT字体对象,或逻辑字体句柄 
+!calendar.setFont(混入字体属性) = @.setFont(point=10;name="宋体");
+!calendar.theme = 外观主题,例如\nwinform.button.theme = "Explorer"\nwinform.button.theme = false
+!calendar.modifyStyle(.(remove,add,swpFlags) = 修改窗口样式,所有参数都是可选参数,\n@remove 用数值指定要移除的样式,可使用 _WS_ 前缀的常量\n@add 用数值指定要添加的样式,可使用 _WS_ 前缀的常量\n@swpFlags 可选用数值指定调整窗口选项,可使用 _SWP_ 前缀的常量\n如果指定了 @swpFlag ,则使用该参数调用::SetWindowPos\n细节请参考 win.modifyStyle 函数源码 
+!calendar.modifyStyleEx(.(remove,add,swpFlags) = 修改窗口扩展样式,所有参数都是可选参数,\n@remove 用数值指定要移除的样式,可使用 _WS_EX_ 前缀的常量\n@add 用数值指定要添加的样式,可使用 _WS_EX_ 前缀的常量\n@swpFlags 可选用数值指定调整窗口选项,可使用 _SWP_ 前缀的常量\n如果指定了 @swpFlag ,则使用该参数调用::SetWindowPos\n细节请参考 win.modifyStyle 函数源码
+!calendar.capture = 是否捕获全局鼠标消息
+!calendar.close() = 关闭控件窗口
+!calendar.invalidate(__/*可选使用::RECT()对象指定客户区*/) = 使窗口绘图区无效
+!calendar.invalidate(__/*可选使用::RECT()对象指定客户区*/,0) = 使窗口绘图区无效\n不刷新背景
+!calendar.update() = 重绘invalidate函数指定的区块 
+!calendar.setFocus() = 设置焦点 
+!calendar.setPos(.(x坐标,y坐标,宽,高,插入位置,参数) = 调整窗口位置或排序,所有参数可选\n同时指定x,y坐标则移动位置\n同时指定宽高则改变大小\n指定插入位置(句柄或_HWND前缀常量)则调整Z序
+!calendar.getPos() = 返回相对坐标,宽,高\nx,y,cx,cy=win.getPos(hwnd)
+!calendar.sendMessage(.(msg,wParam,lParam) = 发送窗口消息\n此函数用法请参考 ::User32.SendMessage
+!calendar.postMessage(.(msg,wParam,lParam) = 投递窗口消息到消息队列中\n此函数用法请参考 ::User32.PostMessage
+_MCM_FIRST=@0x1000/*_MCM_FIRST*/ 
+end intellisense***/
+

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

@@ -0,0 +1,33 @@
+//checklist 复选列表框
+import win.ui.ctrl.listview;
+namespace win.ui.ctrl; 
+var listview = ..win.ui.ctrl.listview;
+
+class checklist{
+    ctor(parent,tParam){ 
+    	if( tParam ){
+    		tParam.cls = "SysListView32"; 
+    		tParam.style =  tParam.style | 1/*_LVS_REPORT*/ | 0x4000 /*_LVS_NOCOLUMNHEADER*/  
+    		if(tParam.edge)   
+				tParam.exstyle |= 0x200/*_WS_EX_CLIENTEDGE*/; 
+				
+			if(!tParam.msel){
+				tParam.style |= 0x4/*_LVS_SINGLESEL*/
+			}	
+   		} 
+    };
+    onCreate = function(){  
+    	this.setExtended(0x4/*_LVS_EX_CHECKBOXES*/|0x20/*_LVS_EX_FULLROWSELECT*/);
+    	this.insertColumn("list",-1,,0x0/*_LVCFMT_LEFT*/) 
+    }; 
+	adjust = function(cx,cy){
+    	this.fillParent(1);
+	};
+    @_metaProperty;
+}
+checklist._metaProperty = listview._metaProperty;
+ 
+/**intellisense()
+?win.ui.ctrl.checklist  =!listview.
+win.ui.ctrl.checklist() = 复选列表框\n!listview.
+end intellisense**/

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

@@ -0,0 +1,62 @@
+//close 关闭按钮
+import win.ui.ctrl.plus;
+import gdip.pen;
+
+namespace win.ui.ctrl;
+
+class close {
+	ctor (parent,tParam) {
+		tParam.notify=1;
+		tParam.text=null;
+		tParam.clipBk=false;
+		tParam.hide=1;
+		tParam.style = tParam.style & ~0x10000000/*_WS_VISIBLE*/;
+		
+		this = ..win.ui.ctrl.plus(parent,tParam);
+	};	
+	onPlusCreated = function(){
+		var back = this.backgroundColor;
+		if( back !== null ) back = (back &0xFFFFFF) | 0x66000000;
+		else back = 0x66FFCC66;
+		
+		this.skin(
+			background = { 
+				hover = 0xFFE35C51; 
+				active = 0xFF8F241B;
+				default = back; 
+			}
+			color = {
+				hover = 0xFFFFFFFF; 
+				active = 0xFFEEEEEE;
+			} 
+		);
+		this.notify = true;
+		this.orphanWindow(true)
+	};
+	onDrawBackground = function(graphics,rc,backgroundColor,color){  
+		if( backgroundColor!==null ){
+			graphics.pixelOffsetMode = 2/*_PixelOffsetModeHighQuality*/;
+			rc.inflate(-1,-1);
+			
+			var brush = ..gdip.solidBrush(backgroundColor); 
+			graphics.fillEllipse(brush,rc.left,rc.top, rc.width(), rc.height() );  
+			brush.delete(); 
+			
+			rc.inflate(-(rc.width()/3.5),-(rc.height()/3.5)); 
+			var l,t,r,b = rc.ltrb(); 
+			var pen = ..gdip.pen( color , 2, 2/*_GdipUnitPixel*/ ); 
+			
+			//画 ×
+			graphics.drawLine( pen,l,t,r,b);  
+			graphics.drawLine( pen,l,b,r,t);
+			pen.delete();
+			
+			return true;
+		}
+	};	
+};
+
+/**intellisense()
+win.ui.ctrl.close = 显示关闭图标 × 的圆形小按钮,继承自 plus 控件,\n此控件创建 orphanWindow 窗口,创建窗口后默认为隐藏状态,不显示文本
+win.ui.ctrl.close() = !ui_ctrl_plus.
+end intellisense**/