hint.cpp

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

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

#include <vcl.h>
#pragma hdrstop

#include "Hint.h"
#include "Main.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "KsSkinCheckBoxs"
#pragma link "KsSkinEdits"
#pragma link "KsSkinForms"
#pragma link "KsSkinGroupBoxs"
#pragma link "KsSkinHints"
#pragma link "KsSkinItems"
#pragma link "KsSkinMenus"
#pragma link "KsSkinSpeedButtons"
#pragma link "KsSkinSpinButtons"
#pragma link "se_controls"
#pragma link "KsSkinCheckBoxs"
#pragma link "KsSkinEdits"
#pragma link "KsSkinForms"
#pragma link "KsSkinGroupBoxs"
#pragma link "KsSkinHints"
#pragma link "KsSkinItems"
#pragma link "KsSkinMenus"
#pragma link "KsSkinSpeedButtons"
#pragma link "KsSkinSpinButtons"
#pragma resource "*.dfm"
TfrmHint *frmHint;
//---------------------------------------------------------------------------
__fastcall TfrmHint::TfrmHint(TComponent* Owner)
        : TForm(Owner)
{
  SeSkinCheckBox1->Checked = frmMain->SeSkinCheckBox1->Checked;
}
//---------------------------------------------------------------------------
void __fastcall TfrmHint::SeSkinCheckBox1Click(TObject *Sender)
{
  frmMain->SeSkinCheckBox1->Checked = SeSkinCheckBox1->Checked;
}
//---------------------------------------------------------------------------
void __fastcall TfrmHint::NgCheckBox1Click(TObject *Sender)
{
  NgHint1->Blending->Enabled = NgCheckBox1->Checked;
}
//---------------------------------------------------------------------------
void __fastcall TfrmHint::NgSpinButton2Changing(TObject *Sender,
      bool &AllowChange)
{
  NgHint1->Shadow->Size = NgSpinButton2->Position;
}
//---------------------------------------------------------------------------
void __fastcall TfrmHint::NgSpinButton1Changing(TObject *Sender,
      bool &AllowChange)
{
  NgHint1->Blending->Value = NgSpinButton1->Position;
}
//---------------------------------------------------------------------------
void __fastcall TfrmHint::NgCheckBox2Click(TObject *Sender)
{
  NgHint1->Shadow->Enabled = NgCheckBox2->Checked;
}
//---------------------------------------------------------------------------