月光软件站 - 编程文档 - Delphi - 使TStringGrid自适应宽度

Delphi

本类阅读TOP10

·游戏外挂设计技术探讨①
·如何使用Delphi设计强大的服务器程序
·分布式网络考试系统原型分析及实现
·用DLL方式封装MDI子窗体。
·使用HOOK随心监视Windows
·Delphi 水晶报表打包解决
·url编码与解码工具附代码
·工人线程中关闭窗体的实现
·hdsi2.0 sql注入部分抓包分析语句
·Borland Delphi 2005 下载

→ 分类导航

VC语言	Delphi
VB语言	ASP
Perl	Java
Script	数据库
其他语言	游戏开发
文件格式	网站制作
软件工程	.NET开发

使TStringGrid自适应宽度

作者：未知来源：月光软件站 加入时间：2005-2-28　月光软件站

procedure AutoFitable(AGrids: TStringGrid);
//传入TStringGrid对像即可, 2004/10/28,CoolSlob
var
I, J: Integer;
MaxLenRow: Integer;
CurRowLen: Integer;
begin
inherited;
for J := 0 to AGrids.ColCount - 1 do
begin
    MaxLenRow := 0;
    for I := 1 to AGrids.RowCount - 1 do
    begin
      CurRowLen := AGrids.Canvas.TextWidth(Trim(AGrids.Cells[J, I]));
      //自适应宽度时，当值的最大宽度小于标题宽时，以标题宽为准。
      if AGrids.Canvas.TextWidth(Trim(AGrids.Cells[J, 0])) > CurRowLen then
        CurRowLen := AGrids.Canvas.TextWidth(Trim(AGrids.Cells[J, 0]));
      if CurRowLen > MaxLenRow then
      begin
        MaxLenRow := CurRowLen + 5;
        AGrids.ColWidths[J] := MaxLenRow;
      end;
    end;
end;
end;

相关文章：

相关软件：