AdvStringGrid使用技巧
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;
当然,首先在AdvStringGrid的属性FixedRows设为你想要的数值,这个数值就代表表头行数。
--------------------------------------------------------------------
2、怎样实现AdvStringGrid的列宽自动按内容调整?
怎样实现AdvStringGrid的列宽自动按列标题宽度调整?
autosize属性的作用是什么?
autosize,可以根据内容调整列宽。
自动按标题列调整,自己在其RESIZE事件里对COLWIDTHS[I]赋值就行了。
procedure AutoSizeColumns(const DoFixedCols: Boolean; const Padding: Integer);
例:AdvStringGrid1.AutoSizeColumns(False,16);
本内容试读结束,登录后可阅读更多
下载后可阅读完整内容,剩余3页未读,立即下载