AdvStringGrid使用技巧

19 篇文章 0 订阅

转(杨帆http://www.wesoho.com/article/Delphi/1414.htm

1、AdvStringGrid做多表头
在onIsFixedCell事件中返回true的就是表头
procedure TForm1.FormCreate(Sender: TObject);
begin
AdvStringGrid1.FixedRows:=2;
AdvStringGrid1.SaveFixedCells := false;
AdvStringGrid1.MergeCells(1,0,2,1);
AdvStringGrid1.MergeCells(3,0,2,1);
AdvStringGrid1.Cells[1,0] := '<p align="center"> <b>Identification</b></p>';
AdvStringGrid1.Cells[1,1] := 'Brand';
AdvStringGrid1.Cells[2,1] := 'Type';
AdvStringGrid1.Cells[3,1] := 'CC';
AdvStringGrid1.Cells[4,1] := 'Pk';
AdvStringGrid1.Cells[3,0] := '<p align="center"><b>Power</b></p>';
AdvStringGrid1.BtnEdit.ButtonWidth := 24;
end;
--------------------------------------------------------------------
2、怎样实现AdvStringGrid的列宽自动按内容调整?
怎样实现AdvStringGrid的列宽自动按列标题宽度调整?
autosize属性的作用是什么?

autosize,可以根据内容调整列宽。
自动按标题列调整,自己在其RESIZE事件里对COLWIDTHS[I]赋值就行了。

procedure AutoSizeColumns(const DoFixedCols: Boolean; const Padding: Integer);
例:AdvStringGrid1.AutoSizeColumns(False,16);

AdvStringGrid1.AutoSizeColumns(False,16);
第一参数:是否为固定列;第二个参数,文字后面留的空格数

所有单元格自动调整,由第一个参数设置是否含固定单元,
如要固定行折行显示应将其行高设为自动调整即:
AdvStringGrid1.AutoSizeRow(0);
---------------------------------------------------------------------
3、AdvStringGrid插入checkbox列
把advstringgrid的option属性中的goEditing 设为true

在from create事件中加入
for i:=1 to advstringgrid.rowcount-1 do
advstringgrid.AddCheckBox(1,i,false,false); //其中1表示所在列数

GetCheckBoxState(col,row) 可以查询的
Bchek:Boolean;
AdvSGrid.GetCheckBoxState(Col,Arow,Bchek);
---------------------------------------------------------------------
4、stringGrid中的行或列和并
grdList.MergeCells(0,0,2,2);
grdList.Cells[0,0]:='123456';

advstringgrid.mergecol(3,4);
advstringgrid..MergeCells(0,0,2,2);
5、
with advStringGrid1 do //引用单元格时, 列数在前,行数在后.
MergeCells(0,0,1,3);
//合并单元格.前两参数为列数行数. 后两参数分别为要合并的列数和行数
Cells[1,0] := Format('分度线( %s )',[m_sMeasureRangeUnit]);;

MergeCells(3,JieDianStart - 1,1,1);
Cells[3,JieDianStart - 1] := '动作方式';
ColWidths[3] := ColWidths[3] + 10;
Colors[3,JieDianStart - 1] := FixedColor;
FontNames[3,JieDianStart - 1] := FixedFont.Name;
FontSizes[3,JieDianStart - 1] := FixedFont.Size;
FontStyles[3,JieDianStart - 1] := FixedFont.Style;


前面是我在程序中拉的一段.
控件常用事件:
//单元格可否被修改
onCanEditCell(Sender: TObject; ARow, ACol: Integer; var CanEdit: Boolean);
begin
if ACol = 0 then
CanEdit := false; //false不能修改
end;

//对齐方式
onGetAlignment(Sender: TObject; ARow,
ACol: Integer; var HAlign: TAlignment; var VAlign: TVAlignment);
begin
HAlign := taCenter;
VAlign := vtaCenter;
end;
//是否固定列 ,即标题列, 在表中非开头行需要固定标题列时很有用
onIsFixedCell(Sender: TObject; ARow,
ACol: Integer; var IsFixed: Boolean);
begin
if(ARow = 10) then
begin
IsFixed := True;
end;
end;
-------------------------------------------------------------------------------
6、如何在AdvStringGrid中为每个单元格内的字体定制颜色
在OnDrawCell事件(看名字这个控件应该有这个事件把,呵呵!)写如下代码:
(Sender as TAdvStringGrid).Canvas.Font.Color:=clNavy;
7、cell中内嵌combobox
OnGetEditorType事件
if ACol = 1 then
begin
aEditor := edComboList;
grdMain.ClearComboString;
grdMain.AddComboString('借');
grdMain.AddComboString(' 贷');
end;

评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值