unit1.cpp

来自「themeengine6源码」· C++ 代码 · 共 66 行

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

#include <vcl.h>
#pragma hdrstop

#include "Unit1.h"
#include "Unit2.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "te_controls"
#pragma link "te_engine"
#pragma link "te_switcher"
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------

void __fastcall TForm1::CustomItem5Click(TObject *Sender)
{
  Application->Terminate();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::BtnOrderClick(TObject *Sender)
{
  ShellExecute(0, "open", "http://www.ksdev.com/themeengine", NULL, NULL, SW_SHOWNORMAL);
}
//---------------------------------------------------------------------------

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

void __fastcall TForm1::BtnCascadeClick(TObject *Sender)
{
  TeThemeForm1->Cascade();        
}
//---------------------------------------------------------------------------

void __fastcall TForm1::BtnTileClick(TObject *Sender)
{
  TeThemeForm1->Tile();        
}
//---------------------------------------------------------------------------

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

void __fastcall TForm1::CustomItem10Click(TObject *Sender)
{
  String AboutText = "ThemeEngine 3\n\r\n\rCopyright (C) 2001-2002 by Evgeny Kryukov.\n\rFor conditions of distribution and use, see ThemeEngine.chm.\n\rVisit our web site for the latest versions of ThemeEngine:\n\r http://www.ksdev.com/";

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