menu.cpp

强大的皮肤控件 能做出美观的界面

//---------------------------------------------------------------------------

#include <vcl.h>
#pragma hdrstop

#include "Menu.h"
#include "About.h"
#include "Main.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "KsSkinCheckBoxs"
#pragma link "KsSkinEdits"
#pragma link "KsSkinForms"
#pragma link "KsSkinGroupBoxs"
#pragma link "KsSkinItems"
#pragma link "KsSkinMenus"
#pragma link "KsSkinSpinButtons"
#pragma link "se_controls"
#pragma link "KsSkinCheckBoxs"
#pragma link "KsSkinEdits"
#pragma link "KsSkinForms"
#pragma link "KsSkinGroupBoxs"
#pragma link "KsSkinItems"
#pragma link "KsSkinMenus"
#pragma link "KsSkinSpinButtons"
#pragma resource "*.dfm"
TfrmMenu *frmMenu;
//---------------------------------------------------------------------------
__fastcall TfrmMenu::TfrmMenu(TComponent* Owner)
        : TForm(Owner)
{
  Caption = "MegaDemo - " + (String)sSeSkinVersionPropText;
  SeSkinCheckBox1->Checked = frmMain->SeSkinCheckBox1->Checked;
}
//---------------------------------------------------------------------------

void __fastcall TfrmMenu::KsBlendRadioButton1Click(TObject *Sender)
{
/*  SeSkinMenuBar1->Animation->Effect = kaNone;
  SeSkinForm1->SysMenuShowAnimation = kaNone;
  SeSkinPopupMenu1->ShowAnimation = kaNone; */
}

//---------------------------------------------------------------------------
void __fastcall TfrmMenu::KsBlendRadioButton2Click(TObject *Sender)
{
/*  SeSkinMenuBar1->ShowAnimation = kaFade;
  SeSkinForm1->SysMenuShowAnimation = kaFade;
  SeSkinPopupMenu1->ShowAnimation = kaFade; */
}

//---------------------------------------------------------------------------
void __fastcall TfrmMenu::KsBlendRadioButton3Click(TObject *Sender)
{
/*  SeSkinMenuBar1->ShowAnimation = kaSlide;
  SeSkinForm1->SysMenuShowAnimation = kaSlide;
  SeSkinPopupMenu1->ShowAnimation = kaSlide; */
}

//---------------------------------------------------------------------------
void __fastcall TfrmMenu::KsBlendRadioButton4Click(TObject *Sender)
{
/*  SeSkinMenuBar1->ShowAnimation = kaRect;
  SeSkinForm1->SysMenuShowAnimation = kaRect;
  SeSkinPopupMenu1->ShowAnimation = kaRect; */
}

//---------------------------------------------------------------------------
void __fastcall TfrmMenu::CheckBox1Click(TObject *Sender)
{
/*  SeSkinMenuBar1->PopupBlend = CheckBox1->Checked;
  SeSkinPopupMenu1->PopupBlend = CheckBox1->Checked;
  SeSkinForm1->SysMenuBlend = CheckBox1->Checked; */
}

//---------------------------------------------------------------------------
void __fastcall TfrmMenu::SeSkinSpinButton1Changing(TObject *Sender,
      bool &AllowChange)
{
/*  SeSkinMenuBar1->PopupBlendValue = SeSkinSpinButton1->Position;
  SeSkinPopupMenu1->PopupBlendValue = SeSkinSpinButton1->Position;
  SeSkinForm1->SysMenuBlendValue = SeSkinSpinButton1->Position; */
}

//---------------------------------------------------------------------------
void __fastcall TfrmMenu::KsBlendCheckBox1Click(TObject *Sender)
{
  if (KsBlendCheckBox1->Checked)
    SeSkinMenuBar1->Align = alBottom;
  else
    SeSkinMenuBar1->Align = alTop;
}
//---------------------------------------------------------------------------

void __fastcall TfrmMenu::KsBlendCheckBox2Click(TObject *Sender)
{
/*  SeSkinMenuBar1->DropShadow = KsBlendCheckBox2->Checked;
  SeSkinForm1->SysMenuDropShadow = KsBlendCheckBox2->Checked;
  SeSkinPopupMenu1->DropShadow = KsBlendCheckBox2->Checked; */
}
//---------------------------------------------------------------------------

void __fastcall TfrmMenu::About3Click(TObject *Sender)
{
  //About
  frmAbout = new TfrmAbout(this);
  frmAbout->ShowModal();
  delete frmAbout;
}
//---------------------------------------------------------------------------

void __fastcall TfrmMenu::Exit3Click(TObject *Sender)
{
  Close();
}
//---------------------------------------------------------------------------

void __fastcall TfrmMenu::SeSkinCheckBox1Click(TObject *Sender)
{
  frmMain->SeSkinCheckBox1->Checked = SeSkinCheckBox1->Checked;
}
//---------------------------------------------------------------------------