mngdemo.pas

themeengine6源码

unit mngdemo;

interface

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

type
  TfrmManagerDemo = class(TForm)
    TeForm1: TTeForm;
    TeLabel1: TTeLabel;
    TeButton1: TTeButton;
    procedure TeButton1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmManagerDemo: TfrmManagerDemo;

implementation

uses Main, te_theme, te_manager_designer;

{$R *.DFM}

procedure TfrmManagerDemo.TeButton1Click(Sender: TObject);
begin
  ShowManagerDesigner(frmMain.TeManager1);
  RepaintThemedControls;
end;

end.