adptdemo.pas

来自「themeengine6源码」· PAS 代码 · 共 40 行

unit adptdemo;

interface

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

type
  TfrmAdapterDemo = class(TForm)
    TeForm1: TTeForm;
    TeLabel1: TTeLabel;
    Panel1: TPanel;
    ListView1: TListView;
    ImageList3: TImageList;
    TeButton1: TTeButton;
    TeAdapter1: TTeAdapter;
    procedure TeButton1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmAdapterDemo: TfrmAdapterDemo;

implementation

uses Main, te_adapter_designer;

{$R *.DFM}

procedure TfrmAdapterDemo.TeButton1Click(Sender: TObject);
begin
  ShowAdapterDesigner(TeAdapter1);
end;

end.