igrid表格控件的简单测试

2. 测试了下单元格中增加图标

import win.ui;
/*DSG{{*/
var winform = win.form(text="aardio form";right=850;bottom=469)
winform.add(
button={cls="button";text="Button";left=10;top=423;right=214;bottom=469;z=2};
button2={cls="button";text="Button";left=299;top=424;right=503;bottom=470;z=3};
static={cls="static";text="Static";left=0;top=0;right=612;bottom=396;transparent=1;z=1}
)
/*}}*/

import console
console.open()

LC_COLOR16=16;
IMAGE_BITMAP=0;
eilMaskColorNone=0;
ILC_COLOR4=4;
eilMaskColorSpecified=2;
eilCopy=0;
ILC_COLOR24=24;
ILC_COLOR32=32;
eilSwap=1;
IMAGE_ICON=1;
IMAGE_CURSOR=2;
ILC_COLOR8=8;
eilMaskColorTopLeftPixel=1

var grid = winform.static.createEmbed("iGrid400_10Tec.iGrid");
var iGrid1 = grid._object;

var imglistobj = com.CreateObject("vbalIml220_10Tec.vbalImageList");
imglistobj.ImageHeight = 16
imglistobj.ImageWidth = 16
imglistobj.ColorDepth = ILC_COLOR32
imglistobj.MaskColor = eilMaskColorNone
imglistobj.Create()
imglistobj.AddFromFile("C:\Program Files\10Tec\ActiveX\iGrid 4.0\Demo_NewFeatures\Graphics\Envelopes\forward.ico",IMAGE_ICON);
imglistobj.AddFromFile("C:\Program Files\10Tec\ActiveX\iGrid 4.0\Demo_NewFeatures\Graphics\Envelopes\read.ico",IMAGE_ICON);
imglistobj.AddFromFile("C:\Program Files\10Tec\ActiveX\iGrid 4.0\Demo_NewFeatures\Graphics\Envelopes\replied.ico",IMAGE_ICON);
imglistobj.AddFromFile("C:\Program Files\10Tec\ActiveX\iGrid 4.0\Demo_NewFeatures\Graphics\Envelopes\unread.ico",IMAGE_ICON);



winform.button.oncommand = function(id,event){
    iGrid1.Clear(true)
    iGrid1.BeginUpdate()
    
    iGrid1.SetImageList(imglistobj)
    
    iGrid1.DefaultRowHeight = 19
    //iGrid1.DrawRowText = false
    iGrid1.GridLineColor =0
        iGrid1.setGridLines =3
    iGrid1.BackColorOddRows = 0xC7E2C8
    //iGrid1.TreeButtonBackColor = 0xFFFFFF
    //iGrid1.TreeButtonBorderColor = 0xBF0000
   // iGrid1.TreeButtonForeColor = 255
    iGrid1.ColCount = 3
    //iGrid1.CellIconGap = 10
    iGrid1.setColWidth(1,200)
    iGrid1.setColWidth(2,200)
    iGrid1.setColWidth(3,200)
    //iGrid1.TreeButtonSize=19
    iGrid1.TreeCol = 1
    iGrid1.AddRow();
    iGrid1.setCellValue(iGrid1.RowCount, 1,"Root-1");
    iGrid1.setCellBackColor(iGrid1.RowCount, 2, 255);
    var rowd = iGrid1.AddRow(,,,,,1);
    iGrid1.setCellValue(rowd, 1,"Child-1.1");
    var rowd = iGrid1.AddRow(,,,,,2);
    iGrid1.setCellValue(rowd, 1,"Child-1.1.1");
    var rowd = iGrid1.AddRow(,,,,,2);
    iGrid1.setCellValue(rowd, 1,"Child-1.1.2");
    
    
    var rowd = iGrid1.AddRow(,,,,,1);
    iGrid1.setCellValue(rowd, 1,"Child-2.1");
    iGrid1.AddRow(,,,,,rowd);
    iGrid1.setCellValue(iGrid1.RowCount, 1,"Child-2.1.1");
    iGrid1.setCellValue(iGrid1.RowCount, 2,"Child-2.2.2");
    iGrid1.setCellIcon(iGrid1.RowCount, 2, 1)
    iGrid1.setCellIcon(iGrid1.RowCount, 3, 2)
	iGrid1.AddRow(,,,,,rowd);
    iGrid1.setCellValue(iGrid1.RowCount, 1,"Child-2.1.2");
    iGrid1.setCellIcon(iGrid1.RowCount, 2, 3)
    iGrid1.EndUpdate()
 
}

winform.button2.oncommand = function(id,event){
	iGrid1.setCellIcon(iGrid1.RowCount, 3, 4)
}

winform.show();
win.loopMessage();

测过程中发现 , igrid中有些方法和属性并不能有效果, 可能是这些方法aar不支持(或者是我使用的方法不对 ::>_<:: ) , 比如上面注释掉的那些属性都是没效果不支持的.

3,测试添加下拉框图标

