zoukankan      html  css  js  c++  java
  • AdvStringGrid 复选框、goRowSelect

    var
      I: Integer;
    begin
      for I := 1 to 48 do
      begin
        AdvStringGrid1.AddCheckBox(0, I, True, True);
        AdvStringGrid1.Cells[1,I] := '第二列' + I.ToString;
        AdvStringGrid1.Cells[2,I] := '第三列' + I.ToString;
      end;
    end;

    但是你会发现,checkbox再单元的左侧了,想居中 怎么办,经过研究发现了advstring自身的一处bug,复选框是写死在左侧的。

    我修改下官方的源码,让其写死居中就可了。

    procedure TForm5.Button3Click(Sender: TObject);
    var
      I: Integer;
    begin
      for I := 1 to 48 do
      begin
        AdvStringGrid1.ColWidths[0] := 50; //改变第一列的宽度。
        AdvStringGrid1.AddCheckBox(0, I, True, True);
        AdvStringGrid1.Cells[1,I] := '第二列' + I.ToString;
        AdvStringGrid1.Cells[2,I] := '第三列' + I.ToString;
      end;
    end;

    unit Unit5;
    
    interface
    
    uses
      Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
      Vcl.Controls, Vcl.Forms, Vcl.Dialogs, AdvUtil, AdvObj, BaseGrid, AdvGrid,
      RzGrids, Vcl.Grids, Vcl.StdCtrls, Vcl.ComCtrls, cxGraphics, cxControls,
      cxLookAndFeels, cxLookAndFeelPainters, dxSkinsCore, dxSkinBlack, dxSkinBlue,
      dxSkinBlueprint, dxSkinCaramel, dxSkinCoffee, dxSkinDarkRoom, dxSkinDarkSide,
      dxSkinDevExpressDarkStyle, dxSkinDevExpressStyle, dxSkinFoggy,
      dxSkinGlassOceans, dxSkinHighContrast, dxSkiniMaginary, dxSkinLilian,
      dxSkinLiquidSky, dxSkinLondonLiquidSky, dxSkinMcSkin, dxSkinMetropolis,
      dxSkinMetropolisDark, dxSkinMoneyTwins, dxSkinOffice2007Black,
      dxSkinOffice2007Blue, dxSkinOffice2007Green, dxSkinOffice2007Pink,
      dxSkinOffice2007Silver, dxSkinOffice2010Black, dxSkinOffice2010Blue,
      dxSkinOffice2010Silver, dxSkinOffice2013DarkGray, dxSkinOffice2013LightGray,
      dxSkinOffice2013White, dxSkinOffice2016Colorful, dxSkinOffice2016Dark,
      dxSkinPumpkin, dxSkinSeven, dxSkinSevenClassic, dxSkinSharp, dxSkinSharpPlus,
      dxSkinSilver, dxSkinSpringTime, dxSkinStardust, dxSkinSummer2008,
      dxSkinTheAsphaltWorld, dxSkinsDefaultPainters, dxSkinValentine,
      dxSkinVisualStudio2013Blue, dxSkinVisualStudio2013Dark,
      dxSkinVisualStudio2013Light, dxSkinVS2010, dxSkinWhiteprint,
      dxSkinXmas2008Blue, cxContainer, cxEdit, cxListView, AdvListV, RzListVw;
    
    type
      TForm5 = class(TForm)
        AdvStringGrid1: TAdvStringGrid;
        Button3: TButton;
        Button1: TButton;
        Button2: TButton;
        Button4: TButton;
        procedure Button3Click(Sender: TObject);
        procedure Button1Click(Sender: TObject);
        procedure Button2Click(Sender: TObject);
        procedure Button4Click(Sender: TObject);
      private
        { Private declarations }
      public
        { Public declarations }
      end;
    
      TPerson = record
    
      end;
    
    var
      Form5: TForm5;
    
    implementation
    
    {$R *.dfm}
    
    uses qjson;
    
    procedure TForm5.Button1Click(Sender: TObject);
    begin
      AdvStringGrid1.CheckAll(0);
    end;
    
    procedure TForm5.Button2Click(Sender: TObject);
    begin
      AdvStringGrid1.UnCheckAll(0);
    end;
    
    procedure TForm5.Button3Click(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;
    end;
    
    procedure TForm5.Button4Click(Sender: TObject);
    var
      I: Integer;
      MyList: TStringList;
      checkState: TCheckBoxState;
    begin
      MyList := TStringList.Create;
      //第0行是固定的标题头,跳过所以从1开始 1..49
      for I := 1 to AdvStringGrid1.RowCount - 1 do
      begin
        AdvStringGrid1.GetCheckBoxState(0, I, checkState);
        if checkState = cbChecked then
        begin
          MyList.Add(AdvStringGrid1.Cells[1,I]);
        end;
      end;
      ShowMessage(MyList.Text);
      MyList.Free;
    end;
    
    end.

  • 相关阅读:
    fatal: unable to access ‘https://github.com/Homebrew/brew/‘: Error in the HTTP2 framing layer
    leetcode题目两数和、最大字符串长度、中位数、最长回文子串
    zabbix5.x版本添加自定义监控+263邮件报警
    php过滤特殊字符方法
    js中e相关位置
    少有人走的路-心智成熟的旅程-斯科特·派克
    ios脱壳
    docker 容器开机自启
    Java8 Stream的使用
    Entity Frameworker 的核心 EDM(Entity Data Model)模式
  • 原文地址:https://www.cnblogs.com/del88/p/6829650.html
Copyright © 2011-2022 走看看