unit1.cpp

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

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

#include <vcl.h>
#pragma hdrstop

#include "Unit1.h"
#include "Unit2.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "KsSkinControlBars"
#pragma link "KsSkinEngine"
#pragma link "KsSkinForms"
#pragma link "KsSkinItems"
#pragma link "KsSkinMenus"
#pragma link "se_controls"
#pragma link "KsSkinSpeedButtons"
#pragma link "KsSkinToolBars"
#pragma link "ksskinstatusbar"
#pragma link "ksskinmessages"
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------

void __fastcall TForm1::SeSkinSpeedButton1Click(TObject *Sender)
{
  TForm2* Child = new TForm2(this);
  Child->Caption = "MDI Child";
}
//---------------------------------------------------------------------------

void __fastcall TForm1::SeSkinSpeedButton4Click(TObject *Sender)
{
  SeSkinForm1->Cascade();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::SeSkinSpeedButton5Click(TObject *Sender)
{
  SeSkinForm1->Tile();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::CustomItem9Click(TObject *Sender)
{
  Application->Terminate();        
}
//---------------------------------------------------------------------------
void __fastcall TForm1::HomeBtnClick(TObject *Sender)
{
  ShellExecute(0, "open", "http://www.ksdev.com/skinengine", NULL, NULL, SW_SHOWNORMAL);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::OrderBtnClick(TObject *Sender)
{
  ShellExecute(0, "open", "http://www.ksdev.com/order.html", NULL, NULL, SW_SHOWNORMAL);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::CustomItem3Click(TObject *Sender)
{
  String AboutText = "SkinEngine 3\n\r\n\rCopyright (C) 2001-2002 by Evgeny Kryukov.\n\rFor conditions of distribution and use, see SkinEngine.chm.\n\rVisit our web site for the latest versions of SkinEngine:\n\r http://www.ksdev.com/";

  SeSkinMessage1->MessageDlg(AboutText, mtInformation, TMsgDlgButtons() << mbOK, 0);
}
//---------------------------------------------------------------------------