unit1.pas

themeengine6源码

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  te_engine, StdCtrls, te_dialogs, te_controls, te_stddialogs;

type
  TForm1 = class(TForm)
    TeThemeEngine1: TTeThemeEngine;
    TeThemeList1: TTeThemeList;
    TeForm1: TTeForm;
    TeOpenThemeDialog1: TTeOpenThemeDialog;
    Log: TTeMemo;
    TeLabel1: TTeLabel;
    TeButton1: TTeButton;
    TeButton2: TTeButton;
    TeSaveDialog1: TTeSaveDialog;
    ColorScheme: TTeListBox;
    TeLabel2: TTeLabel;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure TeButton1Click(Sender: TObject);
    procedure ColorSchemeClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

uses te_version, te_theme, theme_msux;

{$R *.DFM}

type
  THackMS = class(TTeThemeMsStyles);

procedure TForm1.FormCreate(Sender: TObject);
begin
  Caption := 'ThemeEngine ' + SThemeEngineVersion;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  T: TTeTheme;
  MST: TTeThemeMsStyles;
begin
  if TeOpenThemeDialog1.Execute then
  begin
    T := LoadThemeFromFile(TeOpenThemeDialog1.FileName);
    if (T <> nil) and (T is TTeThemeMsStyles) then
    begin
      MST := TTeThemeMsStyles(T);

      ColorScheme.Items.Assign(MST.ColorScheme);
      ColorScheme.ItemIndex := 0;

      ChangeTheme(T);
      Log.Lines.Add(TeOpenThemeDialog1.FileName + ' loaded');
    end
    else
      Log.Lines.Add(TeOpenThemeDialog1.FileName + ' not loaded');
  end;
end;

procedure TForm1.TeButton1Click(Sender: TObject);
var
  S: string;
begin
  if TeSaveDialog1.Execute then
  begin
    if CurrentTheme is TTeThemeMsStyles then
    begin
      S := TeSaveDialog1.FileName;
      SaveThemeToFile(CurrentTheme, S);
      Log.Lines.Add(S + ' saved');
    end;
  end;
end;

procedure TForm1.ColorSchemeClick(Sender: TObject);
var
  MST: TTeThemeMsStyles;
begin
  { Change color scheme }
  if FileExists(TeOpenThemeDialog1.FileName) then
  begin
    MST := TTeThemeMsStyles.Create;
    MST.ColorSchemeIndex := ColorScheme.ItemIndex;
    MST.LoadFromFile(TeOpenThemeDialog1.FileName);
    MST.ThemeName := MST.ThemeName + ' - ' + ColorScheme.Items[ColorScheme.ItemIndex];
    ChangeTheme(MST);
  end;
end;

end.