• AdvStringGrid 列宽度、列移动、行高度、自动调节


    那么有没有办法,让客户自己去调整列的宽度呢?

    那么有没有办法 让列宽度、行高度 随着内容而自动变换呢:

    unit Unit5;
    
    interface
    
    uses
      Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
      Vcl.Controls, Vcl.Forms, Vcl.Dialogs, AdvUtil, Vcl.StdCtrls, Vcl.Grids,
      AdvObj, BaseGrid, AdvGrid;
    
    type
      TForm5 = class(TForm)
        Button1: TButton;
        Button2: TButton;
        AdvStringGrid1: TAdvStringGrid;
        Button3: TButton;
        Button4: TButton;
        Button5: TButton;
        procedure Button1Click(Sender: TObject);
        procedure Button2Click(Sender: TObject);
        procedure Button3Click(Sender: TObject);
        procedure Button4Click(Sender: TObject);
        procedure Button5Click(Sender: TObject);
      private
        { Private declarations }
      public
        { Public declarations }
      end;
    
    var
      Form5: TForm5;
    
    implementation
    
    {$R *.dfm}
    
    procedure TForm5.Button1Click(Sender: TObject);
    var
      I: Integer;
    begin
      AdvStringGrid1.RowCount := 50;//一共50行0..49
      AdvStringGrid1.ColWidths[0] := 50;//改变第一列的宽度。
      AdvStringGrid1.AddCheckBoxColumn(0);//表示这一列都需要复选框
      //第0行是标题头,所以从1..49开始
      for I := 1 to 49 do
      begin
        //AdvStringGrid1.AddCheckBox(0, I, False, False); //可以写在这里, 表示某个单元格 需要增加 复选框
        AdvStringGrid1.Cells[1,I] := '第二列 + 第二列' + I.ToString;
        AdvStringGrid1.Cells[2,I] := '第三列' + I.ToString;
      end;
      AdvStringGrid1.VAlignment := vtaCenter;
    end;
    
    procedure TForm5.Button2Click(Sender: TObject);
    begin
      //调整所有列, 第一个参数是否调节固定列, 第二个参数 单元格里数据前台间隔的字符数
      AdvStringGrid1.AutoSizeColumns(True, 5);
    end;
    
    procedure TForm5.Button3Click(Sender: TObject);
    begin
      //调整指定列, 第一个参数 列号 ,第二个参数 内容前后间隔字符数
      AdvStringGrid1.AutoSizeCol(2, 100);
    end;
    
    procedure TForm5.Button4Click(Sender: TObject);
    begin
      AdvStringGrid1.AutoSizeRows(True, 5);
    end;
    
    procedure TForm5.Button5Click(Sender: TObject);
    begin
      AdvStringGrid1.AutoSizeRow(2, 50);
    end;
    
    end.

  • 相关阅读:
    IHttpHandler做文件防盗链接
    使用SQL的全文搜索功能构建 Web 搜索应用程序
    Google 二维条码 API
    Flash Media Server 入门教程
    Janus WinForms Controls Suite v2.0.1000
    如何将数据大容量加载到合并发布中的表(复制 TransactSQL 编程)
    转:CentOS 5.4下的Memcache安装
    转:用php读取xml数据
    HPUX启动和关闭
    目录,文件操作详谈—php
  • 原文地址:https://www.cnblogs.com/del88/p/6829449.html
Copyright © 2020-2023  润新知