aview-app 1.0.2

package/aardio/lib/win/ui/layered.aardio

@@ -0,0 +1,189 @@
+//layered 分层窗口
+import gdip.graphics;
+import gdip.solidBrush;
+import gdip.bitmap;
+
+namespace win.ui;
+
+class layered{
+	ctor( winform,delayTime ){
+		
+		this._form = winform;
+		winform.modifyStyle(0xC40000/*_WS_BORDER|_WS_CAPTION|_WS_SIZEBOX|_WS_DLGFRAME*/);
+		winform.setPos(,,,,,0x20/*_SWP_FRAMECHANGED*/|0x10/*_SWP_NOACTIVATE*/);
+
+        winform.transparent(true);
+        
+        winform.background.drawRect	= function(){};
+        winform.background.update	= function(){  
+        	this.redraw() 
+        };
+        
+        this.background = winform.background.getLayeredBitmap();
+        this.backgroundColor = winform.background.getLayeredColor();
+    	if( delayTime === null ) delayTime = -1; 
+        
+        winform._onControlCreated = function(ctrls){
+        	for( name,ctrl in ctrls ){ 
+        		if(ctrl.directDrawBackgroundOnly){
+        			ctrl.directDrawBackgroundOnly();
+        			if(ctrl.predraw ) ctrl.predraw();
+        		}
+        	}	
+        }
+
+        if(  ..win.isVisible(winform.hwnd) ) { 
+        	for( name,ctrl in winform.eachControl() ){
+        		if(ctrl.directDrawBackgroundOnly){
+        			ctrl.directDrawBackgroundOnly();
+        			if(ctrl.predraw ) ctrl.predraw();
+        		}
+        	} 
+        }
+        
+        this.redraw = function(){
+			return ..gdi.layeredBuffer( winform.hwnd,  
+				function( hdc,hMemDc,hMemBitmap,width,height,left,top,hwnd,blendFunction ){
+				
+        			var graphics = ..gdip.graphics(hMemDc);
+        			
+        			if( this.background || ( this.backgroundColor!== null ) ){ 
+        				
+        				if( ! ( (width == this.cacheBitmapWidth) 
+        					&& (height == this.cacheBitmapHeight ) 
+        					&& (this.background==this.cacheBackground) 
+        					&& (this.backgroundColor==this.cacheBackgroundColor)) ){
+							this.predraw(); 
+						}  
+							
+						if(this.cacheBitmap){
+        					graphics.drawCachedBitmap(this.cacheBitmap,0,0);
+        				}
+        			} 
+        			
+        			if( this.onDrawBackground ) this.onDrawBackground(graphics,left,top,width,height);
+        			   
+        			if(! this.updateDrawing ){
+						this.updateDrawing = true;
+						var rc = ::RECT();
+						rc.xywh(left,top,width,height);
+						
+						this._form.directDrawBackground(hMemDc,graphics,rc);
+						this.updateDrawing = false;	
+					}
+        			
+        			graphics.resetClip();
+        			graphics.delete();
+        			
+					return ..gdi.updateLayeredWindow(hwnd,hMemDc,::SIZE(width,height) ,blendFunction);  
+				}
+			) 	
+		};
+        
+        winform.adjust = function(){
+        	this.redraw();
+        }
+        
+        winform.beforeShowWindow = function(shown,status){ 
+			if(shown){
+				for( name,ctrl in winform.eachControl() ){
+        			if(ctrl.directDrawBackgroundOnly){
+        				ctrl.directDrawBackgroundOnly();
+        				if(ctrl.predraw ) ctrl.predraw();
+        			}
+        		} 
+        
+				winform.setTimeout(this.redraw);
+				if(delayTime>0) && (this.timerId===null) this.timerId = winform.setInterval(this.redraw,delayTime) 
+			}
+			else {
+				if(this.timerId!==null){
+					winform.clearInterval(this.timerId);
+					this.timerId = null;
+				} 
+			}
+		}
+		winform.beforeShowWindow( ..win.isVisible(winform.hwnd) );
+
+        winform._beforeDestroy = function(){
+        	if( this.cacheBitmap ) { 
+				..gdip.DeleteCachedBitmap(this.cacheBitmap);
+				this.cacheBitmap = null; 
+			}	
+        };
+	}; 
+	
+	predraw = function(){
+		if( this.cacheBitmap ) { 
+			..gdip.DeleteCachedBitmap(this.cacheBitmap);
+			this.cacheBitmap = null; 
+		}
+						
+		if(( this.background ) || ( this.backgroundColor!== null )){
+			if( type(this.background) == "string" ){
+        		this.background = ..gdip.bitmap(this.background);
+        	};
+        	
+			var rc = this._form.getRect();
+			var width,height = rc.right - rc.left,rc.bottom - rc.top;
+		
+        	var bmpMem = ..gdip.bitmap(width,height);
+        	var g = bmpMem.getGraphics();
+        	g.smoothingMode = 2/*_SmoothingModeHighQuality*/;
+        	
+        	if( this.backgroundColor!== null ){
+        		var brush = ..gdip.solidBrush(this.backgroundColor);
+        		if( this.borderRadius ){
+        			var path = ..gdip.path(1/*_FillModeWinding*/)
+					path.addRoundRect(::RECT(0,0,width,height),this.borderRadius);
+					g.fillPath(brush,path);
+					path.delete();
+        		}
+        		else {
+        			g.fillRectangle(brush,0,0,width,height);
+        		}
+        	} 
+        	
+        	if(this.background){
+        		if(this._form .bkTop!==null){ 
+        			g.drawImageExpand(this.background
+        				,::RECT(0,0,width,height),this._form .bkTop
+        				,this._form .bkRight,this._form .bkBottom,this._form .bkLeft);
+        		}
+        		else {
+        			g.drawImage(this.background);
+        		}	
+        	}			
+        	
+        	g.delete();
+        	var graphics = ..gdip.graphics(this._form);
+        	this.cacheBitmap = graphics.createCachedBitmap(bmpMem); 
+        	graphics.delete();
+        	
+        	this.cacheBackground = this.background;
+        	this.cacheBackgroundColor =  this.backgroundColor;
+        	this.cacheBitmapWidth = width;
+			this.cacheBitmapHeight = height;
+        	
+        	bmpMem.dispose(); 
+        }
+	} 
+}
+
+
+/**intellisense()
+win.ui.layered( = 创建分层窗口\n支持窗体设计器指定的 png 透明背景图,背景色，\n支持窗口上的 plus,bkplus 控件,其他子窗口可通过调用 orphanWindow 函数正常显示
+win.ui.layered(.(窗体对象,主动刷新间隔) = 创建分层窗口\n主动刷新间隔为可选参数,以毫秒为单位,过快会降低性能\n刷新间隔设为负数可禁止主动刷新,但plus控件仍然可以自动刷新,\n注意创建分层窗口以后不应再改变窗口大小
+win.ui.layered() = !winuilayered.
+end intellisense**/
+
+/**intellisense(!winuilayered)
+onDrawBackground() = @.onDrawBackground = function(graphics,left,top,width,height){
+	__/*可以在这里继续在窗口背景上绘图*/
+}
+background = 指定背景图像路径或数据
+backgroundColor = 指定背景色,ARGB格式
+borderRadius = 指定圆角半径，仅在使定背景色时有效
+redraw() = 重绘窗口,不要在onDrawBackground里调用此函数
+predraw() = 更新窗口绘图缓存但并不立即重绘,不要在onDrawBackground里调用此函数
+end intellisense**/

