aview-app 1.0.2

package/aardio/lib/win/clip/viewer.aardio

@@ -0,0 +1,44 @@
+//viewer 剪贴板监视
+import win.clip;
+namespace win.clip; 
+
+class viewer {
+
+    ctor(winform ){
+        this = winform;
+        //注册加入成为监视窗口,nextClipboardViewer为上一个监视窗口
+        var nextClipboardViewer  =  SetClipboardViewer( this.hwnd );
+        
+        //窗口消息回调函数,在设计器中鼠标左键双击窗体会自动生成下面的函数
+        this.wndproc = function(hwnd,message,wParam,lParam){
+            select(message) {//判断消息类型
+                case  0x308/*_WM_DRAWCLIPBOARD*/  { 
+                    if(this[["onDrawClipboard"]])
+                        this.onDrawClipboard(); 
+                    ::SendMessageInt( nextClipboardViewer,message,wParam,lParam );
+                } 
+                case  0x30D/*_WM_CHANGECBCHAIN*/ { 
+                    if (wParam == nextClipboardViewer)
+                        nextClipboardViewer = lParam;
+                    else
+                        ::SendMessageInt( nextClipboardViewer,message,wParam,lParam );
+                
+                }
+            } 
+        } 
+    }
+}
+
+namespace viewer{
+    //声明剪贴板监视器用到的API
+    SetClipboardViewer = ::User32.api( "SetClipboardViewer", "int(int hWndNewViewer)") 
+    ChangeClipboardChain = ::User32.api( "ChangeClipboardChain", "int(int hWndRemove,int hWndNewNext)")   
+} 
+
+/**intellisense()
+?win.clip.viewer = !clipviewer.
+win.clip.viewer(__/*输入winform对象*/) = 将窗口注册为剪贴板监视器\n写入剪贴板时,自动触发onDrawClipboard()函数
+!clipviewer.onDrawClipboard = @.onDrawClipboard=function(){
+    __    
+}
+end intellisense**/

package/aardio/lib/win/cur.aardio

@@ -0,0 +1,58 @@
+//cur 鼠标指针
+import win.ui;
+import win.image;
+
+namespace win.cur;
+  
+var hLastCursor;
+loadfile = function(file){
+	hLastCursor = ..win.image.loadCursorFromFile(file) ; 
+	return hLastCursor;
+}
+
+load = function(id,instance){ 
+	hLastCursor = ..win.image.loadCursor( id,instance );  
+	return hLastCursor; 
+}
+
+getCur = function(){
+	return ::GetCursor();
+}
+
+setCur = function( hCur ){ 
+	return ::SetCursor( hCur : hLastCursor )
+}
+
+beginCur = function(hCur){ 
+	if(!hCur){ hCur = hLastCursor} 
+	if(!hCur) return;
+	
+	if(beginning) return; 
+	beginning = true;
+	
+	..win.ui.waitCursor(true,hCur);
+}
+
+endCur = function(){
+	..win.ui.waitCursor(false);
+	beginning = false;
+}
+
+beginWaitCur = function(){
+	hLastCursor = load(0x7F02/*_IDC_WAIT*/);
+	..win.ui.waitCursor(true,hLastCursor);
+} 
+
+/*intellisense(win.cur)
+load(.(id__,instance) = 载入鼠标指针资源,返回鼠标指针句柄\nid为资源ID,或资源名字\ninstance为DLL模块句柄
+load(.(id__) = 载入鼠标指针资源,返回鼠标指针句柄\nid为资源ID,或资源名字 
+loadfile("__") = 载入鼠标指针文件,返回鼠标指针句柄
+getCur() = 返回当前鼠标指针句柄
+setCur(.(hCur) = 设置当前鼠标指针句柄\nhcur为鼠标指针句柄\n此函数一般用于回调函数中响应_WM_SETCURSOR消息
+setCur(.() = 设置为最后一次使用load或loadfile加载的鼠标指针句柄
+beginCur(.(hCur) = 持续设置当前鼠标指针句柄\n直到调用win.cur.endCur()\nhcur为鼠标指针句柄
+beginCur(.() = 持续设置当前鼠标指针句柄为最后一次使用load或loadfile加载的鼠标指针句柄\n建议使用win.ui.waitCursor替代此函数
+beginWaitCur() = 持续设置鼠标指针为等待指针,直到调用win.cur.endCur\n建议使用win.ui.waitCursor替代此函数
+endCur() = 恢复默认鼠标指针\n建议使用win.ui.waitCursor替代此函数
+beginning = 如果调用了beginCur或beginWaitCur\n在尚未调用endCur之前beginning返回true
+end intellisense*/

