//---------------------------------------------------------------------------
#include <vcl.h>
#include <Registry.hpp>
#pragma hdrstop

#include "SplashForm.h"
#include "Define.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
Tsplash *splash;
//---------------------------------------------------------------------------
__fastcall Tsplash::Tsplash(TComponent* Owner)
  : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall Tsplash::CreateParams(TCreateParams &Params)
{
  TForm::CreateParams(Params);
  Params.Style &= ~WS_CAPTION;
}
//---------------------------------------------------------------------------
void __fastcall Tsplash::FormClose(TObject *Sender, TCloseAction &Action)
{
  Action = caFree;
}
//---------------------------------------------------------------------------
void __fastcall Tsplash::FormCreate(TObject *Sender)
{
  AnsiString str;
	TRegIniFile *RegIniFile = NULL;

  AnsiString Regeditdir;
	TRegIniFile *RegeditDIR;
 	RegeditDIR = new TRegIniFile(RegFilename);
  RegeditDIR->RootKey = HKEY_LOCAL_MACHINE;
  RegeditDIR->OpenKey(RegFilename,true);
  Regeditdir = RegeditDIR->ReadString("Directory", "Defaultdir", "C:\\Program Files\\YoungWoo\\Tex3D"+Tex3DVersion );
  delete RegeditDIR;
  DefaultDir = Regeditdir;

 	RegIniFile = new TRegIniFile(RegFilename);
  RegIniFile->RootKey = HKEY_LOCAL_MACHINE;
  RegIniFile->OpenKey(RegFilename,true);
  if (RegIniFile) {
  	str = RegIniFile->ReadString("Directory", "Bin", DefaultDir + "\\Bin");
  	delete RegIniFile;
  } else str = DefaultDir + "\\Bin";
#if defined(TEXTILE)
  #if defined(CARPET)
    str = str + "\\carpet";
  #else
    //str = str + "\\textile";
  #endif
#elif defined(WEAVE)
		str = str + "\\weave";
#elif defined(KNIT)
		str = str + "\\knit";
#elif defined(PILE)
    str = str + "\\pile";
#endif
  imgSplash->Picture->LoadFromFile(str + "\\splash.bmp");
  Height = imgSplash->Picture->Height;
  Width = imgSplash->Picture->Width;
}
//---------------------------------------------------------------------------



/*
//---------------------------------------------------------------------------
#include <vcl.h>
#include <Registry.hpp>
#include <stdio.h>
#pragma hdrstop

#include "SplashForm.h"
#include "Define.h"
#include "Notice_F.h"
#include "ProtectCard.h"
#include "Common.h"
#include "Exception.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
Tsplash *splash;
//---------------------------------------------------------------------------
__fastcall Tsplash::Tsplash(TComponent* Owner)
  : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall Tsplash::CreateParams(TCreateParams &Params)
{
  TForm::CreateParams(Params);
  Params.Style &= ~WS_CAPTION;
}
//---------------------------------------------------------------------------
void __fastcall Tsplash::FormClose(TObject *Sender, TCloseAction &Action)
{
  Action = caFree;
}
//---------------------------------------------------------------------------
void __fastcall Tsplash::FormCreate(TObject *Sender)
{
  AnsiString str;
  int Items;
	TRegIniFile *RegIniFile = NULL;

  AnsiString Regeditdir;
	TRegIniFile *RegeditDIR;
 	RegeditDIR = new TRegIniFile(RegFilename);
  RegeditDIR->RootKey = HKEY_LOCAL_MACHINE;
  RegeditDIR->OpenKey(RegFilename + "\\",true);   // yw
  Regeditdir = RegeditDIR->ReadString("Directory", "Defaultdir", DefaultDir );    // yw
  delete RegeditDIR;
  DefaultDir = Regeditdir;

 	RegIniFile = new TRegIniFile(RegFilename);
  RegIniFile->RootKey = HKEY_LOCAL_MACHINE;
  RegIniFile->OpenKey(RegFilename + "\\",true);   // yw
  if (RegIniFile) {
  	str = RegIniFile->ReadString("Directory", "Bin", DefaultDir + "\\Bin");
  	delete RegIniFile;
  } else str = DefaultDir + "\\Bin";
#if defined(TEXTILE)
  #if defined(CARPET)
    str = str + "\\carpet";
  #else
    str = str + "\\textile";
  #endif
#elif defined(WEAVE)
		str = str + "\\weave";
#elif defined(KNIT)
		str = str + "\\knit";
#elif defined(PILE)
    str = str + "\\pile";
#endif

  imgSplash->Picture->LoadFromFile(str + "\\splash.bmp");

  Height = imgSplash->Picture->Height;
  Width = imgSplash->Picture->Width;


////////////////////////////////////////////////////////////////////////////////
/////////////// HASP EDUCATION À϶§ °æ°í â ¶ç¿ì±â /////////////////////////////
////////////////////////////////////////////////////////////////////////////////
#if defined(LOCK_CRYPKEY)
#elif defined(LOCK_IFC)
#else
  TPException ec = EC_NONE;
  AnsiString pw;

  AnsiString Regeditlanguage;
	TRegIniFile *RegeditLanguage;

 	RegeditLanguage = new TRegIniFile(RegFilename);
  RegeditLanguage->RootKey = HKEY_LOCAL_MACHINE;
  RegeditLanguage->OpenKey(RegFilename + "\\",true);
  Regeditlanguage = RegeditLanguage->ReadString("Common", "language", "");
  delete RegeditLanguage;

  if(Regeditlanguage != "Hangul"){
   	RegIniFile = new TRegIniFile(RegFilename);
    RegIniFile->RootKey = HKEY_LOCAL_MACHINE;
    RegIniFile->OpenKey(RegFilename + "\\",true);   // yw
    if (RegIniFile) {
      pw = RegIniFile->ReadString("Common", "Serial", "");
      sscanf(pw.c_str(), "%d-%d-%d-%d", &Password[0], &Password[1], &Password[2], &Password[3]);
     	delete RegIniFile;
    }

	  if ((ProtectCard = new TProtectCard)==NULL) { ec = EC_INTERFACE_NONE; goto fail; }
    Items = ProtectCard->Init(Password);
    switch (Items >> 14) {
      case 1: NOTICE = new TNOTICE(this);
              if (NOTICE->ShowModal() == mrOk) {
                delete NOTICE;
              }
              break;
    }
    delete ProtectCard;
  }
  return;
fail:
  EXCEPTION_MESSAGE_OK(ec);
#endif
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
}
//---------------------------------------------------------------------------
*/