package/aardio/lib/win/ui/layeredRound.aardio

@@ -0,0 +1,18 @@
+import win.ui.layered;
+import win.ui.shadow;
+
+namespace win.ui;
+
+class layeredRound{
+	ctor( winform,radius=12,delayTime,shadowAlpha=22,shadowSize=6,shadowColor ){
+		this = ..win.ui.layered(winform);
+		this.borderRadius = radius;
+ 
+		..win.ui.shadow(winform,shadowAlpha,shadowSize,radius+2,radius)
+	}; 
+}
+
+/**intellisense()
+win.ui.layeredRound(.(winform,radius) = 创建圆角分层窗口,\n参数@1指定窗体对象,参数@2指定圆角半径,\n此构造函数还支持有其他可选参数,详见库源码\n分层窗口仅支持plus,bkplus控件,其他子窗口可通过调用 orphanWindow 函数正常显示
+win.ui.layeredRound() = !winuilayered.
+end intellisense**/

package/aardio/lib/win/ui/listEdit.aardio

@@ -0,0 +1,93 @@
+//listEdit 列表编辑框
+import win.ui.ctrl.edit;
+
+namespace win.ui;
+
+class listEdit{
+	ctor( listbox ){
+		this = listbox;  
+		
+		this.addCtrl(
+            editBox = { 
+                cls="edit";font = this.getFont() ;left = 0;top = 0;
+                right = 50;bottom = 50;autoResize = false ;hide = 1;edge = 1;
+                wndproc = function( hwnd, message, wParam, lParam ){
+                    var update; 
+                    if( ( message = 0x8/*_WM_KILLFOCUS*/)  || (message == 0x101/*_WM_KEYUP*/ && wParam == 0xD/*_VK_RETURN*/ ) ) {
+                        update = true;
+                    }
+                    elseif(message == 0x201/*_WM_LBUTTONDOWN*/ ){
+                        var x,y = ..win.getMessagePos(lParam)
+                        var rc = this.editBox.getClientRect();
+                       
+                        if( ! ::PtInRect(rc,x,y) ) update = true;
+                        this.editBox.capture = !update;
+                    } 
+                    elseif(message == 0x101/*_WM_KEYUP*/){
+                    	if( wParam == 0xD/*_VK_RETURN*/ ) {
+                    		owner.show(false);
+                    		return;
+                    	}
+                    	elseif( wParam == 0x1B/*_VK_ESC*/){
+                    		owner.text = this.selText;
+                    		owner.show(false);
+                    		return;
+                    	}
+                    }
+                    
+                    if( update ){
+                    	owner.show(false);
+                        var t = this.selText;
+                        if( t!= owner.text ){
+                        	if( this.onEditChanged ) {
+                        		if( false === this.onEditChanged(owner.text, owner.selIndex) ) return;	
+                        	}
+                        	this.add(owner.text,owner.selIndex)
+	 						this.delete(owner.selIndex+1)
+                        }	
+                    }
+                }  
+            }
+        ) 
+	};
+	beginEdit = function(){
+		
+		var edit = this.editBox;
+       	if( ..win.isVisible(edit.hwnd) ) return;  
+       	
+        var event = this.editBox.event;
+        edit.text=this.selText;
+        var rc =this.getItemRect( this.editBox.selIndex );
+        var rcClient=this.getClientRect();
+        if( rcClient.bottom > rc.bottom + 4 ){
+            rc.bottom = rc.bottom + 4;
+        }
+        else {
+            rc.top = rc.top - 4;
+        }
+        
+        edit.setRect(rc);
+        rc.inflate(-1,-1);
+        edit.setClientRect(rc);
+        edit.show(); 
+        edit.setFocus();
+        edit.capture = true;
+        return true;	 
+	}; 
+	_precommand = function(id,event){
+		if( event ==  0x2/*_LBN_DBLCLK*/ ){
+			this.editBox.selIndex = this.selIndex ;
+			this.beginEdit(); 
+		}	 
+	};
+}
+
+/**intellisense()
+win.ui.listEdit(__) = 参数必须指定一个listbox控件对象\n返回一个可编辑单元格的列表框对象,\n\n鼠标左键双击单元格、或者按空格键开始编辑,\n回车完成编辑,ESC键撤消编辑,回车+上下方向键快速移动到其他项,\n用户完成编辑后会触发onEditChanged事件
+win.ui.listEdit() = !winuilstEdit.
+!winuilstEdit.editBox = 实现编辑功能的edit控件\n此功能需要扩展listview并实现了编辑功能的的控件才能支持\n!edit.
+!winuilstEdit.onEditChanged(text,iItem,iSubItem) = @.onEditChanged = function(text,selIndex){
+	__/*控件完成编辑\ntext为更新后的文本,selIndex为行号\n返回false取消编辑*/
+}
+!winuilstEdit.setTable(__) = 用listview控件显示数据表\n此函数会自动清空控件之前的所有项,\n如果没有创建任何列,则自动创建列\n\n数据表应当包含行组成的数组,\n每行的数据列必须是由列名和列值组成的键值对\n数据表应使用fields包含需要显示的列名称数组\n可以通过fields控制要显的列、以及要显示的顺序\n\n使用sqlite,access,sqlServer等数据库对象提供的getTable函数可获取符合此规格的数据表 
+end intellisense**/

