aardio - 取窗口文本长度实例

import win.ui;
/*DSG{{*/
var winform = win.form(text="aardio form";right=759;bottom=469)
winform.add(
button={cls="button";text="Button";left=280;top=344;right=440;bottom=400;z=2};
static={cls="static";text="Static";left=160;top=88;right=544;bottom=184;bgcolor=32768;z=1}
)
/*}}*/
getTextMaxWidth = function(hdc,font,tab){
	var oldFontHandle,newFontHandle,oldfont;
	if font {
    	oldFontHandle = font.handle;
		newFontHandle = oldFontHandle:font.createIndirect(hdc); 
		oldfont = ::SelectObject(hdc,newFontHandle);
	}
	var w,t = 0,"";
	for(i=1;#tab;1){
		var w1 = ..math.max(w, ..gdi.getTextExtent(hdc,tab[i]));
		if w1!=w {
			w = w1
			t = tab[i]
		}
	}
	if font {
		::SelectObject(hdc,oldfont);
		if(!oldFontHandle) font.deleteIndirect();
	}
	return w,t; 
}
winform.button.oncommand = function(id,event){
	var t = {};
	for(i=1;10000;1){
		table.push(t,..string.random(..math.random(1,50)));
	}
	hdc = ::GetDC(winform.static.hwnd);
	winform.static.width,winform.static.text = getTextMaxWidth(hdc,winform.static.font,t);
	winform.text = winform.static.text
}
winform.show();
win.loopMessage();