mainunit.cpp

BussinessSkinForm入门教程.doc

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

#include <vcl.h>
#pragma hdrstop

#include "MainUnit.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "bsSkinCtrls"
#pragma link "bsSkinData"
#pragma link "bsTrayIcon"
#pragma link "BusinessSkinForm"
#pragma link "SysUtils"
#pragma resource "*.dfm"
#include "ChildUnit.h"

TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormCreate(TObject *Sender)
{
 AnsiString path;
 count = 0;
 bsBusinessSkinForm1->WindowState = wsMaximized;
 path = ExtractFilePath(ParamStr(0));
 OD->InitialDir = path;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::NewItemClick(TObject *Sender)
{
  count++;
  TChildForm* Child;
  Child = new TChildForm(this);
  Child->Caption = "MDIChild" + IntToStr(count);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::LoadSkinItemClick(TObject *Sender)
{
  if (OD->Execute())
  {
   AnsiString Ext;
   Ext = ExtractFileExt(OD->FileName);
   if (Ext == ".ini")
    bsSkinData1->LoadFromFile(OD->FileName);
   else
   if (Ext == ".bskn")
   bsSkinData1->LoadFromCompressedFile(OD->FileName);
  }
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Noskin1Click(TObject *Sender)
{
 bsSkinData1->ClearSkin();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::CloseItemClick(TObject *Sender)
{
  Close();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::RestoreItemClick(TObject *Sender)
{
 bsBusinessSkinForm1->RestoreAll();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::MaximizeItemClick(TObject *Sender)
{
 bsBusinessSkinForm1->MaximizeAll();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::MinimizeItemClick(TObject *Sender)
{
 bsBusinessSkinForm1->MinimizeAll();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::CloseAll1Click(TObject *Sender)
{
 bsBusinessSkinForm1->CloseAll();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::TileItemClick(TObject *Sender)
{
  bsBusinessSkinForm1->Tile();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::CascadeItemClick(TObject *Sender)
{
 bsBusinessSkinForm1->Cascade();      
}
//---------------------------------------------------------------------------