grid.pas

themeengine6源码

unit grid;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Grids, te_controls;

type
  TfrmGrid = class(TForm)
    teForm1: TteForm;
    teDrawGrid1: TteDrawGrid;
    teStringGrid1: TteStringGrid;
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmGrid: TfrmGrid;

implementation

{$R *.DFM}

procedure TfrmGrid.FormCreate(Sender: TObject);
var
  i, j: integer;
begin
  for i := 0 to teStringGrid1.ColCount - 1 do
    for j := 0 to teStringGrid1.RowCount - 1 do
      teStringGrid1.Cells[i, j] := 'item ' + IntToStr(i) + ':' + IntToStr(j);
end;

end.