menu.pas

小区水费管理系统源代码水费收费管理系统 水费收费管理系统

unit menu;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Forms, Controls, Menus,
  Dialogs, se_controls, KsSkinMenus, KsSkinForms, KsSkinItems, KsSkinCheckBoxs,
  KsSkinSpinButtons, KsSkinEdits, KsSkinGroupBoxs, StdCtrls,
  KsSkinSpinEdit, KsSkinComboBoxs, KsSkinLabels, ImgList;

type
  TfrmMenu = class(TForm)
    Label2: TLabel;
    KsBlendGroupBox1: TSeSkinGroupBox;
    Label1: TLabel;
    KsBlendGroupBox2: TSeSkinGroupBox;
    CheckBox1: TSeSkinCheckBox;
    KsBlendCheckBox2: TSeSkinCheckBox;
    KsBlendCheckBox1: TSeSkinCheckBox;
    SeSkinForm1: TSeSkinForm;
    SeSkinMenuBar1: TSeSkinMenuBar;
    File3: TSeSkinItem;
    New3: TSeSkinItem;
    Open3: TSeSkinItem;
    Save3: TSeSkinItem;
    SaveAs3: TSeSkinItem;
    N7: TSeSkinItem;
    Print3: TSeSkinItem;
    PrintSetup3: TSeSkinItem;
    N8: TSeSkinItem;
    Exit3: TSeSkinItem;
    Edit3: TSeSkinItem;
    Undo3: TSeSkinItem;
    Repeatcommand3: TSeSkinItem;
    N10: TSeSkinItem;
    Cut3: TSeSkinItem;
    Copy3: TSeSkinItem;
    Paste3: TSeSkinItem;
    PasteSpecial3: TSeSkinItem;
    N11: TSeSkinItem;
    Find2: TSeSkinItem;
    Replace2: TSeSkinItem;
    Window3: TSeSkinItem;
    NewWindow3: TSeSkinItem;
    Tile3: TSeSkinItem;
    Cascade3: TSeSkinItem;
    ArrangeAll3: TSeSkinItem;
    N13: TSeSkinItem;
    Hide1: TSeSkinItem;
    Show1: TSeSkinItem;
    Help3: TSeSkinItem;
    Contents3: TSeSkinItem;
    SearchforHelpOn3: TSeSkinItem;
    HowtoUseHelp3: TSeSkinItem;
    About3: TSeSkinItem;
    SeSkinPopupMenu1: TSeSkinPopupMenu;
    File3_OLD: TSeSkinItem;
    New3_OLD: TSeSkinItem;
    Open3_OLD: TSeSkinItem;
    Save3_OLD: TSeSkinItem;
    SaveAs3_OLD: TSeSkinItem;
    N7_OLD: TSeSkinItem;
    Print3_OLD: TSeSkinItem;
    PrintSetup3_OLD: TSeSkinItem;
    N8_OLD: TSeSkinItem;
    Exit3_OLD: TSeSkinItem;
    Edit3_OLD: TSeSkinItem;
    Undo3_OLD: TSeSkinItem;
    Repeatcommand3_OLD: TSeSkinItem;
    N10_OLD: TSeSkinItem;
    Cut3_OLD: TSeSkinItem;
    Copy3_OLD: TSeSkinItem;
    Paste3_OLD: TSeSkinItem;
    PasteSpecial3_OLD: TSeSkinItem;
    N11_OLD: TSeSkinItem;
    Find2_OLD: TSeSkinItem;
    Replace2_OLD: TSeSkinItem;
    GoTo2_OLD: TSeSkinItem;
    Window3_OLD: TSeSkinItem;
    NewWindow3_OLD: TSeSkinItem;
    Tile3_OLD: TSeSkinItem;
    Cascade3_OLD: TSeSkinItem;
    ArrangeAll3_OLD: TSeSkinItem;
    N13_OLD: TSeSkinItem;
    Hide1_OLD: TSeSkinItem;
    Show1_OLD: TSeSkinItem;
    Help3_OLD: TSeSkinItem;
    Contents3_OLD: TSeSkinItem;
    SearchforHelpOn3_OLD: TSeSkinItem;
    HowtoUseHelp3_OLD: TSeSkinItem;
    About3_OLD: TSeSkinItem;
    CustomItem1: TSeSkinItem;
    CustomItem2: TSeSkinItem;
    CustomItem3: TSeSkinItem;
    SeSkinEdit1: TSeSkinEdit;
    SeSkinSpinButton1: TSeSkinSpinButton;
    CustomItem4: TSeSkinItem;
    CustomItem5: TSeSkinItem;
    CustomItem6: TSeSkinItem;
    CustomItem7: TSeSkinItem;
    CustomItem8: TSeSkinItem;
    CustomItem9: TSeSkinItem;
    CustomItem10: TSeSkinItem;
    CustomItem11: TSeSkinItem;
    CustomItem12: TSeSkinItem;
    CustomItem13: TSeSkinItem;
    CustomItem14: TSeSkinItem;
    CustomItem15: TSeSkinItem;
    CustomItem16: TSeSkinItem;
    CustomItem17: TSeSkinItem;
    CustomItem18: TSeSkinItem;
    CustomItem19: TSeSkinItem;
    CustomItem20: TSeSkinItem;
    CustomItem21: TSeSkinItem;
    CustomItem22: TSeSkinItem;
    CustomItem23: TSeSkinItem;
    CustomItem24: TSeSkinItem;
    CustomItem25: TSeSkinItem;
    SeSkinGroupBox2: TSeSkinGroupBox;
    SeSkinLabel3: TSeSkinLabel;
    SeSkinComboBox1: TSeSkinComboBox;
    SeSkinSpinEdit1: TSeSkinSpinEdit;
    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 KsSkinVersion, about, Form, Main;

{$R *.DFM}

procedure TfrmMenu.FormCreate(Sender: TObject);
begin
  Caption := 'MegaDemo - ' + sSeSkinVersionPropText;
end;

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

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

procedure TfrmMenu.CustomItem11Click(Sender: TObject);
begin
  ShowMessage('You clicked on ' + TSECustomItem(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.Effect := TkeEffect(SeSkinComboBox1.ItemIndex);
    SeSkinPopupMenu1.PopupMenuOptions.Animation.Effect := TkeEffect(SeSkinComboBox1.ItemIndex);
    SeSkinForm1.SystemMenuOptions.Animation.Effect := TkeEffect(SeSkinComboBox1.ItemIndex);
  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.