ctrls6.pas

themeengine6源码

unit ctrls6;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,
  Dialogs, ImgList, ComCtrls, te_controls, ksthemestdcontrol, ksthemeforms;

type
  TfrmCtrls6 = class(TForm)
    TeThemeForm1: TTeThemeForm;
    TeThemeSTreeView1: TTeThemeSTreeView;
    TeThemeSListView1: TTeThemeSListView;
    ImageList1: TImageList;
    ImageList2: TImageList;
    ReportList: TTeThemeSListView;
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmCtrls6: TfrmCtrls6;

implementation

uses main;

{$R *.dfm}

procedure TfrmCtrls6.FormCreate(Sender: TObject);
var
  Item: TListItem;
  i: integer;
begin
  ReportList.Items.Clear;
  for i := 0 to 500 do
  begin
    Item := ReportList.Items.Add;
    Item.Caption := 'list item #' + IntToStr(i);
    Item.SubItems.CommaText := 'first subitems,second subitem';
  end;
end;

end.