aview-app 1.0.2

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

@@ -0,0 +1,153 @@
+//scrollbar 滚动条控件	
+import win.ui.ctrl.metaProperty;//导入控件属性元表支持
+namespace win.ui.ctrl;  
+
+class scrollbar{
+    ctor(parent,tParam){ 
+    	if(tParam){
+			if(!tParam.horz) tParam.style |= 0x1/*_SBS_VERT*/;   
+			this.scrollMessage = tParam.horz ? 0x114/*_WM_HSCROLL*/ : 0x115/*_WM_VSCROLL*/;	
+			this._bar = 0x2/*_SB_CTL*/
+		} 
+		
+		this.line = 1;
+		this.wheelLines = 3;
+    }
+	@_metaProperty;
+} 
+
+namespace scrollbar{
+
+	class INFO {
+  		INT cbSize = 28;
+  		INT fMask = 0;
+  		int min;
+  		int max;
+  		INT page;
+  		int pos;
+  		int trackPos;
+	} 
+
+	_metaProperty = ..win.ui.ctrl.metaProperty( 
+	
+		scrollWindowTo = function(pos,rect,clipRect){
+			if(owner._bar === 1/*_SB_VERT*/){
+				::User32.ScrollWindow(owner.hwnd,0, owner.pos - pos,rect,clipRect); 
+			}
+			elseif(owner._bar ===  0/*_SB_HORZ*/){
+				::User32.ScrollWindow(owner.hwnd,owner.pos - pos,0,rect,clipRect); 
+			}
+			else {
+				error("仅窗口滚动条支持此函数",2)
+			}
+			
+			::User32.SetScrollPos(owner.hwnd,owner._bar,pos,true); 
+		};
+		updateWheelLines = function(){
+			var r,wheelLines = ::User32.SystemParametersInfo(0x68/*_SPI_GETWHEELSCROLLLINES*/,0,{INT v},0);
+		 	owner.wheelLines = wheelLines.v;
+		 	return owner.wheelLines;
+		};
+		pos = {
+			_get = function(){ 
+				return ::User32.GetScrollPos(owner.hwnd,owner._bar)
+			};
+			_set = function( v ){
+				::User32.SetScrollPos(owner.hwnd,owner._bar,..math.abs(v),v>=0); 
+			};  
+		};
+		show = function(s){
+			if( s === null ) s = true;
+			return !!::User32.ShowScrollBar(owner.hwnd,owner._bar,!!s);
+		};
+		enable = function(flag){
+			return ::User32.EnableScrollBar(owner.hwnd,owner._bar,flag:0);
+		};
+		setRange = function(min,max,page,redraw){
+			return owner.setInfo( {fMask=0x1/*_SIF_RANGE*/|0x2/*_SIF_PAGE*/;min=min;max=max;page=page},redraw);  
+		};
+		getRange = function(){
+			var info = owner.getInfo({fMask=0x1/*_SIF_RANGE*/|0x2/*_SIF_PAGE*/|0x4/*_SIF_POS*/});
+			if( info ) return info.min,info.max,info.page,info.pos;
+		}; 
+		getInfo = function(info){
+			var info = ..table.assign( INFO(),info );
+			if( info.fMask === null ) info.fMask = 0x17/*_SIF_ALL*/;
+			if( ::User32.GetScrollInfo(owner.hwnd,owner._bar,info ) ) return info
+		}
+		setInfo = function(info,redraw){
+			if( redraw === null ) redraw = true;
+			var info = ..table.assign( INFO(),info );
+			if(info.pos !== null)info.fMask |= 0x04/*_SIF_POS*/;
+			if(info.page !== null)info.fMask |= 0x02/*_SIF_PAGE*/;
+			if(info.max !== null)info.fMask |= 0x01/*_SIF_RANGE*/; 
+			if(info.disableNoScroll !== null) info.fMask |= 0x8/*_SIF_DISABLENOSCROLL*/; 
+			if( info.fMask === null ) info.fMask = 0x17/*_SIF_ALL*/;
+			return ::User32.SetScrollInfo(owner.hwnd,owner._bar,info,!!redraw ) ) 
+		}
+	) 
+}
+ 
+/***intellisense() 
+!scrollbar.cls = 设计时类名
+!scrollbar.className = 运行时类名
+!scrollbar.adjustWindow() = 仅绑定窗口的滚动条此函数有效,\窗口调整大小时必须使用此函数重新滚动窗口到滚动条当前位置
+!scrollbar.scrollWindowTo(.(pos,rect,clipRect) = 仅绑定窗口的滚动条此函数有效,\n@pos 参数指定滚动条绝对位置,\n可选用 @rect 传入 ::RECT 结构体指定滚动区块,,\n可选用 @clipRect 传入 ::RECT 结构体指定剪切区块
+!scrollbar.scrollMessage = 滚动条消息ID\n水平滚动条为 _WM_HSCROLL,\n垂直滚动条为 _WM_HSCROLL
+!scrollbar.pos = 获取或设置滚动按钮的当前位置\n如果赋值为负数、可禁止窗口重绘
+!scrollbar.line = 行高
+!scrollbar.updateWheelLines() = 返回系统设置的鼠标滚轮滚动行数,\n并更新 wheelLines 的值
+!scrollbar.wheelLines = 鼠标滚轮滚动行数,默认值为 3\n调用 updateWheelLines 函数可获取系统设置并更新该值
+!scrollbar.setRange(1,100) = 设置滚动条范围
+!scrollbar.getRange() = 返回 4 个数值\n分别为 min,max,page,current,\nmin 为滚动条范围最小值,\nmax 为滚动条范围最大值,\npage为分页大小,\ncurrent 为滚动条当前位置 
+!scrollbar.enable( _ESB___ ) = 激活一个或两个滚动条箭头或是使其失效
+!scrollbar.hwnd = 控件句柄
+!scrollbar.id = 控件ID 
+!scrollbar._parentForm = 创建该控件的父窗口（win.form对象）,\n设计时窗体容器是所有拖放在窗体上的控件的 _parentForm,\n\n即使窗口移除子窗口样式、更改父子关系，或以 orphanWindow显示,\n控件的 _parentForm 始终都不会改变\n!winform.
+!scrollbar.getParent() = 返回父窗口\n!scrollbar.
+!scrollbar.setParent(__/*控件对象*/) = 改变父窗口 
+!scrollbar.hide = 控件是否隐藏
+!scrollbar.disabled = 是否禁用
+!scrollbar.left = 左侧坐标
+!scrollbar.right = 右侧坐标
+!scrollbar.top = 顶部坐标
+!scrollbar.bottom = 底部坐标
+!scrollbar.width = 宽度
+!scrollbar.height = 高度
+!scrollbar.redraw() = 刷新
+!scrollbar.show(true__) = 显示控件
+!scrollbar.getRect() = 控件区块位置(::RECT结构体)
+!scrollbar.getRect(true) = 控件屏幕区块位置(::RECT结构体)  
+!scrollbar.setRect(rc) = 设置控件区块位置(::RECT结构体)  
+!scrollbar.setRect(rc,true) = 设置控件屏幕区块位置(::RECT结构体)
+!scrollbar.getClientRect() =  控件客户区块位置(::RECT结构体)\n!rect.
+!scrollbar.getFont() = 控件字体(::LOGFONT结构体)\n!logfont.
+!scrollbar.setFont(__/*指定字体*/) = 指定LOGFONT字体对象,或逻辑字体句柄 
+!scrollbar.setFont(混入字体属性) = @.setFont(point=10;name="宋体");
+!scrollbar.theme = 外观主题,例如\nwinform.button.theme = "Explorer"\nwinform.button.theme = false
+!scrollbar.modifyStyle(.(remove,add,swpFlags) = 修改窗口样式,所有参数都是可选参数,\n@remove 用数值指定要移除的样式,可使用 _WS_ 前缀的常量\n@add 用数值指定要添加的样式,可使用 _WS_ 前缀的常量\n@swpFlags 可选用数值指定调整窗口选项,可使用 _SWP_ 前缀的常量\n如果指定了 @swpFlag ,则使用该参数调用::SetWindowPos\n细节请参考 win.modifyStyle 函数源码 
+!scrollbar.modifyStyleEx(.(remove,add,swpFlags) = 修改窗口扩展样式,所有参数都是可选参数,\n@remove 用数值指定要移除的样式,可使用 _WS_EX_ 前缀的常量\n@add 用数值指定要添加的样式,可使用 _WS_EX_ 前缀的常量\n@swpFlags 可选用数值指定调整窗口选项,可使用 _SWP_ 前缀的常量\n如果指定了 @swpFlag ,则使用该参数调用::SetWindowPos\n细节请参考 win.modifyStyle 函数源码
+!scrollbar.capture = 是否捕获全局鼠标消息
+!scrollbar.close() = 关闭控件窗口
+!scrollbar.invalidate(__/*可选使用::RECT()对象指定客户区*/) = 使窗口绘图区无效
+!scrollbar.invalidate(__/*可选使用::RECT()对象指定客户区*/,0) = 使窗口绘图区无效\n不刷新背景
+!scrollbar.update() = 重绘invalidate函数指定的区块
+!scrollbar.setFocus() = 设置焦点 
+!scrollbar.setPos(.(x坐标,y坐标,宽,高,插入位置,参数) = 调整窗口位置或排序,所有参数可选\n同时指定x,y坐标则移动位置\n同时指定宽高则改变大小\n指定插入位置(句柄或_HWND前缀常量)则调整Z序
+!scrollbar.getPos() = 返回相对坐标,宽,高\nx,y,cx,cy=win.getPos(hwnd)
+!scrollbar.getInfo() = 返回滚动条信息
+!scrollbar.setInfo() = @.setInfo(\n    fMask = fMask;\n    min = min;\n    max = max;\n    page = page;\n    pos = pos;\n    trackPos = trackPos;\n)
+!scrollbar.sendMessage(.(msg,wParam,lParam) = 发送窗口消息\n此函数用法请参考 ::User32.SendMessage
+!scrollbar.postMessage(.(msg,wParam,lParam) = 投递窗口消息到消息队列中\n此函数用法请参考 ::User32.PostMessage
+?win.ui.ctrl.scrollbar  =!scrollbar.
+win.ui.ctrl.scrollbar() = 滚动条控件\n!scrollbar.
+end intellisense***/
+
+/**intellisense()
+_SIF_DISABLENOSCROLL=@0x8/*_SIF_DISABLENOSCROLL*/
+_SIF_PAGE=@0x2/*_SIF_PAGE*/ 
+_SIF_POS=@0x4/*_SIF_POS*/
+_SIF_RANGE=@0x1/*_SIF_RANGE*/
+_SIF_TRACKPOS=@0x10/*_SIF_TRACKPOS*/
+_SIF_ALL=@0x17/*_SIF_ALL*/
+end intellisense**/

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

@@ -0,0 +1,216 @@
+//spin 微调按钮
+import win.ui.ctrl.metaProperty;
+namespace win.ui.ctrl; 
+
+class spin{
+    ctor(parent,tParam){ 
+    	if(tParam){
+    		tParam.cls = "msctls_updown32"; 
+	 		tParam.style |= 1/*_UDS_WRAP*/  | 0x20/*_UDS_ARROWKEYS*/ 
+	 		
+	 		//不在千位之间插入逗号或句号
+			if(tParam.nthousands) 
+				tParam.style |= 0x80/*_UDS_NOTHOUSANDS*/
+	  	
+			//当鼠标移到该控件时,使该控件作出可视反应  
+			tParam.style |=  0x100/*_UDS_HOTTRACK*/
+	 		
+	 		if(tParam.buddyInt===null || tParam.buddyInt){
+	 			tParam.style |= 2/*_UDS_SETBUDDYINT*/
+	 		}
+	 		 
+	 		//水平样式
+	 		if(tParam.horz) tParam.style |= 0x40/*_UDS_HORZ*/;
+	 		
+	 		if(tParam.align == "left") tParam.style |= 8/*_UDS_ALIGNLEFT*/;
+	 		elseif(tParam.align == "right") tParam.style |= 4/*_UDS_ALIGNRIGHT*/;
+	 		
+	 		this.align = tParam.align;
+	 		
+	 		//导致未知的控件文本变为0
+			//tParam.style |= 0x10/*_UDS_AUTOBUDDY*/
+	 	}
+    }
+    onCreate = function(){  
+    	if(tParam.min && tParam.max)
+    		this.setRange(tParam.min,tParam.max);
+    	else {
+    		this.setRange(0,0x7FFFFFFF);//不指定自增时会反过来
+    	}
+    	
+    }  
+    _adjust = function(){
+    	if( owner.parent != owner._parentForm ) return;
+    	
+    	var buddy = this.buddy;
+    	if(!buddy) return;
+    	
+   		var bX,bY,bCx,bCy = buddy.getPos(); 
+   		var x,y,cx,cy = this.getPos(); 
+   	 
+   	 	if(owner.align = "innerRight"){
+   	 		..win.setPos(owner.hwnd ,bX + bCx - cx - 2 , bY+2,cx,bCy-4 );
+   	 	}
+   	 	elseif(owner.align = "innerLeft"){
+   	 		..win.setPos(owner.hwnd ,bX + 2 , bY+2,cx,bCy-4 );
+   	 	}
+   	 	elseif( x > bX || owner.align = "right" ){
+   			..win.setPos(owner.hwnd ,bX + bCx -1 ,bY,cx,bCy );
+   		}
+   		else {
+   			..win.setPos(owner.hwnd ,bX - cx , bY,cx,bCy  );
+   		} 
+   	}
+	@_metaProperty;
+}
+
+namespace spin{
+	
+	_metaProperty = ..win.ui.ctrl.metaProperty( 
+		buddy =  {
+		 	_get = function(){
+		 		var hwnd = ::SendMessage(owner[["hwnd"]],0x46A/*_UDM_GETBUDDY*/)
+		 		var p = owner[["_parentForm"]];
+				if( p && hwnd ){
+					return p[["_ctrlHwnd"]][[hwnd]] : hwnd;
+				}
+		 	};
+			_set = function(b){
+		 		::SendMessageInt(owner[["hwnd"]],0x469/*_UDM_SETBUDDY*/,b[["hwnd"]]:v,0);
+		 		
+				if(b.cls =="edit") {
+					b.modifyStyle(,0x2000/*_ES_NUMBER*/);
+					b.disableInputMethod();
+					
+					if(!owner.align ){
+						var rcb = b._defRect;
+						var rca = owner._defRect;
+					 	
+		 				if( (rcb.left <= rca.right) && (rca.left >= rcb.left)   
+							&& rcb.intersectsWith(rca)  ){
+							if(!..win.getStyle(b.hwnd,4/*_ES_MULTILINE*/) ){
+								error("文本框必须启用『多行』属性",2);
+							} 
+							
+							if( rca.left - rcb.left > 10){
+								owner.align = "innerRight";
+								b.setPadding(1,rca.width()+2,0,0,true);
+							}
+							else {
+								b.setPadding(1,0,0,rca.width()+2,true);
+								owner.align = "innerLeft";
+							} 
+							
+							owner.setPos(,,,,b.hwnd); 
+							b.setPos(,,,,owner.hwnd); 
+							b.modifyStyle(,0x4000000/*_WS_CLIPSIBLINGS*/);
+							owner[["buddyHwnd"]] = b.hwnd;
+						}
+						
+						b.text = owner.pos;
+					}
+				}
+		 	} 
+		}; 
+		base =  {
+		 	_get = function(){
+		 		return ::SendMessage(owner[["hwnd"]],0x46E/*_UDM_GETBASE*/) 
+		 	};
+			_set = function(v){ 
+		 		::SendMessageInt(owner[["hwnd"]],0x46D/*_UDM_SETBASE*/,v,0) 
+		 	} 
+		}; 
+		setRange = function(min,max){
+ 			::SendMessageInt(owner.hwnd,  0x46F/*_UDM_SETRANGE32*/,min,max);
+            owner.pos = min;
+ 		};
+ 		inc = {
+			_get = function(){   
+				var accel = { INT sec = 0; INT inc = v; }
+				::User32.SendMessage(owner.hwnd,  0x46C/*_UDM_GETACCEL*/,1  ,accel);
+				return accel.inc;
+			}
+			_set = function( v ){ 
+		     	::User32.SendMessage(owner.hwnd,  0x46B/*_UDM_SETACCEL*/ ,1  ,{ INT sec = 0; INT inc = v; })
+			} 	
+		};
+		pos = {
+			_get = function(){   
+				return ::SendMessage(owner.hwnd, 0x472/*_UDM_GETPOS32*/ )
+			}
+			_set = function( v ){ 
+		     	::SendMessageInt(owner.hwnd,0x471/*_UDM_SETPOS32*/,0,v) 
+			} 	
+		}
+	)
+}
+
+/***intellisense() 
+!spinbutton.inc = 设置步长
+!spinbutton.buddy = 设置、获取伙伴窗口。\n伙伴窗口必须是 edit 控件（自动启用限制输入数字）。\nspin 控件可放在 edit 控件内部或外部左侧、右侧。\n调整窗口大小时，spin 控件会自动吸附于 edit 控件左侧或右侧。\n\n如果 spin 控件在 edit 控件左侧，建议添加 align="left" 属性，\n如果 spin 控件在 edit 控件右侧，建议添加 align="right" 属性\n!edit.
+!spinbutton.pos = 当前位置数值
+!spinbutton.base = 显示数值进制基数,10或16
+!spinbutton.setRange(.(最小值,最大值) = 设置数值范围\n同时修改pos属性为最小值
+!spinbutton.cls = 设计时类名
+!spinbutton.className = 运行时类名
+!spinbutton.hwnd = 控件句柄
+!spinbutton.id = 控件ID
+!spinbutton.text = 控件文本
+!spinbutton._parentForm = 创建该控件的父窗口（win.form对象）,\n设计时窗体容器是所有拖放在窗体上的控件的 _parentForm,\n\n即使窗口移除子窗口样式、更改父子关系，或以 orphanWindow显示,\n控件的 _parentForm 始终都不会改变\n!winform.
+!spinbutton.getParent() = 返回父窗口\n!spinbutton.
+!spinbutton.setParent(__/*控件对象*/) = 改变父窗口 
+!spinbutton.addCtrl = @.addCtrl(\n	button={ cls="button";text="button";left=33;top=32;right=126;bottom=81;autoResize=false }  \n)
+!spinbutton.hide = 控件是否隐藏
+!spinbutton.disabled = 是否禁用
+!spinbutton.left = 左侧坐标
+!spinbutton.right = 右侧坐标
+!spinbutton.top = 顶部坐标
+!spinbutton.bottom = 底部坐标
+!spinbutton.width = 宽度
+!spinbutton.height = 高度
+!spinbutton.redraw() = 刷新
+!spinbutton.show(true__) = 显示控件
+!spinbutton.getRect() = 控件区块位置(::RECT结构体)
+!spinbutton.getRect(true) = 控件屏幕区块位置(::RECT结构体)  
+!spinbutton.setRect(rc) = 设置控件区块位置(::RECT结构体)  
+!spinbutton.setRect(rc,true) = 设置控件屏幕区块位置(::RECT结构体)
+!spinbutton.getClientRect() =  控件客户区块位置(::RECT结构体)\n!rect.
+!spinbutton.getFont() = 控件字体(::LOGFONT结构体)\n!logfont.
+!spinbutton.setFont(__/*指定字体*/) = 指定LOGFONT字体对象,或逻辑字体句柄 
+!spinbutton.setFont(混入字体属性) = @.setFont(point=10;name="宋体");
+!spinbutton.theme = 外观主题,例如\nwinform.button.theme = "Explorer"\nwinform.button.theme = false
+!spinbutton.modifyStyle(.(remove,add,swpFlags) = 修改窗口样式,所有参数都是可选参数,\n@remove 用数值指定要移除的样式,可使用 _WS_ 前缀的常量\n@add 用数值指定要添加的样式,可使用 _WS_ 前缀的常量\n@swpFlags 可选用数值指定调整窗口选项,可使用 _SWP_ 前缀的常量\n如果指定了 @swpFlag ,则使用该参数调用::SetWindowPos\n细节请参考 win.modifyStyle 函数源码 
+!spinbutton.modifyStyleEx(.(remove,add,swpFlags) = 修改窗口扩展样式,所有参数都是可选参数,\n@remove 用数值指定要移除的样式,可使用 _WS_EX_ 前缀的常量\n@add 用数值指定要添加的样式,可使用 _WS_EX_ 前缀的常量\n@swpFlags 可选用数值指定调整窗口选项,可使用 _SWP_ 前缀的常量\n如果指定了 @swpFlag ,则使用该参数调用::SetWindowPos\n细节请参考 win.modifyStyle 函数源码
+!spinbutton.capture = 是否捕获全局鼠标消息
+!spinbutton.close() = 关闭控件窗口
+!spinbutton.invalidate(__/*可选使用::RECT()对象指定客户区*/) = 使窗口绘图区无效
+!spinbutton.invalidate(__/*可选使用::RECT()对象指定客户区*/,0) = 使窗口绘图区无效\n不刷新背景
+!spinbutton.update() = 重绘invalidate函数指定的区块
+!spinbutton.setFocus() = 设置焦点 
+!spinbutton.threadCallable() = 开启此控件的跨线程调用功能
+!spinbutton.setPos(.(x坐标,y坐标,宽,高,插入位置,参数) = 调整窗口位置或排序,所有参数可选\n同时指定x,y坐标则移动位置\n同时指定宽高则改变大小\n指定插入位置(句柄或_HWND前缀常量)则调整Z序
+!spinbutton.getPos() = 返回相对坐标,宽,高
+!spinbutton.onnotify = @.onnotify = function(id,code,ptr){ 
+	if(code==0xFFFFFD2E/*_UDN_DELTAPOS*/){
+		var nmUpDown = ..raw.convert(ptr, {
+			struct hdr = ::NMHDR();
+			int pos;
+			int delta; 
+		} ); 
+		__/*pos为当前位置,delta为增减量,单击向下箭头此值为负数*/
+	} 
+}
+!spinbutton.sendMessage(.(msg,wParam,lParam) = 发送窗口消息\n此函数用法请参考 ::User32.SendMessage
+!spinbutton.postMessage(.(msg,wParam,lParam) = 投递窗口消息到消息队列中\n此函数用法请参考 ::User32.PostMessage
+?win.ui.ctrl.spin  = !spinbutton.
+win.ui.ctrl.spin() = 滚动选框控件\n!spinbutton.
+end intellisense***/
+ 
+/**intellisense() 
+_UDS_ALIGNRIGHT=@4/*_UDS_ALIGNRIGHT*/
+_UDS_ALIGNLEFT=@8/*_UDS_ALIGNLEFT*/ 
+_UDS_ARROWKEYS=@0x20/*_UDS_ARROWKEYS*/ 
+_UDM_SETACCEL=@0x46B/*_UDM_SETACCEL*/
+_UDM_GETACCEL=@0x46C/*_UDM_GETACCEL*/
+_UDN_DELTAPOS=@0xFFFFFD2E/*_UDN_DELTAPOS*/
+end intellisense**/

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

@@ -0,0 +1,261 @@
+//splitter 拆分条
+import win.ui.ctrl.metaProperty;  
+namespace win.ui.ctrl ;
+	
+class splitter{
+    ctor(parent,tParam){  
+    	if( tParam ){ 
+    		tParam.style |=0x100/*_BS_PATTERN*/
+    		tParam.cls = "splitter"  
+    		
+    		if(tParam.edge) tParam.exstyle |= 0x100/*_WS_EX_WINDOWEDGE*/;	
+    		if( tParam.center===null || tParam.center )
+				tParam.style |= 0x200/*_SS_CENTERIMAGE*/
+    		
+    		this.horz =tParam.horz; //是否为水平拆分； 
+    		this.ltMin = 20;
+    		this.rbMin = 20;
+		}	 
+    };
+       
+    onCreate =function(){
+    	var x0,y0,
+    	    ,c1x,c1y,c1w,c1h,
+    	    ,c2x,c2y,c2w,c2h,
+    	    ,spx,spy,spw,sph,
+    	    ,oldPos,move,
+    	    ,dragging,leftButtonDown;
+    	
+    	var hDc;
+    	var hCur = ::LoadCursor( ,topointer( this.horz ? 0x7F85/*_IDC_SIZENS*/ : 0x7F84/*_IDC_SIZEWE*/ ) );
+    	var limit =function(movexy){
+    		var move=movexy;
+    		var max;
+    		if(movexy<0){
+    			if(! this.horz){
+    				max =-c2w+this.rbMin;
+    				if(movexy < max) 
+    					move =max;
+       			}else {
+    				max = -c2h+this.rbMin;
+    				if(movexy < max)
+    					move = max;
+    			}
+    		}else {
+    			if(! this.horz){
+    				max =c1w-this.ltMin;
+    				if(movexy >max)
+    					move = max;
+    			}else {
+    				max =c1h-this.ltMin;
+    				if(movexy >max)
+    					move = max;
+    			}
+    		}
+    		return move; 		 
+    	}
+    	 
+    	this.wndproc = function(hwnd,message,wParam,lParam){ 
+			select(message) {
+				case 0x200/*_WM_MOUSEMOVE*/{
+					if(leftButtonDown){
+						var x,y =..win.getMessagePos(lParam);
+						
+						dragging = true; 
+						if( ! this.horz  ){
+							move = limit(x0 - x);
+							
+							if(oldPos){
+								this._drawSplitter(hDc,oldPos,spy,spw,sph);
+							}
+							this._drawSplitter(hDc,spx-move,spy,spw,sph);
+							oldPos =spx-move;
+						}
+						else {
+							move =limit(y0-y);
+							
+							if(oldPos){
+								this._drawSplitter(hDc,spx,oldPos,spw,sph);
+							}
+							this._drawSplitter(hDc,spx,spy-move,spw,sph);
+							oldPos = spy-move;
+						}
+					}
+				}
+				case 0x20/*_WM_SETCURSOR*/ {
+					::SetCursor(hCur);		
+					return true; 
+				}
+				case 0x201/*_WM_LBUTTONDOWN*/ {
+					if((this.ltControl===null)or(this.rbControl===null)){ 
+						return ;
+					} 
+					..win.setCapture(hwnd);
+					
+					leftButtonDown = true;
+					x0,y0 =..win.getMessagePos(lParam);
+					c1x,c1y,c1w,c1h = this.ltControl.getPos();
+					c2x,c2y,c2w,c2h = this.rbControl.getPos();
+					spx,spy,spw,sph = this.getPos();
+					oldPos = 0;
+					if(hDc)::ReleaseDC(this.parent.hwnd,hDc);  
+					hDc =::GetDC(this.parent.hwnd); 
+					
+					if( ! this.horz  ){ 
+						this._drawSplitter(hDc,spx,spy,spw,sph); 
+						oldPos = spx;
+					}
+					else { 
+						this._drawSplitter(hDc,spx,spy,spw,sph);
+						oldPos = spy;
+					}
+				}
+				case 0x202/*_WM_LBUTTONUP*/ {
+					if( leftButtonDown ){
+						if(hDc){
+							if(oldPos!=0){
+								if( ! this.horz  ){
+									this._drawSplitter(hDc,oldPos,spy,spw,sph);
+								}
+								else {
+									this._drawSplitter(hDc,spx,oldPos,spw,sph);
+								}
+							}
+							
+							::ReleaseDC(this.parent.hwnd,hDc); 
+							hDc = null;
+						}
+						 
+						..win.releaseCapture();
+						leftButtonDown = false;	
+						
+						if(dragging){
+							if( !this.horz ){
+								this.ltControl.setPos(c1x,c1y,c1w-move,c1h);
+								this.rbControl.setPos(c2x-move,c2y,c2w+move,c2h);
+								this.setPos(spx-move,spy);
+							}
+							else {
+								this.ltControl.setPos(c1x,c1y,c1w,c1h-move);
+								this.rbControl.setPos(c2x,c2y-move,c2w,c2h+move);
+								this.setPos(spx,spy-move);							
+							}
+							
+							dragging = false;
+							
+							this.redraw();
+						}
+					}
+				} 
+			}
+		}  
+    };
+    _drawSplitter =function(hDc,x,y,width,height){
+    	var sbmp ='\u00AA\u0055\u00AA\u0055';
+		var hbmp =::CreateBitmap(4,4,1,1,sbmp);
+		var brush =::CreatePatternBrush(hbmp);
+		var brush_old =::SelectObject(hDc,brush);
+		::PatBlt(hDc,x,y,width,height,0x5A0049/*_PATINVERT*/);
+		::SelectObject(hDc,brush_old);
+		::DeleteObject(brush);
+		::DeleteObject(hbmp);	
+    };
+   	_preadjust = function(){
+   		if( !(this.ltControl && this.rbControl) )return;
+   		var ltX,ltY,ltCx,ltCy = this.ltControl.getPos();
+   		var rbX,rbY,rbCx,rbCy = this.rbControl.getPos();
+   		var x,y,cx,cy = this.getPos(); 
+   	 
+   		if( this.horz ){
+   			..win.setPos(owner.hwnd , x,ltY+ltCy);
+   			..win.setPos(this.rbControl.hwnd,rbX , ltY + ltCy + cy,rbCx,rbY + rbCy - (ltY + ltCy + cy) ); 
+   		}
+   		else{
+   			..win.setPos(owner.hwnd ,ltX + ltCx ,y);
+   			..win.setPos(this.rbControl.hwnd,ltX + ltCx + cx , rbY, rbX + rbCx - (ltX + ltCx + cx),rbCy );
+   		}  
+   	};
+	@_metaProperty;
+}
+
+splitter._metaProperty = metaProperty(  
+	split =function(ctrl1,ctrl2 ){ 
+    	if( owner.horz ){
+    		if( ctrl1.top < ctrl2.top ){
+    			owner[["ltControl"]] = ctrl1;
+    			owner[["rbControl"]] = ctrl2;  
+    		}
+    		else {
+    			owner[["ltControl"]] = ctrl2;
+    			owner[["rbControl"]] = ctrl1;  
+    		} 
+    	}
+    	else {
+    		
+    		if( ctrl1.left < ctrl2.left ){
+    			owner[["ltControl"]] = ctrl1;
+    			owner[["rbControl"]] = ctrl2;  
+    		}
+    		else {
+    			owner[["ltControl"]] = ctrl2;
+    			owner[["rbControl"]] = ctrl1; 
+    		} 
+    	} 
+    };
+
+);
+
+..win.registerClassEx("splitter",,"static");
+
+//感谢: 琴鸣 贡献最初的源码
+
+/**intellisense()
+!splitter.ltControl = 左边或上边的控件\n!static.
+!splitter.rbControl = 右边或下边的控件\n!static.
+!splitter.split(.(前面的控件,后面的控件) = 指定需要拆分的控件,\n被折分的控件可在控件属性中指定是否支持自动调整大小。\n\n拆分条每侧只能放一个控件,更多控件可放入子窗口并通过 custom 控件容器即可。\n\nlistbox 反复改变高度会因为自动适应项目行高而越来越小,\n要用拆分条改变 listbox 高度时最好也放入 custom 容器
+!splitter.horz = 是否水平拆分条
+!splitter.ltMin = 前面的控件最小尺寸
+!splitter.rbMin = 后面的控件最小尺寸
+!splitter.cls = 设计时类名
+!splitter.className = 运行时类名
+!splitter.hwnd = 控件句柄
+!splitter.id = 控件ID
+!splitter.text = 控件文本
+!splitter._parentForm = 创建该控件的父窗口（win.form对象）,\n设计时窗体容器是所有拖放在窗体上的控件的 _parentForm,\n\n即使窗口移除子窗口样式、更改父子关系，或以 orphanWindow显示,\n控件的 _parentForm 始终都不会改变\n!winform.
+!splitter.getParent() = 返回父窗口\n!splitter.
+!splitter.setParent(__/*控件对象*/) = 改变父窗口 
+!splitter.translateAccelerator = @.translateAccelerator = function(msg){ \n	__/*返回是否快捷键*/\n} 
+!splitter.adjust = @.adjust = function( cx,cy,wParam ) {	 \n	__ \n};  
+!splitter.adjust() = 调整窗口 - 自定义事件函数
+!splitter.hide = 控件是否隐藏
+!splitter.disabled = 是否禁用
+!splitter.left = 左侧坐标
+!splitter.right = 右侧坐标
+!splitter.top = 顶部坐标
+!splitter.bottom = 底部坐标
+!splitter.width = 宽度
+!splitter.height = 高度
+!splitter.redraw() = 刷新
+!splitter.redrawTransparent() = 刷新\n透明背景时请使用此函数替代redraw()
+!splitter.show(true__) = 显示控件
+!splitter.getRect() = 控件区块位置(::RECT结构体)
+!splitter.getRect(true) = 控件屏幕区块位置(::RECT结构体)  
+!splitter.setRect(rc) = 设置控件区块位置(::RECT结构体)  
+!splitter.setRect(rc,true) = 设置控件屏幕区块位置(::RECT结构体)
+!splitter.getClientRect() =  控件客户区块位置(::RECT结构体)\n!rect.
+!splitter.theme = 外观主题,例如\nwinform.button.theme = "Explorer"\nwinform.button.theme = false
+!splitter.modifyStyle(.(remove,add,swpFlags) = 修改窗口样式,所有参数都是可选参数,\n@remove 用数值指定要移除的样式,可使用 _WS_ 前缀的常量\n@add 用数值指定要添加的样式,可使用 _WS_ 前缀的常量\n@swpFlags 可选用数值指定调整窗口选项,可使用 _SWP_ 前缀的常量\n如果指定了 @swpFlag ,则使用该参数调用::SetWindowPos\n细节请参考 win.modifyStyle 函数源码 
+!splitter.modifyStyleEx(.(remove,add,swpFlags) = 修改窗口扩展样式,所有参数都是可选参数,\n@remove 用数值指定要移除的样式,可使用 _WS_EX_ 前缀的常量\n@add 用数值指定要添加的样式,可使用 _WS_EX_ 前缀的常量\n@swpFlags 可选用数值指定调整窗口选项,可使用 _SWP_ 前缀的常量\n如果指定了 @swpFlag ,则使用该参数调用::SetWindowPos\n细节请参考 win.modifyStyle 函数源码
+!splitter.capture = 是否捕获全局鼠标消息
+!splitter.close() = 关闭控件窗口
+!splitter.invalidate(__/*可选使用::RECT()对象指定客户区*/) = 使窗口绘图区无效
+!splitter.invalidate(__/*可选使用::RECT()对象指定客户区*/,0) = 使窗口绘图区无效\n不刷新背景
+!splitter.update() = 重绘invalidate函数指定的区块
+!splitter.setPos(.(x坐标,y坐标,宽,高,插入位置,参数) = 调整窗口位置或排序,所有参数可选\n同时指定x,y坐标则移动位置\n同时指定宽高则改变大小\n指定插入位置(句柄或_HWND前缀常量)则调整Z序
+!splitter.getPos() = 返回相对坐标,宽,高\nx,y,cx,cy=win.getPos(hwnd)
+!splitter.sendMessage(.(msg,wParam,lParam) = 发送窗口消息\n此函数用法请参考 ::User32.SendMessage
+!splitter.postMessage(.(msg,wParam,lParam) = 投递窗口消息到消息队列中\n此函数用法请参考 ::User32.PostMessage
+?win.ui.ctrl.static  =!splitter.
+win.ui.ctrl.splitter() = 拆分条控件\n!splitter.
+win.ui.ctrl.splitter = 拆分条控件支持库
+end intellisense**/