menu.pas

themeengine6源码

unit menu;

interface

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

type
  TfrmMenu = class(TForm)
    Label2: TLabel;
    KsBlendGroupBox1: TTeGroupBox;
    Label1: TLabel;
    KsBlendGroupBox2: TTeGroupBox;
    CheckBox1: TTeCheckBox;
    KsBlendCheckBox2: TTeCheckBox;
    KsBlendCheckBox1: TTeCheckBox;
    SeSkinForm1: TTeForm;
    SeSkinMenuBar1: TTeMenuBar;
    File3: TTeItem;
    New3: TTeItem;
    Open3: TTeItem;
    Save3: TTeItem;
    SaveAs3: TTeItem;
    N7: TTeItem;
    Print3: TTeItem;
    PrintSetup3: TTeItem;
    N8: TTeItem;
    Exit3: TTeItem;
    Edit3: TTeItem;
    Undo3: TTeItem;
    Repeatcommand3: TTeItem;
    N10: TTeItem;
    Cut3: TTeItem;
    Copy3: TTeItem;
    Paste3: TTeItem;
    PasteSpecial3: TTeItem;
    N11: TTeItem;
    Find2: TTeItem;
    Replace2: TTeItem;
    Window3: TTeItem;
    NewWindow3: TTeItem;
    Tile3: TTeItem;
    Cascade3: TTeItem;
    ArrangeAll3: TTeItem;
    N13: TTeItem;
    Hide1: TTeItem;
    Show1: TTeItem;
    Help3: TTeItem;
    Contents3: TTeItem;
    SearchforHelpOn3: TTeItem;
    HowtoUseHelp3: TTeItem;
    About3: TTeItem;
    SeSkinPopupMenu1: TTePopupMenu;
    File3_OLD: TTeItem;
    New3_OLD: TTeItem;
    Open3_OLD: TTeItem;
    Save3_OLD: TTeItem;
    SaveAs3_OLD: TTeItem;
    N7_OLD: TTeItem;
    Print3_OLD: TTeItem;
    PrintSetup3_OLD: TTeItem;
    N8_OLD: TTeItem;
    Exit3_OLD: TTeItem;
    Edit3_OLD: TTeItem;
    Undo3_OLD: TTeItem;
    Repeatcommand3_OLD: TTeItem;
    N10_OLD: TTeItem;
    Cut3_OLD: TTeItem;
    Copy3_OLD: TTeItem;
    Paste3_OLD: TTeItem;
    PasteSpecial3_OLD: TTeItem;
    N11_OLD: TTeItem;
    Find2_OLD: TTeItem;
    Replace2_OLD: TTeItem;
    GoTo2_OLD: TTeItem;
    Window3_OLD: TTeItem;
    NewWindow3_OLD: TTeItem;
    Tile3_OLD: TTeItem;
    Cascade3_OLD: TTeItem;
    ArrangeAll3_OLD: TTeItem;
    N13_OLD: TTeItem;
    Hide1_OLD: TTeItem;
    Show1_OLD: TTeItem;
    Help3_OLD: TTeItem;
    Contents3_OLD: TTeItem;
    SearchforHelpOn3_OLD: TTeItem;
    HowtoUseHelp3_OLD: TTeItem;
    About3_OLD: TTeItem;
    CustomItem1: TTeItem;
    CustomItem2: TTeItem;
    CustomItem3: TTeItem;
    SeSkinEdit1: TTeEdit;
    SeSkinSpinButton1: TTeSpinButton;
    CustomItem4: TTeItem;
    CustomItem5: TTeItem;
    CustomItem6: TTeItem;
    CustomItem7: TTeItem;
    CustomItem8: TTeItem;
    CustomItem9: TTeItem;
    CustomItem10: TTeItem;
    CustomItem11: TTeItem;
    CustomItem12: TTeItem;
    CustomItem13: TTeItem;
    CustomItem14: TTeItem;
    CustomItem15: TTeItem;
    CustomItem16: TTeItem;
    CustomItem17: TTeItem;
    CustomItem18: TTeItem;
    CustomItem19: TTeItem;
    CustomItem20: TTeItem;
    CustomItem21: TTeItem;
    CustomItem22: TTeItem;
    CustomItem23: TTeItem;
    CustomItem24: TTeItem;
    CustomItem25: TTeItem;
    SeSkinGroupBox2: TTeGroupBox;
    SeSkinLabel3: TTeLabel;
    SeSkinComboBox1: TTeComboBox;
    SeSkinSpinEdit1: TTeSpinEdit;
    ImageList1: TImageList;
    ImageList2: TImageList;
    procedure FormCreate(Sender: TObject);
    procedure CustomItem7Click(Sender: TObject);
    procedure CustomItem20Click(Sender: TObject);
    procedure CustomItem11Click(Sender: TObject);
    procedure CheckBox1Click(Sender: TObject);
    procedure CustomItem15Click(Sender: TObject);
    procedure KsBlendCheckBox1Click(Sender: TObject);
    procedure KsBlendCheckBox2Click(Sender: TObject);
    procedure SeSkinSpinButton1Changing(Sender: TObject;
      var AllowChange: Boolean);
    procedure SeSkinGroupBox2CheckBoxClick(Sender: TObject);
    procedure SeSkinComboBox1Change(Sender: TObject);
    procedure SeSkinSpinEdit1Changing(Sender: TObject;
      var AllowChange: Boolean);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmMenu: TfrmMenu;