import iGrid400;
var iGrid1 = iGrid400(mainForm.static);

var imglistobj = com.CreateObject("vbalIml220_10Tec.vbalImageList");
//设定图标的宽度和高度(必须)
imglistobj.ImageHeight = 15
imglistobj.ImageWidth = 15
imglistobj.ColorDepth = 32
imglistobj.MaskColor = 0
//创建之后才能添加图片
imglistobj.Create()
//从文件中添加(参数:文件路径,文件类型0=BITMAP/1=ICO/2=CURSOR,设定引用名)
imglistobj.AddFromFile("C:\Program Files\10Tec\ActiveX\iGrid 4.0\Demo_Main\Graphics\PropEditor\Colors_NotTransparent\BLACK.bmp",0,"black");
imglistobj.AddFromFile("C:\Program Files\10Tec\ActiveX\iGrid 4.0\Demo_Main\Graphics\PropEditor\Colors_NotTransparent\RED.bmp",0,"red");
imglistobj.AddFromFile("C:\Program Files\10Tec\ActiveX\iGrid 4.0\Demo_Main\Graphics\PropEditor\Colors_NotTransparent\WHITE.bmp",0,"white");
imglistobj.AddFromFile("C:\Program Files\10Tec\ActiveX\iGrid 4.0\Demo_Main\Graphics\PropEditor\Colors_NotTransparent\BLUE.bmp",0,"blue");
//为表格设置图标列表
iGrid1.SetImageList(imglistobj)
//定义名字为colors的下拉框 
var Combos = iGrid1.Combos.Add("Colors")
//为下拉框设置图标
Combos.SetImageList(imglistobj)
//添加下拉框项目(参数:项目名,该项所代表值,图标索引)
Combos.AddItem("black",0,imglistobj.ItemIndex("black"))
Combos.AddItem("red", 1,imglistobj.ItemIndex("red"))
Combos.AddItem("blue", 2,imglistobj.ItemIndex("blue"))
//设置单元格类型(参数:行,列,下拉框类型)
iGrid1.setCellType(5, 3,1) //1=igCellCombo 类型 
iGrid1.setCellTypeFlags(5, 3,8) //8=igComboBtnFlat 样式
//设置单元格引用名字为colors的下拉框
iGrid1.setCellCtrlKey(5, 3,"Colors")
//设置单元格值=2(此处2=blue),即默认显示为blue项
iGrid1.setCellValue(5, 3,2)

封装了一点, 暂时不写这个igrid库了, 还有其他是要做.

智能提示也没写呢, 很多函数也没有开始封装,嗯, 先这样

第一版 iGrid400.aardio 用户库

//iGrid表格库
import com.activeX;
import fsys;
class iGrid400{
    ctor( winform,row=11,col=5 ){
        winform.onEraseBkgnd  = function(hwnd,message,wParam,lParam){
            return 0;//禁止擦除背景
        };
        this = winform.createEmbed("iGrid400_10Tec.iGrid");
        this._object.GridLineColor = 0x4C7449;
        //this._object.BackColorOddRows = 0xC7E2C8
        //this._object.BackColorEvenRows = 0xFFEACF;
        this._object.StoreInitRowNumbers = 3;
        this._object.DefaultRowHeight = 19;
        this._object.setGridLines = 1;
        
        this._object.ColCount = col;
        this._object.RowCount = row; 

        ..com.Connect(this._object,{ 
            DblClick = function(Button,Shift,x,y,lRow,lCol,eAction){
                return this._object.DblClick(Button,Shift,x,y,lRow,lCol,eAction);
            };
            MouseDown = function(Button,Shift,x,y,lRow,lCol,eCellPart,bDoDefault){
                return this._object.MouseDown(Button,Shift,x,y,lRow,lCol,eCellPart,bDoDefault);
            };
			CellSelectionChange = function(lRow,lCol,bSelected){
                return this._object.CellSelectionChange(lRow,lCol,bSelected);
            };
            BeforeCommitEdit = function(lRow,lCol,eResult,sNewText,vNewValue,lConvErr,bCanProceedEditing){
                return this._object.BeforeCommitEdit(lRow,lCol,eResult,sNewText,vNewValue,lConvErr,bCanProceedEditing);
            };
            TextEditChange = function(lRow,lCol){
                return this._object.TextEditChange(lRow,lCol);
            };
            AfterCommitEdit = function(lRow,lCol){
                return this._object.AfterCommitEdit(lRow,lCol);
            };
            RequestEdit = function(lRow,lCol,iKeyAscii,bCancel,sText,lMaxLength,eTextEditOpt){
                return this._object.RequestEdit(lRow,lCol,iKeyAscii,bCancel,sText,lMaxLength,eTextEditOpt);
            };
            CancelEdit = function(lRow,lCol){
                return this._object.CancelEdit(lRow,lCol);
            };
            CancelEdit = function(lRow,lCol){
                return this._object.CancelEdit(lRow,lCol);
            };
            ColHeaderClick = function(lCol,bDoDefault,Shift,x,y){
                return this._object.ColHeaderClick(lCol,bDoDefault,Shift,x,y);
            };
            CustomDrawCell = function(lRow,lCol,hdc,lLeft,lTop,lRight,lBottom,bSelected){
                return this._object.CustomDrawCell(lRow,lCol,hdc,lLeft,lTop,lRight,lBottom,bSelected);
            };
        });
     
        return this._object; 
    };
    @_metaProperty;
}
namespace iGrid400{
	
}

