aardio - 【库】易高级表格库_aardio egrid

import win.ui;
/*DSG{{*/
var winform = win.form(text="aardio form";right=759;bottom=469;composited=1)
winform.add(
button={cls="button";text="保存";left=168;top=306;right=448;bottom=368;db=1;dl=1;note="将表格内容存到文件";z=2};
button2={cls="button";text="载入";left=462;top=306;right=740;bottom=368;db=1;dl=1;note="从文件读入表格内容";z=3};
button3={cls="button";text="打印预览";left=588;top=386;right=690;bottom=446;db=1;dl=1;z=8};
button4={cls="button";text="添加一行";left=26;top=386;right=128;bottom=446;db=1;dl=1;z=4};
button5={cls="button";text="删除一行";left=138;top=387;right=240;bottom=447;db=1;dl=1;z=5};
button6={cls="button";text="删除一列";left=390;top=389;right=492;bottom=449;db=1;dl=1;z=7};
button7={cls="button";text="添加一列";left=278;top=388;right=380;bottom=448;db=1;dl=1;z=6};
custom={cls="custom";text="自定义控件";left=17;top=12;right=743;bottom=295;ah=1;aw=1;border=1;db=1;dl=1;dr=1;dt=1;edge=1;z=1};
plus={cls="plus";left=28;top=302;right=154;bottom=392;db=1;dl=1;z=9}
)
/*}}*/
 
winform.show();
import godking.egrid
var e=godking.egrid(winform.custom)
 
//整行选择
e.FullRow = true 
//置行标题
e.setText(0,1,{"文本型","图片型","选择型","不可编辑列表型"})
 
//置列宽
e.setColWidth(,{90,100,80,60,120}/*列宽*/)
 
//置列类型，默认为文本型
e.setColType({2,3},{6/*_EGRID_TYPE_IMAGE图片型*/,5/*_EGRID_TYPE_CHECK选择型*/})
 
//置表格线颜色
e.LineColor = 0x888888
 
//隐藏表格边框
e.BorderStyle = 0
 
//置文本内容(支持多种方式)
e.setText(1,{1,4},{"第1行第1列","第1行第4列"})
e.setText(2,,"全部第2行")
e.setText(3,1,"第3行第1列")
 
//置图片1(图片文件名)
e.setImage(1,2,"E:\图片素材\gif\gif_网页按钮\搜索按钮\11.gif")
 
//置图片2(读入文件到内存数据)
img = ..string.load("E:\图片素材\gif\gif_网页按钮\搜索按钮\11.gif")
e.setImage(2,2,img,#img)
 
//取图片内容
winform.plus.foreground = e.getImage(1,2)
 
//置图片3(从plus获取图片数据)
img = winform.plus.getForeground().saveToBuffer()
e.setImage(3,2,img,#img)
 
//置选择框内容
e.setChecked(1,3,true )
e.setText(2,3,1 )
 
//置列表内容
e.addList({"列表第一项","列表第二项","列表第三项"})
e.setColType(4,8/*类型*/) //置列类型为列表型之前，必须要添加列表内容
//列表项事件
e.onSelect = function(row/*行号*/,col/*列号*/, text/*被选择文本*/){
        /*列表项被选择，当选择列表型单元格中的列表项时产生此事件。*/
        win.msgbox(text)
	}
 
//设置为只读
e.setReadOnly(3,1,3,4,true)
 
//取文本内容
win.msgbox("第一行，第一列，取内容："++e.getText(1,1))
 
//取选择框内容
win.msgbox("第一行，第三列，取选中状态："++e.getChecked(1,3))
 
//禁止编辑事件。如果设置了只读，则不会触发该事件。
e.onEnableEdit = function(row/*行号*/,col/*列号*/){
/*可否被编辑，在“将被编辑”事件之前产生本事件。
如果返回false，表示不允许该单元格进入编辑状态，不会有“onEdit”事件。
本事件并不能阻止“不进入编辑状态而修改单元格内容”的行为，如按下DEL或Ctrl+V键。*/
        if row = 2 {
        	winform.msgboxErr("第2行不可编辑")
        	return false; 
        }
        return true;
	}
 
winform.button.oncommand = function(id,event){
	import fsys.dlg
	var f = fsys.dlg.save("高级表格文件(*.grd)|*.grd","选择文件",,winform)
	if(e.saveToFile(f)){
		win.msgbox("保存完毕")
	}else{
		win.msgboxErr("保存失败")
	}
}
 
winform.button2.oncommand = function(id,event){
	import fsys.dlg
	var f = fsys.dlg.open("高级表格文件(*.grd)|*.grd","选择文件",,winform)
	if(e.readFromFile(f)){
		win.msgbox("打开成功")
	}else{
		win.msgboxErr("打开失败")
	}
}
 
winform.button4.oncommand = function(id,event){
	e.addRow()
}
 
winform.button5.oncommand = function(id,event){
	e.delRow(e.RowCount-1)
}
 
winform.button7.oncommand = function(id,event){
	e.addCol("新列")
}
 
winform.button6.oncommand = function(id,event){
	e.delCol(e.ColCount-1)
}
 
winform.button3.oncommand = function(id,event){
	e.printPreview()
}
 
//设置斑马线
e.setZebraLine(1,0xeedddd,0xddddee)
 
//设置行高
e.setRowHeight(,30/*行高*/)
 
win.loopMessage();