mainunit.cpp

BussinessSkinForm是Almdev公司(http://www.almdev.com)出品的一套皮肤控件

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

#include <vcl.h>
#pragma hdrstop

#include "MainUnit.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "bsCalendar"
#pragma link "bsColorCtrls"
#pragma link "bsDialogs"
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::LoadSkin1Click(TObject *Sender)
{
  if (OD->Execute()) bsSkinData1->LoadFromFile(OD->FileName);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Noskin1Click(TObject *Sender)
{
  bsSkinData1->ClearSkin();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::bsSkinTreeView1GetImageIndex(TObject *Sender,
      TTreeNode *Node)
{
 if (Node->HasChildren)
    if (Node->Expanded)
      Node->ImageIndex = 3;
    else
      Node->ImageIndex = 0;
  else
    Node->ImageIndex = 1;
}
//---------------------------------------------------------------------------

void __fastcall TForm1::bsSkinTreeView1GetSelectedIndex(TObject *Sender,
      TTreeNode *Node)
{
 Node->SelectedIndex = Node->ImageIndex;       
}
//---------------------------------------------------------------------------


void __fastcall TForm1::bsSkinSpeedButton3Click(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::bsSkinButton4Click(TObject *Sender)
{
 if (bsSkinCalculator1->Execute())
   bsSkinCalcEdit1->Value = bsSkinCalculator1->Value;
}
//---------------------------------------------------------------------------

void __fastcall TForm1::N13Click(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::bsSkinSpeedButton2Click(TObject *Sender)
{
  bsSkinMessage1->MessageDlg("Full analogue of MessageDlg function.",
    mtInformation, TMsgDlgButtons() << mbYes << mbNo << mbOK << mbCancel, 0);
}
//---------------------------------------------------------------------------


void __fastcall TForm1::bsSkinButton18Click(TObject *Sender)
{
  if (bsSkinNotebook1->PageIndex > 0)
   bsSkinNotebook1->PageIndex = bsSkinNotebook1->PageIndex - 1;        
}
//---------------------------------------------------------------------------

void __fastcall TForm1::bsSkinButton19Click(TObject *Sender)
{
 if (bsSkinNotebook1->PageIndex < bsSkinNotebook1->Pages->Count - 1)
  bsSkinNotebook1->PageIndex = bsSkinNotebook1->PageIndex + 1;
}
//---------------------------------------------------------------------------

void __fastcall TForm1::ShowObjectHInt1Click(TObject *Sender)
{
 ShowObjectHInt1->Checked = !-(ShowObjectHInt1->Checked);
  bsBusinessSkinForm1->ShowObjectHint = ShowObjectHInt1->Checked;        
}
//---------------------------------------------------------------------------