ctrl2.cpp

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

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

#include <vcl.h>
#pragma hdrstop

#include "ctrl2.h"
#include "Main.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "KsSkinButtons"
#pragma link "KsSkinCheckBoxs"
#pragma link "KsSkinForms"
#pragma link "KsSkinGroupBoxs"
#pragma link "KsSkinPanels"
#pragma link "KsSkinSpeedButtons"
#pragma link "KsSkinTabs"
#pragma link "se_controls"
#pragma resource "*.dfm"
TfrmControls2 *frmControls2;
//---------------------------------------------------------------------------
__fastcall TfrmControls2::TfrmControls2(TComponent* Owner)
        : TForm(Owner)
{
  SeSkinCheckBox1->Checked = frmMain->SeSkinCheckBox1->Checked;
}
//---------------------------------------------------------------------------
void __fastcall TfrmControls2::SeSkinCheckBox1Click(TObject *Sender)
{
  frmMain->SeSkinCheckBox1->Checked = SeSkinCheckBox1->Checked;
}
//---------------------------------------------------------------------------
void __fastcall TfrmControls2::KsBlendCheckBox2Click(TObject *Sender)
{
  TabControl->MultiLine = KsBlendCheckBox2->Checked;
  PageControl->MultiLine = KsBlendCheckBox2->Checked;
  PageControl->Realign();
}
//---------------------------------------------------------------------------
void __fastcall TfrmControls2::KsBlendCheckBox3Click(TObject *Sender)
{
  TabControl->ScrollOpposite = KsBlendCheckBox3->Checked;
  PageControl->ScrollOpposite = KsBlendCheckBox3->Checked;
  PageControl->Realign();
}
//---------------------------------------------------------------------------