package/aardio/lib/win/ui/listPopup.aardio

@@ -0,0 +1,130 @@
+//listPopup 弹出列表框
+import win.ui.ctrl.listbox;
+
+namespace win.ui;
+
+class listPopup{
+	ctor(editor){
+		this.editor = editor; 
+		this.height = 170;
+		
+		this.custom = editor.parent.add({
+			{cls="custom";left=0;top=0;right=332;bottom=this.height;bgcolor=16777215;db=1;dl=1;hide=1};
+		})[1];
+		
+		this.custom.add( 
+			listbox={cls="listbox";edge=1;hscroll=1;vscroll=1}
+		)
+		
+		this.custom.orphanWindow();
+		
+		this.onSetText = function(text){
+			return text;
+		}
+	 
+		this.custom.listbox.oncommand = function(id,event){ 
+			if( event == 0x1/*_LBN_SELCHANGE*/ ){
+				editor.text = this.onSetText(this.custom.listbox.selText);
+				if( this.onComplete ) this.onComplete(editor.text);
+				
+				this.shown = false;
+				this.custom.show(false);
+				this.editor.setFocus();
+			} 
+		}
+		
+		editor._precommand = function(id,event){
+			if( event  == 0x300/*_EN_CHANGE*/ ){
+				var listbox = this.custom.listbox;
+				if( this.onGetItems ) {
+					var items,selIndex = this.onGetItems(editor.text);
+					listbox.items = items; 
+					
+					if(selIndex !== null ) listbox.selIndex = selIndex;
+					
+					if(!#items) return;
+					var s = reduce(items,lambda(a,b) #a>#b?a:b);
+					if(!#s) return;
+					
+					var hdc = ::GetDC(listbox.hwnd);
+					var cx = ..gdi.getTextExtent(hdc,s);
+					::SendMessageInt(listbox.hwnd,0x194/*_LB_SETHORIZONTALEXTENT*/,cx,0);
+					::ReleaseDC(listbox.hwnd,hdc); 
+				}
+				
+				var x,y,cx,cy = editor.getPos();
+				x,y = ..win.toScreen(editor.parent.hwnd,x,y)
+				this.custom.setPos(x,y+cy,cx,this.height);
+				this.custom.height = listbox.height;
+				this.custom.show(0x4/*_SW_SHOWNOACTIVATE*/); 
+				this.shown = true;
+			}
+			elseif( event == 0x200/*_EN_KILLFOCUS*/ ){ 
+				if( ..win.getFocus() == this.custom.hwnd ){
+					return;
+				}
+				
+				this.custom.show(false);
+				this.shown = false;
+			}
+		}
+		
+		var defaultTranslateAccelerator = editor.defaultTranslateAccelerator;
+		editor.defaultTranslateAccelerator = function(msg){
+			
+ 			if( msg.message == 0x100/*_WM_KEYDOWN*/ ){
+ 				var vk = msg.wParam;
+ 				if( this.shown ) {
+ 					var listbox = this.custom.listbox;
+					if( vk == 0x26/*_VK_UP*/ ) {
+						listbox.selIndex = listbox.selIndex - 1; 
+						return true;
+					}
+					elseif( vk ==0x28/*_VK_DOWN*/ ) {
+						listbox.selIndex = listbox.selIndex + 1; 
+						return true;
+					}
+					elseif( vk ==0xD/*_VK_ENTER*/ ) {
+						if( this.custom.listbox.selIndex ) editor.text = this.onSetText(this.custom.listbox.selText);
+						if( this.onComplete ) this.onComplete(editor.text);
+						
+						this.shown = false;
+						this.custom.show(false);
+						this.editor.setFocus();
+						return true;
+					}
+					elseif( vk ==0x1B/*_VK_ESC*/ ) { 
+						this.shown = false;
+						this.custom.show(false);
+						this.editor.setFocus();
+						return true;
+					}
+ 				}
+ 				elseif( vk ==0xD/*_VK_ENTER*/ ) {
+ 					if( this.onComplete ) this.onComplete(editor.text);
+ 					else this.editor.tabNext(true);
+ 					return true;
+ 				}
+			}
+ 			
+			if( defaultTranslateAccelerator ) return defaultTranslateAccelerator(msg);
+		}
+	}; 
+}
+
+/**intellisense()
+win.ui.listPopup = 弹出列表框
+win.ui.listPopup(__) = 创建弹出列表框\n参数中指定edit,或richedit控件对象
+win.ui.listPopup() = !winuilistpopup.
+!winuilistpopup.height = 显示高度
+!winuilistpopup.onGetItems = @.onGetItems = function(text){
+	return {__/*text参数是用户已输入的文本,返回要显示的字符串数组,\n可选在第2个返回值返回要选中的索引*/};
+}
+!winuilistpopup.onSetText = @.onSetText = function(text){
+	__/*用户已选择列表项\ntext参数为列表项选中的文本\n返回值为确认输入的文本*/;
+	return text;
+}
+!winuilistpopup.onComplete = @.onComplete = function(text){
+	__/*用户已完成输入\n在候选列表中选中某项并已完成输入\n或者在输入后直接回车可触发此事件*/;
+}
+end intellisense**/

package/aardio/lib/win/ui/localization.aardio

@@ -0,0 +1,18 @@
+//localization 简繁体自动转换
+import win.ui;
+import string.conv;
+namespace win.ui.localization;
+	
+var L = ..string.conv.localized;
+
+..win._form.createWindowEx = function(exStyle,className,text,style,x,y,width,height,hwndParent,hMenu,hlnstance,lpParam){
+    return ::CreateWindowEx(exStyle,className,L(text),style,x,y,width,height,hwndParent,hMenu,hlnstance,lpParam);
+}
+
+..win.setText = function(hwnd,s){
+	return ::User32.SetWindowText(hwnd,L(s) );
+}
+
+/**intellisense()
+win.ui.localization = 在创建win.form对象以前导入,\n可检测系统内码自动对文本进行简繁体转换
+end intellisense**/

package/aardio/lib/win/ui/mask.aardio

@@ -0,0 +1,51 @@
+//mask 遮罩窗口
+import win.ui;
+
+namespace win.ui;
+class mask{
+	ctor(parent,disabled,t,r,b,l){
+		if(! ..win.ui.isForm(parent) ) error("参数@1必须指定win.form窗体对象",2);
+		
+		this = parent.add({ 
+		 {cls="custom";text="custom";left=212;top=78;right=596;bottom=202;bgcolor=0xF0CAA6/*BBGGRR*/;border="thin";mode="popup";hide=true;title=false;db=1;dl=1;dr=1;dt=1}
+		} )[1] 
+		
+		var rc = parent.getClientRect(); 
+		if(t) rc.top = rc.top + t;
+		if(r) rc.right = rc.right - r;
+		if(b) rc.bottom = rc.bottom - b;
+		if(l) rc.left = rc.left + l;
+		this.setRect(rc);
+		this.orphanWindow(); 
+		
+		this.modifyStyle(,0x8000000/*_WS_DISABLED*/);
+		if(!disabled)this.modifyStyleEx(,0x20/*_WS_EX_TRANSPARENT*/);
+		this.transparent(80);
+	};
+	show = function(flag){
+		if(flag=== null) {
+			flag = !!this.hide;
+		}
+		
+		if( flag === true ){
+			..win.show(this.hwnd,4/*_SW_SHOWNOACTIVATE*/);
+			..win.setPos(this.hwnd,,,,,0/*_HWND_TOP*/,0x10/*_SWP_NOACTIVATE*/);
+		}
+		else {
+			..win.show(owner[["hwnd"]],flag);
+		}
+	};
+	moveToWindow = function(hwnd,sw){
+		if(!hwnd || (hwnd == owner.hwnd) ) return false;
+		this.autoResize = false;
+		this.setRect(..win.getRect(hwnd,true));	
+		this.show(sw);
+		return true;
+	};
+}
+
+/**intellisense()
+win.ui.mask = 创建半透明、不抢焦点并浮动在屏幕最前面的遮罩窗口\n返回win.form对象,调用show函数如果不指定参数时会自动切换显示、隐藏状态
+win.ui.mask(.(所有窗口,禁用鼠标窗透,上,右,下,左) = 创建遮罩窗口,\n必须在参数中指定所有者窗口,所有者窗口退出遮罩窗口也将关闭,\n其他参数为可选参数,\n\n默认移动到父窗口前面并覆盖客户区,可选使用上,右,下,左等参数指定边距\n可调用moveToWindow函数移动到其他窗口
+win.ui.mask() = !winform.
+end intellisense**/