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.

  • 相关阅读:
    c# webapi无法获取Session值问题解决
    深入理解java虚拟机之自动内存管理机制笔记
    数据结构总结1
    疯人院之语言、编码、计算机

    集线器/交换机
    什么是DOM?DOM和JavaScript的关系 [web开发]
    JSON轻量级的数据交换格式
    天问宇宙学第一课
    C++基础知识
  • 原文地址:https://www.cnblogs.com/del88/p/6829650.html
Copyright © 2011-2022 走看看