使用示例: mainform.aardio

import win.ui;
/*DSG{{*/
mainForm = win.form(text="igrid演示";right=679;bottom=442)
mainForm.add(
static={cls="static";left=0;top=0;right=680;bottom=357;bgcolor=15780518;db=1;dl=1;dr=1;dt=1;z=1}
)
/*}}*/

import console
console.open()

import iGrid400;
var iGrid1 = iGrid400(mainForm.static);
iGrid1.ShowControlsInAllCells = true

var imglistobj = com.CreateObject("vbalIml220_10Tec.vbalImageList");
//设定图标的宽度和高度(必须)
imglistobj.ImageHeight = 15
imglistobj.ImageWidth = 15
imglistobj.ColorDepth = 32
imglistobj.MaskColor = 0
//创建之后才能添加图片
imglistobj.Create()
//从文件中添加(参数:文件路径,文件类型0=BITMAP/1=ICO/2=CURSOR,设定引用名)
imglistobj.AddFromFile("C:\Program Files\10Tec\ActiveX\iGrid 4.0\Demo_Main\Graphics\PropEditor\Colors_NotTransparent\BLACK.bmp",0,"black");
imglistobj.AddFromFile("C:\Program Files\10Tec\ActiveX\iGrid 4.0\Demo_Main\Graphics\PropEditor\Colors_NotTransparent\RED.bmp",0,"red");
imglistobj.AddFromFile("C:\Program Files\10Tec\ActiveX\iGrid 4.0\Demo_Main\Graphics\PropEditor\Colors_NotTransparent\WHITE.bmp",0,"white");
imglistobj.AddFromFile("C:\Program Files\10Tec\ActiveX\iGrid 4.0\Demo_Main\Graphics\PropEditor\Colors_NotTransparent\BLUE.bmp",0,"blue");
//为表格设置图标列表
iGrid1.SetImageList(imglistobj)
//定义名字为colors的下拉框 
var Combos = iGrid1.Combos.Add("Colors")
//为下拉框设置图标
Combos.SetImageList(imglistobj)
//添加下拉框项目(参数:项目名,该项所代表值,图标索引)
Combos.AddItem("black",0,imglistobj.ItemIndex("black"))
Combos.AddItem("red", 1,imglistobj.ItemIndex("red"))
Combos.AddItem("blue", 2,imglistobj.ItemIndex("blue"))
//设置单元格类型(参数:行,列,下拉框类型)
iGrid1.setCellType(5, 3,1) //1=igCellCombo 类型 
iGrid1.setCellTypeFlags(5, 3,8) //8=igComboBtnFlat 样式
//设置单元格引用名字为colors的下拉框
iGrid1.setCellCtrlKey(5, 3,"Colors")
//设置单元格值=2(此处2=blue),即默认显示为blue项
iGrid1.setCellValue(5, 3,2)

iGrid1.setCellType(5, 4,3)//igCellCustomDraw



iGrid1.DblClick = function(Button,Shift,x,y,lRow,lCol,eAction){
	console.log("DblClick",Button,Shift,x,y,lRow,lCol,eAction)
}
iGrid1.CellSelectionChange = function(lRow,lCol,bSelected){
	console.log("CellSelectionChange",lRow,lCol,bSelected)
}
iGrid1.AfterCommitEdit = function(lRow,lCol){
	console.log("AfterCommitEdit",lRow,lCol)
}

/**
//暂时还没弄好自绘
import gdip;
iGrid1.CustomDrawCell = function(lRow,lCol,hdc,lLeft,lTop,lRight,lBottom,bSelected){
	//console.log("CustomDrawCell",lRow,lCol,hdc,lLeft,lTop,lRight,lBottom,bSelected)
	//图形对象graphics(可以看作是画板)
	var graphics = gdip.graphics(hdc) 
	//加上抗锯齿功能
	graphics.smoothingMode = 4/*_GdipSmoothingModeAntiAlias*/;  
	//创建渐变刷子 
	var brush = gdip.lineBrush( ::POINTF(10,10)/*渐变起始坐标*/, ::POINTF(100,100) /*渐变终止坐标*/ , 0xFFFFFF00/*起始颜色*/, 0xFF00FFFF/*结束颜色*/ )
    graphics.fillRectangle(brush,lLeft,lTop,100,lBottom-lTop);
    
    brush.delete();
    graphics.delete(); 	
}
**/

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

igrid演示.zip

感谢您的分享！辛苦了！