configdlgu.cpp

来自「《bcb深度历险》 电子书」· C++ 代码 · 共 38 行

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

#include <vcl.h>
#pragma hdrstop

#include <Registry.hpp>

#include "ConfigDlgU.h"
#include "util.h"
#include "xFonts.hpp"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "CSPIN"
#pragma resource "*.dfm"
TConfigDlg *ConfigDlg;
//---------------------------------------------------------------------------
__fastcall TConfigDlg::TConfigDlg(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TConfigDlg::FormClose(TObject *Sender,
      TCloseAction &Action)
{
  if (ModalResult == mrOk) SaveIni();
}
//---------------------------------------------------------------------------

void __fastcall TConfigDlg::trbSpeedChange(TObject *Sender)
{
  lblSpeed->Caption = Format("%d ˙", OPENARRAY(TVarRec, (trbSpeed->Position)));
}
//---------------------------------------------------------------------------
void __fastcall TConfigDlg::LoadIni()
{
  TRegIniFile* r = new TRegIniFile(REGISTRY_KEY);
  try {
    // 砞﹚