main.cpp

themeengine6源码

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

#include <vcl.h>
#pragma hdrstop

#include "Main.h"
#include "About.h"
#include "Menu.h"
#include "ctrls.h"
#include "ctrl2.h"
#include "ctrls3.h"
#include "tbdemo.h"
#include "Form.h"
#include "msgs.h"
#include "shadow.h"
#include "formani.h"
#include "Hint.h"
#include "Edits.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "te_engine"
#pragma link "te_switcher"
#pragma resource "*.dfm"
TfrmMain *frmMain;
//---------------------------------------------------------------------------
__fastcall TfrmMain::TfrmMain(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TfrmMain::CustomItem14Click(TObject *Sender)
{
  //About
  frmAbout = new TfrmAbout(this);
  frmAbout->ShowModal();
  delete frmAbout;
}
//---------------------------------------------------------------------------
void __fastcall TfrmMain::SeSkinButton1Click(TObject *Sender)
{
  //Load Skin
  if (OpenDialog1->Execute()) {
    NgTrackBar1->Position = 0;
    SeSkinCheckBox1->Checked = false;

    SeSkinEngine1->ThemeFile = OpenDialog1->FileName;
  }
}
//---------------------------------------------------------------------------
void __fastcall TfrmMain::NgButton1Click(TObject *Sender)
{
  //Menus
  frmMenu = new TfrmMenu(this);
  frmMenu->ShowModal();
  delete frmMenu;
}
//---------------------------------------------------------------------------
void __fastcall TfrmMain::NgButton2Click(TObject *Sender)
{
  //Controls 1
  frmControls = new TfrmControls(this);
  frmControls->ShowModal();
  delete frmControls;
}
//---------------------------------------------------------------------------
void __fastcall TfrmMain::SeSkinCheckBox1Click(TObject *Sender)
{
  if (SeSkinCheckBox1->Checked) {
    skin = SeSkinEngine1->ThemeFile;
    SeSkinEngine1->ThemeFile = "";
  }
  else
    SeSkinEngine1->ThemeFile = skin;

}
//---------------------------------------------------------------------------
void __fastcall TfrmMain::NgButton3Click(TObject *Sender)
{
  //Controls 2
  frmControls2 = new TfrmControls2(this);
  frmControls2->ShowModal();
  delete frmControls2;
}
//---------------------------------------------------------------------------
void __fastcall TfrmMain::SeSkinButton3Click(TObject *Sender)
{
  //Controls 3
  frmControls3 = new TfrmControls3(this);
  frmControls3->ShowModal();
  delete frmControls3;
}
//---------------------------------------------------------------------------
void __fastcall TfrmMain::SeSkinButton7Click(TObject *Sender)
{
  //TBDemo 3 (Controlbar)
  frmTBDemo = new TfrmTBDemo(this);
  frmTBDemo->ShowModal();
  delete frmTBDemo;
}
//---------------------------------------------------------------------------
void __fastcall TfrmMain::NgTrackBar1Change(TObject *Sender)
{
  SeSkinEngine1->DeltaHue = NgTrackBar1->Position;
}
//---------------------------------------------------------------------------
void __fastcall TfrmMain::NgButton4Click(TObject *Sender)
{
  //Blend Form
  frmForm = new TfrmForm(this);
  frmForm->ShowModal();
  delete frmForm;
}
//---------------------------------------------------------------------------
void __fastcall TfrmMain::SeSkinButton5Click(TObject *Sender)
{
  //Messages
  frmMsg = new TfrmMsg(this);
  frmMsg->ShowModal();
  delete frmMsg;
}
//---------------------------------------------------------------------------
void __fastcall TfrmMain::SeSkinButton6Click(TObject *Sender)
{
  //Shadow
  frmShadow = new TfrmShadow(this);
  frmShadow->ShowModal();
  delete frmShadow;
}
//---------------------------------------------------------------------------
void __fastcall TfrmMain::SeSkinButton2Click(TObject *Sender)
{
  //Animation
  frmAniDemo = new TfrmAniDemo(this);
  frmAniDemo->ShowModal();
  delete frmAniDemo;

}
//---------------------------------------------------------------------------
void __fastcall TfrmMain::SeSkinButton4Click(TObject *Sender)
{
  //Hint
  frmHint = new TfrmHint(this);
  frmHint->ShowModal();
  delete frmHint;

}
//---------------------------------------------------------------------------
void __fastcall TfrmMain::SeSkinButton8Click(TObject *Sender)
{
  //Edit
  frmEdits = new TfrmEdits(this);
  frmEdits->ShowModal();
  delete frmEdits;

}
//---------------------------------------------------------------------------


void __fastcall TfrmMain::CustomItem12Click(TObject *Sender)
{
  ShellExecute(0, "open", "http://www.ksdev.com", NULL, NULL, SW_SHOWNORMAL);        
}
//---------------------------------------------------------------------------


void __fastcall TfrmMain::FormCreate(TObject *Sender)
{
  OpenDialog1->Filter = GetDialogFilter();        
}
//---------------------------------------------------------------------------