ctrls5.pas

themeengine6源码

unit ctrls5;

interface

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

type
  TfrmControls6 = class(TForm)
    ImageList2: TImageList;
    ImageList3: TImageList;
    SeSkinSTreeView1: TTeTreeView;
    SeSkinSListView1: TTeListView;
    SeSkinForm1: TTeForm;
    ReportList: TteListView;
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmControls6: TfrmControls6;

implementation

uses main;

{$R *.dfm}

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

end.