package/aardio/lib/win/debounce.aardio

@@ -0,0 +1,20 @@
+//debounce 防抖
+import win.ui;
+namespace win;
+
+class debounce{
+	ctor( proc,delay ){{
+  		var id; 
+  		return function(...){
+  			..win.clearTimeout(id); 
+  			id = ..win.setTimeout(function(...){
+  				id = null;
+  				proc(...);
+  			},delay:300,...)
+  		} 
+	}};
+}
+
+/**intellisense()
+win.debounce(.(函数,延时) = 将函数转换为防抖函数,\n在限定的延时内重复调用时仅保留最后一次调用\n延时以毫秒为单位，省略延时则默认值为300毫秒
+end intellisense**/

package/aardio/lib/win/dlg/_.aardio

@@ -0,0 +1,7 @@
+import win.dlg.font;
+import win.dlg.color; 
+import win.dlg.findReplace; 
+
+/**intellisense()
+win.dlg = 导入该库可同时导入以下库\nwin.dlg.font\nwin.dlg.color\nwin.dlg.findReplace
+end intellisense**/

package/aardio/lib/win/dlg/chineseNumber.aardio

@@ -0,0 +1,220 @@
+//chineseNumber 大写数值
+import win.ui;
+import winex.caret;
+import win.ui.tabs;
+
+namespace win.dlg;
+class chineseNumber{
+	ctor(parent){
+	if(!parent) parent = ..win.getForeground();;
+	/*DSG{{*/
+	this = ..win.form(text="中文化数值";right=418;bottom=30;border="none";exmode="toolwindow";mode="popup";parent=parent;topmost=1)
+	this.add(
+	btnClose={cls="plus";text="r";left=386;top=0;right=420;bottom=34;color=2368548;font=LOGFONT(name='Marlett';h=-15;charset=2);notify=1;z=5};
+	dropdown={cls="plus";left=0;top=0;right=386;bottom=31;align="right";bgcolor=16777215;border={color=-3546113;width=2};editable="edit";font=LOGFONT(h=-16);forecolor=16777215;iconStyle={align="right";font=LOGFONT(name='imtip');padding={right=8}};notify=1;textPadding={left=2;top=6;right=7;bottom=2};z=1};
+	menuItem={cls="plus";text="测试菜单三";left=1;top=33;right=420;bottom=78;align="right";bgcolor=11525002;border={left=1;right=1;bottom=1;color=-3546113};tabstop=1;textPadding={right=20};z=2};
+	menuItem2={cls="plus";text="测试菜单三";left=1;top=78;right=420;bottom=123;align="right";bgcolor=11525002;border={left=1;right=1;bottom=1;color=-3546113};tabstop=1;textPadding={right=20};z=3};
+	menuItem3={cls="plus";text="测试菜单三";left=1;top=123;right=420;bottom=168;align="right";bgcolor=11525002;border={left=1;right=1;bottom=1;color=-3546113};tabstop=1;textPadding={right=20};z=4}
+	)
+	/*}}*/
+	
+	var lcid = ::Kernel32.GetUserDefaultLCID();
+	if( lcid==0x404/*zh-TW*/ || lcid == 0x0C04/*zh-HK*/ || lcid == 0x1404/*zh-MO*/ ){
+		this.numberChars = numberChars : '零壹貳參肆伍陸柒捌玖';
+		this.timeFormat = "%H時%M分%S秒";
+		this.timeFormat2 = "%p %I時%M分%S秒";
+		this.lang = "cht";
+	}
+	else {
+		this.numberChars = numberChars : '零壹贰叁肆伍陆柒捌玖';
+		this.timeFormat = "%H时%M分%S秒";
+		this.timeFormat2 = "%p %I时%M分%S秒";
+		this.lang = "chs";
+	}
+	this.unitChars = unitChars : '拾佰仟';
+	
+	this.dropdown.skin({
+		background={
+			default=0;
+			hover=0xFF928BB3;
+			active=0x99928BB3;
+		}
+		color={
+			disabled=0xFFCCCCCC; 
+		}
+		iconColor={
+			disabled=0xFFCCCCCC; 
+		}
+	})
+	
+	this.btnClose.skin({
+		background={
+			default=0x668FB2B0;
+			hover=0xFF928BB3;
+			disabled=0xFFCCCCCC; 
+		}
+	})
+	
+	var menu = ..win.ui.tabs(this.menuItem,this.menuItem2,this.menuItem3)
+	menu.skin( { 
+		foreground={
+			default = 0xFFFFFFFF;
+			hover= 0xFF8ADBAF;
+		};
+		checked = { 
+			foreground={
+				default = 0xFFDB8A8E;
+				hover= 0xFF8ADBAF;
+			}; 
+		}
+	})
+	
+	menu.initPopup(this.dropdown.editBox)
+	
+	import string.chineseNumber; 
+	this.dropdown.editBox.disableInputMethod();
+	this.dropdown.editBox.onChange = function(){
+		var items = {}; 
+		menu.setItemTexts(items);
+		
+		var text = string.replace(owner.text,"[\s,\_]","");
+    	var num = string.match(text,"^([+-]?0*\d+\.?\d*)$");
+    	if(!#num){
+    		var data = string.match(text,"^(\d{2,4}\.[01]*\d\.\d*)$"); 
+    		if(data){
+    			if(string.endWith(data,".")){
+    				menu.popup(false);
+    				return;
+    			} 
+    			data = ..time(data+"","%Y.%m.%d");
+    			var zh = string.chineseNumber('〇一二三四五六七八九'); 
+    			items[1] = zh.date(data,"%Y年%m月%d日");
+				items[2] = zh.date(data,"%Y年%m月%d日 星期%w");
+    		}
+    		else {
+    			var tm = string.match(text,"^(\d{1,2}\:\d{1,2}\:\d{1,2})$");
+    			if(tm){
+    				var zh = string.chineseNumber('〇一二三四五六七八九'); 
+					items[1] = zh.time(..time(tm,"%H:%M:%S"),this.timeFormat);
+					items[2] = zh.time(..time(tm,"%H:%M:%S"),this.timeFormat2);
+				}
+				elseif(string.indexOf(text,":")){
+					return;
+				}
+				elseif( text == "now" ){
+					var zh = string.chineseNumber('〇一二三四五六七八九'); 
+					var now = ..time();
+					items[1] = zh.date(now,"%Y年%m月%d日 星期%w")
+					items[2] = zh.time(now,this.timeFormat2);
+					items[3] = zh.datetime(now);
+					items[4] = tostring(now,"%Y/%m/%d  %H:%M:%S");
+				}
+    			else {
+    				try{
+    					num = eval(text)
+    				}
+    				
+    				if(type(num)!=type.number){
+    				    if(this.lang = "cht"){
+    				    	owner.showInfoTip("可输入以下格式：",'数值或金额示例: 12345.67 或 12,345.67 或 12_345.67\n自定义进制示例:2#1010 或 0xFFFF\n数学表达式示例: (12+23)*2\n日期示例: 2020.2.29\n时间示例: 23:50:56\n当前日期时间: now');
+    				    }
+    				    else {
+    				    	owner.showInfoTip("可輸入以下格式：",'數值或金額示例: 12345.67 或 12,345.67 或 12_345.67\n自定義進位示例:2#1010 或 0xFFFF\n數學表達式示例: (12+23)*2\n日期示例: 2020.2.29\n時間示例: 23:50:56\n當前日期時間: now');
+    				    }
+    				    
+    					menu.popup(false);
+    					return;	
+    				}
+    				else{
+    					items[1] = tostring(num)
+    				}
+    			}
+    		}
+    	} 
+    	
+    	if(num!==null){ 
+    		
+    		var zh = string.chineseNumber(this.numberChars,this.unitChars);
+    		items[#items+1] = zh.money(num); 
+    		items[#items+1] = zh.number(num); 
+    		
+    		var zh = string.chineseNumber();
+    		items[#items+1] = zh.number(num); 
+    	}
+     	
+    	menu.setItemTexts(items);
+    	if(self.selIndex && self.selIndex<#items){
+    		menu.selIndex = self.selIndex
+    	}
+    	else {
+    		menu.selIndex = 1;
+    	}
+    	
+    	menu.popup(true) 
+	}
+	
+	import key;
+	menu.onOk = function(strip){ 
+		self.selIndex = menu.selIndex;
+		
+    	var text = strip.text;
+    	this.onDestroy = function(){
+    		if(this.oldFocus){
+    		    ..winex.attach(this.oldFocus,true);
+    			..win.setFocus(this.oldFocus);
+    			..winex.attach(this.oldFocus,false);
+    		}
+        	key.sendString(text);
+    	}
+		this.close();
+	}
+ 	
+	this.btnClose.oncommand = function(id,event){
+		this.close();
+	} 
+	
+	this.enableDpiScaling("init");
+	
+	var hOwner = ..win.getOwner(this.hwnd) : ..win.getForeground();
+	var rcCaret = ..winex.caret.get(hOwner); 
+	if(rcCaret){  
+		this.setPos(rcCaret.left,rcCaret.top  + (rcCaret.bottom ? rcCaret.height() : this.dpiScale(50)) );	
+	}
+	else {
+		..win.center(this.hwnd,hOwner);
+	}
+	
+	var scrX,scrY,scrWidth,scrHeight = ..win.getScreenPos(this.hwnd,hOwner)
+	var x,y,cx,cy = this.getPos();
+	if(y+200>scrHeight){
+		y = scrHeight -200;
+		this.setPos(x,y);
+	}
+	
+	if(x+cx>scrWidth){
+		x = scrWidth -cx;
+		this.setPos(x,y);
+	}
+	
+	this.oldFocus = rcCaret.hwnd : ..winex.getFocus(hOwner);
+	this.show();
+	
+	..win.setTopmost(this.hwnd)
+	this.dropdown.editBox.setFocus();
+	
+	this.dropdown.editBox.onOk = function(){
+		this.close()
+	}
+	
+	this.dropdown.editBox.onCancel = function(){
+	    this.close();
+	}
+	
+	};
+}
+
+if( !owner ) ..win.dlg.chineseNumber().doModal();
+
+/**intellisense()
+win.dlg.chineseNumber() = 创建大小数值、金额输入对话框，\n可选用参数 @1 指定父窗口句柄，注意不需要指定输入框句柄。\n此对话框会自动检测输入光标所在位置。\n\n应调用 doModal 函数显示为模态对话框\n!winform.
+end intellisense**/

package/aardio/lib/win/dlg/color.aardio

@@ -0,0 +1,35 @@
+//color 颜色对话框
+namespace win.dlg;
+ 
+color = class {
+	ctor(hParent,param){
+		..table.assign(this,{
+			INT structSize = 36;
+			int hwndOwner = hParent[["hwnd"]] : hParent; 
+			int hInstance;
+			INT rgbResult;
+			pointer lpCustColors = ..raw.buffer(36);
+			INT flags = 0x100/*_CC_ANYCOLOR*/ | 0x2/*_CC_FULLOPEN*/;
+			int custData;
+			pointer lpfnHook;
+			string templateName;
+		},param)
+		
+		if( this.rgbResult ){
+			this.flags = this.flags | 0x1/*_CC_RGBINIT*/;
+		}
+	} 
+	choose = function(){
+		if(  ::Comdlg32.ChooseColor(this) )
+			return this.rgbResult; 
+	} 
+}
+
+::Comdlg32 := ..raw.loadDll("comdlg32.dll");
+ 
+
+/**intellisense()
+win.dlg.color = 通用颜色对话框
+win.dlg.color(winform__/*父窗体*/) = 创建通用颜色对话框
+win.dlg.color().choose() = 弹出选择颜色对话框
+end intellisense**/

package/aardio/lib/win/dlg/ctrlColor.aardio

@@ -0,0 +1,49 @@
+//ctrlColor 运行时调色
+import win.ui.ctrl.pick;
+namespace win.dlg;
+
+class ctrlColor{
+	ctor(ctrl,colorName,title){{
+		if(!colorName) colorName = "backgroundColor";
+		
+		var argb = true;
+		if(colorName[1] == '^'# ) {
+			argb = false;
+			colorName = ..string.right(colorName,-2);
+		}
+		var picker = ..win.ui.ctrl.pick(ctrl);
+		picker.setColor(colorName!="color"?ctrl[colorName]:..gdi.argbReverse(ctrl[colorName]))
+		if(title) picker.text = title;
+		
+		var result = ctrl[colorName];
+		picker.onColorChange = function(argb){ 
+			if(argb && colorName!="color") ctrl[colorName] = argb;
+			else ctrl[colorName] = ..gdi.rgbReverse(argb);
+			result = argb;
+			
+			if( ctrl.redrawTransparent ) ctrl.redrawTransparent();
+			else ctrl.redraw();
+			
+			if(ctrl.parent ){
+				if(ctrl.parent.isForm){
+					for(hwnd,c in ctrl.parent.eachControlEx("plus") ){
+						c.redrawTransparent();
+					} 	
+				}
+				else {
+					ctrl.parent.redrawTransparent();
+				}
+			}
+		}
+		
+		picker.doModal();
+		return result;
+	}}; 
+}
+
+/**intellisense()
+win.dlg.ctrlColor = 运行时控件调色对话框,可实时查看配色效果
+win.dlg.ctrlColor( = 创建控件调色模态对话框,\n返回最后选择的控件颜色
+win.dlg.ctrlColor(.(ctrl,colorName,title) = @ctrl参数指定控件或窗体对象,\n可选用@colorName参数指定颜色属性名,默认为"backgroundColor"\n如果是rgb颜色，颜色属性名请请加上^字符,\n可选用参数@3指定对话框标题
+win.dlg.ctrlColor() = !winUiCtrlPick.
+end intellisense**/

package/aardio/lib/win/dlg/findReplace.aardio

@@ -0,0 +1,117 @@
+//findReplace 查找替换对话框
+import win;
+namespace win.dlg
+
+class findReplace{
+	ctor( winform ){
+	 	this = FINDREPLACE();
+		this.cbSize = ..raw.sizeof(this);
+		this.hwndOwner = winform[["hwnd"]]; 
+		if(!this.hwndOwner) error("参数 @1 错误,不是有效窗口或控件对象",2)
+			
+		winform.wndproc = {
+			[findReplaceMsg] = function(hwnd,message,wParam,addrRawBuffer){
+				if (message == findReplaceMsg ){ 
+					if(!this.hwnd) return;
+					
+					var this = ..raw.convert(this.rawBuffer,this );
+					this.findWhat = ..string.fromUnicode(this.findWhatBuffer,,this.findWhatLen);
+					this.replaceWith = ..string.fromUnicode(this.replaceWithBuffer,,this.replaceWithLen);
+				 
+    				if (this.flags & 0x40/*_FR_DIALOGTERM*/) {
+    					this.hwnd = null;
+    					this.flags = this.flags & ~0x40/*_FR_DIALOGTERM*/
+        				return; 
+    				}  
+    				elseif ( (this.flags & 0x8/*_FR_FINDNEXT*/) && this.onSearch ) {
+        				this.onSearch(this.findWhat,!!(this .flags  & 0x1/*_FR_DOWN*/) ,!!(this.flags  & 0x4/*_FR_MATCHCASE*/),!!(this.flags  & 0x2/*_FR_WHOLEWORD*/) ); 
+    				} 
+    				elseif( (this.flags & 0x10/*_FR_REPLACE*/) && this.onReplace ) {
+        				this.onReplace(this.findWhat,this.replaceWith,!!(this .flags  & 0x1/*_FR_DOWN*/) ,!!(this.flags  & 0x4/*_FR_MATCHCASE*/),!!(this.flags  & 0x2/*_FR_WHOLEWORD*/) ); 
+    				} 
+    				elseif( (this.flags & 0x20/*_FR_REPLACEALL*/ ) && this.onReplaceAll ) {
+        				this.onReplaceAll(this.findWhat,this.replaceWith,!!(this .flags  & 0x1/*_FR_DOWN*/) ,!!(this.flags  & 0x4/*_FR_MATCHCASE*/),!!(this.flags  & 0x2/*_FR_WHOLEWORD*/) ); 
+    				} 
+    				
+    				return;
+    			}
+    		};
+		};
+		
+		..table.gc(this,"close");
+	}; 
+	__create = function(createDlg,defText){ 
+		
+		if(!#this.findWhat) this.findWhat = defText;
+		
+		if(this.hwnd){
+			..win.show(this.hwnd);
+			return;
+		}
+		
+		this.findWhatBuffer = ..raw.buffer(250,..string.toUnicode(this.findWhat));
+		this.findWhatLen = 250;	
+		this.replaceWithBuffer = ..raw.buffer(250,..string.toUnicode(this.replaceWith));
+		this.replaceWithLen = 250;	
+		this.rawBuffer =  ..raw.buffer(this);//避免提前释放内存
+		this.hwnd = createDlg(this.rawBuffer);
+		if( this.title ) ..win.setText(this.hwnd,this.title);
+	}; 
+	find = function(defText){ 
+		return this.__create(::Comdlg32.FindText,defText); 
+	};  
+	replace = function(defText){ 
+		return this.__create(::Comdlg32.ReplaceText,defText);
+	}; 
+	show = function(cmd){
+		if( this.hwnd ){
+			..win.show(cmd)	
+		}	
+	};
+	close = function(){
+		if( this.hwnd ){
+			..win.close(this.hwnd)	
+		}
+	}; 
+}
+
+::Comdlg32 := ..raw.loadDll("comdlg32.dll");
+namespace findReplace{  
+	FINDREPLACE = class {
+ 		INT cbSize;
+ 		ADDR hwndOwner; 
+ 		ADDR hInstance;
+ 		INT flags = 1/*_FR_DOWN*/;
+ 		ptr findWhatBuffer;
+ 		ptr replaceWithBuffer;
+ 		WORD findWhatLen;
+ 		WORD replaceWithLen;
+ 		int custData;
+ 		pointer fnHook;
+ 		ustring templateName;
+	}
+	findReplaceMsg = ::RegisterWindowMessage( "commdlg_FindReplace") 
+} 
+
+/**intellisense()
+win.dlg.findReplace = 查找替换对话框
+win.dlg.findReplace(__) = 创建查找替换对话框\n参数中指定父窗口对象,注意不能仅指定父窗口句柄。\n一个父窗口上不要创建多个查找对话框
+win.dlg.findReplace() = !windlgfindReplace.
+!windlgfindReplace.flags = 查找替换选项,\n此属性可以作为richedit的findText,replaceText函数参数使用
+!windlgfindReplace.title = 窗口标题,需要在首次打开对话框以前设置
+!windlgfindReplace.findWhat = 要查找的文本\n用户输入过的查找文本会放在这里,\n下次打开对话框作为默认查找字符串
+!windlgfindReplace.replaceWith = 要替换的文本\n用户输入过的替换文本会放在这里,\n下次打开对话框作为默认替换字符串
+!windlgfindReplace.find() = 打开查找文本对话框\n可选在参数中指定findWhat属性为空时的默认查找文本
+!windlgfindReplace.replace() = 打开替换文本对话框\n可选在参数中指定findWhat属性为空时的默认查找文本
+!windlgfindReplace.close() = 关闭对话框
+!windlgfindReplace.show(false) = 隐藏对话框
+!windlgfindReplace.onSearch = @.onSearch = function(findWhat,down,matchCase,wholeWord){
+	__/*查找触发此事件,参数：\nfindWhat 正在查找的字符串\ndown 是否向下查找\nmatchCase 是否区分大小写\nwholeWord 是否全字匹配*/	
+} 
+!windlgfindReplace.onReplace = @.onReplace = function(findWhat,replaceWith,down,matchCase,wholeWord){
+	__/*替换触发此事件,参数：\nfindWhat 正在查找的字符串\nreplaceWith 替换字符串\ndown 是否向下查找\nmatchCase 是否区分大小写\nwholeWord 是否全字匹配*/	
+} 
+!windlgfindReplace.onReplaceAll = @.onReplaceAll = function(findWhat,replaceWith,down,matchCase,wholeWord){
+	__/*全部替换触发此事件,参数：\nfindWhat 查找字符串\nreplaceWith 替换字符串\ndown 是否向下查找\nmatchCase 是否区分大小写\nwholeWord 是否全字匹配*/
+} 
+end intellisense**/

package/aardio/lib/win/dlg/font.aardio

@@ -0,0 +1,53 @@
+//font 字体对话框
+namespace win.dlg; 
+
+class font {
+	ctor(hwndOwner,param){
+		..table.assign(this,{
+   			INT structSize = 60;
+   			int hwndOwner = hwndOwner[["hwnd"]] : hwndOwner;
+   			pointer hDC;  
+   			pointer logFont;  
+   			int pointSize;
+   			INT flags = 0x3/*_CF_BOTH*/ | 0x100/*_CF_EFFECTS*/ | 0x1/*_CF_SCREENFONTS*/ |0x40/*_CF_INITTOLOGFONTSTRUCT*/;
+   			int rgbColors;  
+   			int custData; 
+   			pointer lpfnHook; 
+   			string templateName;  
+   			pointer hInstance; 
+   			string style; 
+   			WORD fontType = 0x400/*_REGULAR_FONTTYPE*/;
+   			int sizeMin = 5;
+   			int sizeMax = 72
+		} ,param)  
+	}
+	chooseFont = function(){ 
+		if( this.sizeMax ) this.flags = this.flags | 0x2000/*_CF_LIMITSIZE*/ 
+		if( type(this.logFont) != type.buffer ){
+			var logfont = this.logFont; 
+			if(!logfont[["_struct"]]) {
+				if(!logfont && this.pointSize) logfont = {point = this.pointSize/10}
+				logfont = ::LOGFONT(logfont);
+			}
+			
+			this.logFont = ..raw.buffer( logfont.stripPoint() );  
+		} 
+		
+		if(  ::Comdlg32.ChooseFont(this) ){
+			var logfont = ..raw.convert(this.logFont ,LOGFONT())
+			logfont.color = this.rgbColors;
+			return logfont;
+		}
+	} 
+}
+
+::Comdlg32 := ..raw.loadDll("comdlg32.dll");
+
+/**intellisense()
+win.dlg.font = 通用字体对话框
+win.dlg.font(winform__/*父窗体*/) = 创建通用字体对话框 
+win.dlg.font() = !winDlgFont.
+!winDlgFont.logFont = 用于初始化默认字体并返回选择后的字体,\n选择字体以前可指定为LOGFONT对象，也可指定部分LOGFONT对象的字段，\n选择字体时转换为buffer对象，选择字体成功转换回LOGFONT对象\n!logfont.
+!winDlgFont.pointSize = 选择的字体大小，以十分之一点为单位\n注意英文系统字体对话框会舍入为整点单位的十分之一
+!winDlgFont.chooseFont() = 弹出选择字体对话框,成功返回::LOGFONT结构体的字体\n!logfont.
+end intellisense**/