implementation {===============================================================}

uses te_version, te_effect, about, Main;

{$R *.DFM}

procedure TfrmMenu.FormCreate(Sender: TObject);
begin
  Caption := 'MegaDemo - ' + SThemeEngineVersionPropText;
  SeSkinComboBox1.Items := GetEffectList;
end;

procedure TfrmMenu.CustomItem7Click(Sender: TObject);
begin
  frmAbout := TfrmAbout.Create(Self);
  frmAbout.ShowModal;
  frmAbout.Free;
end;

procedure TfrmMenu.CustomItem20Click(Sender: TObject);
begin
  TTeItem(Sender).Checked := not TTeItem(Sender).Checked;
end;

procedure TfrmMenu.CustomItem11Click(Sender: TObject);
begin
  ShowMessage('You clicked on ' + TTeItem(Sender).Caption);
end;

procedure TfrmMenu.CheckBox1Click(Sender: TObject);
begin
  SeSkinMenuBar1.PopupMenuOptions.Blending.Enabled := CheckBox1.Checked;
  SeSkinPopupMenu1.PopupMenuOptions.Blending.Enabled := CheckBox1.Checked;
  SeSkinForm1.SystemMenuOptions.Blending.Enabled := CheckBox1.Checked;
end;

procedure TfrmMenu.CustomItem15Click(Sender: TObject);
begin
  Close;
end;

procedure TfrmMenu.KsBlendCheckBox1Click(Sender: TObject);
begin
  if KsBlendCheckBox1.Checked then
    SeSkinMenuBar1.Align := alBottom
  else
    SeSkinMenuBar1.Align := alTop;
end;

procedure TfrmMenu.KsBlendCheckBox2Click(Sender: TObject);
begin
  SeSkinMenuBar1.PopupMenuOptions.Shadow.Enabled := KsBlendCheckBox2.Checked;
  SeSkinForm1.SystemMenuOptions.Shadow.Enabled := KsBlendCheckBox2.Checked;
  SeSkinPopupMenu1.PopupMenuOptions.Shadow.Enabled := KsBlendCheckBox2.Checked;
end;

procedure TfrmMenu.SeSkinSpinButton1Changing(Sender: TObject;
  var AllowChange: Boolean);
begin
  SeSkinMenuBar1.PopupMenuOptions.Blending.Value := SeSkinSpinButton1.Position;
  SeSkinPopupMenu1.PopupMenuOptions.Blending.Value := SeSkinSpinButton1.Position;
  SeSkinForm1.SystemMenuOptions.Blending.Value := SeSkinSpinButton1.Position;
end;

procedure TfrmMenu.SeSkinGroupBox2CheckBoxClick(Sender: TObject);
begin
  SeSkinMenuBar1.PopupMenuOptions.Animation.Enabled := SeSkinGroupBox2.Checked;
  SeSkinPopupMenu1.PopupMenuOptions.Animation.Enabled := SeSkinGroupBox2.Checked;
  SeSkinForm1.SystemMenuOptions.Animation.Enabled := SeSkinGroupBox2.Checked;
end;

procedure TfrmMenu.SeSkinComboBox1Change(Sender: TObject);
begin
  if SeSkinComboBox1.ItemIndex >= 0 then
  begin
    SeSkinMenuBar1.PopupMenuOptions.Animation.EffectKind := SeSkinComboBox1.Text;
    SeSkinPopupMenu1.PopupMenuOptions.Animation.EffectKind := SeSkinComboBox1.Text;
    SeSkinForm1.SystemMenuOptions.Animation.EffectKind := SeSkinComboBox1.Text;
  end;
end;

procedure TfrmMenu.SeSkinSpinEdit1Changing(Sender: TObject;
  var AllowChange: Boolean);
begin
  SeSkinMenuBar1.PopupMenuOptions.Animation.Time := SeSkinSpinEdit1.AsInteger;
  SeSkinPopupMenu1.PopupMenuOptions.Animation.Time := SeSkinSpinEdit1.AsInteger;
  SeSkinForm1.SystemMenuOptions.Animation.Time := SeSkinSpinEdit1.AsInteger;
end;

end.