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

#include <vcl.h>
#pragma hdrstop
//---------------------------------------------------------------------------
#include "define.h"
#include "SplashForm.h"
//---------------------------------------------------------------------------
#ifdef LOCK_TEX
#include "Authorization_F.h"
#endif
//---------------------------------------------------------------------------
USEFORM("W:\TexTricot4.1\TpwTest\TexTricot\about.cpp", AboutBox);
USEFORM("W:\TexTricot4.1\TpwTest\TexTricot\GuideBar.cpp", GuideBar_F);
USEFORM("W:\TexTricot4.1\TpwTest\TexTricot\Main_F.cpp", Main);
USEFORM("W:\TexTricot4.1\TpwTest\TexTricot\PrintingForm.cpp", PrintForm);
USEFORM("W:\TexTricot4.1\TpwTest\TexTricot\SplashForm.cpp", splash);
USEFORM("W:\TexTricot4.1\TpwTest\TexTricot\treatment.cpp", Treatment_F);
USEFORM("W:\TexTricot4.1\TpwTest\TexTricot\Viewer.cpp", Viewer_F);
USEFORM("W:\TexTricot4.1\TpwTest\TexTricot\ColorLibrary_F.cpp", ColorLibraryForm);
USEFORM("W:\TexTricot4.1\TpwTest\TexTricot\ColorChart.cpp", ColorChartForm);
USEFORM("W:\TexTricot4.1\TpwTest\TexTricot\UserColor_F.cpp", UserColorLibForm);
USEFORM("W:\TexTricot4.1\TpwTest\TexTricot\PalFileManager.cpp", PFMForm);
USEFORM("W:\TexTricot4.1\TpwTest\TexTricot\UserColorData_F.cpp", UserColorDataForm);
USEFORM("W:\TexTricot4.1\TpwTest\TexTricot\CommonPrint.cpp", CommonPrintForm);
USEFORM("W:\TexTricot4.1\TpwTest\TexTricot\YarnCompositionData.cpp", YarnCompositionData_F);
USEFORM("W:\TexTricot4.1\TpwTest\TexTricot\FileManager_F.cpp", FileManagerForm);
USEFORM("W:\TexTricot4.1\TpwTest\TexTricot\Environment_F.cpp", Environment);
USEFORM("W:\TexTricot4.1\TpwTest\TexTricot\DesignViewForm.cpp", DesignView_F);
USEFORM("W:\TexTricot4.1\TpwTest\TexTricot\ProgressForm.cpp", Progress_F);
USEFORM("W:\TexTricot4.1\TpwTest\TexTricot\FloatingWin.cpp", FloatingWindow);
USEFORM("W:\TexTricot4.1\TpwTest\TexTricot\capture.cpp", CaptureForm);
USEFORM("W:\TexTricot4.1\TpwTest\TexTricot\Simulation_F.cpp", SimulationForm);
USEFORM("W:\TexTricot4.1\TpwTest\TexTricot\Design.cpp", DesignForm);
USEFORM("W:\TexTricot4.1\TpwTest\TexTricot\MetaData_F.cpp", MetaDataForm);
USEFORM("W:\TexTricot4.1\TpwTest\TexTricot\HiddenPrintData_F.cpp", HiddenPrintDataForm);
USEFORM("W:\TexTricot4.1\TpwTest\TexTricot\YarnList_F.cpp", YarnListForm);
USEFORM("W:\TexTricot4.1\TpwTest\TexTricot\SimulationAdvSet_F.cpp", SimulationAdvSetForm);
USEFORM("W:\TexTricot4.1\TpwTest\TexTricot\Cost.cpp", Cost_F);
USEFORM("W:\TexTricot4.1\TpwTest\TexTricot\Yarn\YarnUnit_F.cpp", YarnUnitForm);
USEFORM("W:\TexTricot4.1\TpwTest\TexTricot\Yarn\BaseYarnDesign_F.cpp", BaseYarnDesignForm);
USEFORM("W:\TexTricot4.1\TpwTest\TexTricot\Yarn\YarnRepeat_F.cpp", YarnRepeatForm);
USEFORM("W:\TexTricot4.1\TpwTest\TexTricot\Yarn\YarnTable_F.cpp", YarnTableForm);
USEFORM("W:\TexTricot4.1\TpwTest\TexTricot\YarnArrange\YarnArrange_F.cpp", YarnArrangeForm);
USEFORM("W:\TexTricot4.1\TpwTest\TexTricot\Yarn\YarnDesign_F.cpp", YarnDesignForm);
USEFORM("W:\TexTricot4.1\TpwTest\TexTricot\Yarn\YarnPrint_F.cpp", YarnPrintForm);
USEFORM("W:\TexTricot4.1\TpwTest\TexTricot\ColorInfoView_F.cpp", ColorInfoViewForm);
USEFORM("W:\TexTricot4.1\TpwTest\TexTricot\DTPColorLibrary_F.cpp", DTPColorLibraryForm);
USEFORM("W:\TexTricot4.1\TpwTest\TexTricot\InputMode3Data_F.cpp", InputMode3DataForm);
USEFORM("W:\TexTricot4.1\TpwTest\TexTricot\Palette.cpp", PaletteForm);
USEFORM("W:\TexTricot4.1\TpwTest\TexTricot\Editor.cpp", EditorForm);
USEFORM("W:\TexTricot4.1\TpwTest\TexTricot\YarnLib_F.cpp", YarnLibForm);
USEFORM("W:\TexTricot4.1\TpwTest\TexTricot\Authorization_F.cpp", AuthorizationForm);
//---------------------------------------------------------------------------
WINAPI WinMain(HINSTANCE, HINSTANCE, LPSTR, int)
{
  try
  {
     Application->Initialize();

#ifdef LOCK_TEX
    // DoubleLock - by monkman (2007.08.20)
    AuthorizationForm = new TAuthorizationForm(Application);
    if (AuthorizationForm->Check(false) == true) { // ±âÁ¸¿¡ ÀÎÁõÀÌ µÇ¾ú´ÂÁö üũ
      delete AuthorizationForm;
    }
    else {
      if (AuthorizationForm->ShowModal() == mrOk) { // ÀÎÁõÀ» ¹Þ¾Æ¾ßÇÒ °æ¿ì
        delete AuthorizationForm;
      }
      else {
        delete AuthorizationForm; // ÀÎÁõ Ãë¼Ò½Ã
        return 0;
      }
    }
#endif

     splash = new Tsplash(Application);//Application->CreateForm(__classid(Tsplash), &splash);
     //splash->Show();
     splash->Update();
     Application->Title = "TexTricot";
     Application->CreateForm(__classid(TMain), &Main);
     Application->CreateForm(__classid(TAboutBox), &AboutBox);
     Application->CreateForm(__classid(TGuideBar_F), &GuideBar_F);
     Application->CreateForm(__classid(TTreatment_F), &Treatment_F);
     Application->CreateForm(__classid(TViewer_F), &Viewer_F);
     Application->CreateForm(__classid(TPaletteForm), &PaletteForm);
     Application->CreateForm(__classid(TColorLibraryForm), &ColorLibraryForm);
     Application->CreateForm(__classid(TColorChartForm), &ColorChartForm);
     Application->CreateForm(__classid(TUserColorLibForm), &UserColorLibForm);
     Application->CreateForm(__classid(TYarnCompositionData_F), &YarnCompositionData_F);
     Application->CreateForm(__classid(TEnvironment), &Environment);
     Application->CreateForm(__classid(TProgress_F), &Progress_F);
     Application->CreateForm(__classid(TFloatingWindow), &FloatingWindow);
     Application->CreateForm(__classid(TDesignView_F), &DesignView_F);
     Application->CreateForm(__classid(TCaptureForm), &CaptureForm);
     Application->CreateForm(__classid(TSimulationForm), &SimulationForm);
     Application->CreateForm(__classid(TDesignForm), &DesignForm);
     Application->CreateForm(__classid(TEditorForm), &EditorForm);
     Application->CreateForm(__classid(TYarnLibForm), &YarnLibForm);
     Application->CreateForm(__classid(TMetaDataForm), &MetaDataForm);
     Application->CreateForm(__classid(TYarnListForm), &YarnListForm);
     Application->CreateForm(__classid(TSimulationAdvSetForm), &SimulationAdvSetForm);
     Application->CreateForm(__classid(TCost_F), &Cost_F);
     Application->CreateForm(__classid(TYarnPrintForm), &YarnPrintForm);
     Application->CreateForm(__classid(TYarnTableForm), &YarnTableForm);
     if(IsVivien()){
       #ifdef NO_SIM_VERSION
       Application->Title = PROGRAM_NAME + " " + VERSION + " (Vivien) - Restricted Version";
       #else
       Application->Title = PROGRAM_NAME + " " + VERSION + " (Vivien)";
       #endif
     } else {
       #ifdef NO_SIM_VERSION
       Application->Title = PROGRAM_NAME + " " + VERSION + " - Restricted Version";
       #else
       Application->Title = PROGRAM_NAME + " " + VERSION;
       #endif
     }
     Application->Run();
  }
  catch (Exception &exception)
  {
    Application->ShowException(&exception);
  }
  return 0;
}
//---------------------------------------------------------------------------