unit1.cpp

来自「BusinessSkinForm教案与实例」· C++ 代码 · 共 32 行

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

#include <vcl.h>
#pragma hdrstop

#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "bsSkinCtrls"
#pragma link "bsSkinData"
#pragma link "BusinessSkinForm"
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------

void __fastcall TForm1::bsSkinRadioGroup1Click(TObject *Sender)
{
  switch (bsSkinRadioGroup1->ItemIndex) {
   case 0: { bsSkinData1->CompressedStoredSkin = BlueMorph; break; }
   case 1: { bsSkinData1->CompressedStoredSkin = ExOS;  break; }
   case 2: { bsSkinData1->CompressedStoredSkin = Circuit; break; }
   case 3: { bsSkinData1->CompressedStoredSkin = Modern; break; }
   case 4: { bsSkinData1->CompressedStoredSkin = Corner;  break; }
  }
}
//---------------------------------------------------------------------------