import win.ui;
import godking.vlistEx;
/*DSG{{*/
mainForm = win.form(text="vlistEx - table adapter";right=527;bottom=455)
mainForm.add(
vlist={cls="vlistEx";left=8;top=8;right=520;bottom=440;border=1;db=1;dl=1;dr=1;dt=1;z=1}
)
/*}}*/

var t = { fields={"序号","姓名","状态","性别"} };
for(i=1;20;1){
    var tt={};
    tt["序号"]="[@rowindex]"; 
    tt["姓名"] = string.random(5,"abcdefg");
    tt["状态"] = ..math.random(0,100);
    tt["性别"] = ..math.random(0,100);
    ..table.push(t,tt);
}
mainForm.vlist.showVScroll(true);
mainForm.vlist.setTable(t,,{100,150,150,-1},1); 

var scrollbarWidth = mainForm.vlist.scrollbarWidth;
mainForm.vlist.width += scrollbarWidth;
mainForm.adjust = function( cx,cy,wParam ) {
	var hFull = ::Gdi32.CreateRectRgn(0,0, mainForm.vlist.width-scrollbarWidth-1, mainForm.vlist.height-1);
	::User32.SetWindowRgn(mainForm.vlist.hwnd, hFull, true);
	::Gdi32.DeleteObject(hFull);
};

mainForm.show();
win.loopMessage();