msgs.cpp

来自「强大的皮肤控件 能做出美观的界面」· C++ 代码 · 共 60 行

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

#include <vcl.h>
#pragma hdrstop

#include "msgs.h"
#include "Main.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "KsSkinButtons"
#pragma link "KsSkinCheckBoxs"
#pragma link "KsSkinEdits"
#pragma link "KsSkinForms"
#pragma link "KsSkinGroupBoxs"
#pragma link "KsSkinListBoxs"
#pragma link "se_controls"
#pragma link "KsSkinButtons"
#pragma link "KsSkinCheckBoxs"
#pragma link "KsSkinEdits"
#pragma link "KsSkinForms"
#pragma link "KsSkinGroupBoxs"
#pragma link "KsSkinListBoxs"
#pragma link "ksskinmessages"
#pragma resource "*.dfm"
TfrmMsg *frmMsg;
//---------------------------------------------------------------------------
__fastcall TfrmMsg::TfrmMsg(TComponent* Owner)
        : TForm(Owner)
{
  SeSkinCheckBox1->Checked = frmMain->SeSkinCheckBox1->Checked;
}
//---------------------------------------------------------------------------
void __fastcall TfrmMsg::NgButton1Click(TObject *Sender)
{
  TMsgDlgButtons Btns;

  for (int i = 0; i<NgListBox1->Items->Count - 1; i++) {
    if (NgListBox1->State[i] == Stdctrls::cbChecked)
    Btns = Btns << (TMsgDlgBtn)i;
  }

  NgMessage1->Shadow->Enabled = NgCheckBox1->Checked;
  NgMessage1->MessageDlg(NgEdit1->Text, TMsgDlgType(NgRadioGroup1->ItemIndex),
    Btns, 0);
}

//---------------------------------------------------------------------------
void __fastcall TfrmMsg::NgCheckBox1Click(TObject *Sender)
{
  frmMain->SeSkinCheckBox1->Checked = SeSkinCheckBox1->Checked;
}
//---------------------------------------------------------------------------

void __fastcall TfrmMsg::SeSkinCheckBox1Click(TObject *Sender)
{
  frmMain->SeSkinCheckBox1->Checked = SeSkinCheckBox1->Checked;
}
//---------------------------------------------------------------------------