//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "SplashForm.h"
USERES("Textile.res");
USEUNIT("..\Common.cpp");
USEUNIT("..\Define.cpp");
USEUNIT("..\Exception.cpp");
USEUNIT("..\File.cpp");
USEUNIT("..\PenObject.cpp");
USEUNIT("..\ProtectCard.cpp");
USEUNIT("..\Rotation.cpp");
USEUNIT("..\TexpiaRandom.cpp");
USEUNIT("..\Texture.cpp");
USEUNIT("..\WorkArea.cpp");
USEFORM("..\about.cpp", AboutBox);
USEFORM("..\AutoRepView.cpp", AutoRepViewForm);
USEFORM("..\AutoSave.cpp", AutoSaveForm);
USEFORM("..\CaptureEdit.cpp", CaptureEditForm);
USEFORM("..\ColorChart.cpp", ColorChartForm);
USEFORM("..\ColorLibrary_F.cpp", ColorLibraryForm);
USEFORM("..\CommonPrint.cpp", CommonPrintForm);
USEFORM("..\Dialog_F.cpp", DialogForm);
USEFORM("..\EnlargeCanvas.cpp", EnlargeCanvasForm);
USEFORM("..\FileManager_F.cpp", FileManagerForm);
USEFORM("..\FullView.cpp", FullViewForm);
USEFORM("..\Grid_F.cpp", GridForm);
USEFORM("..\NewCanvas.cpp", NewCanvasForm);
USEFORM("..\Palette.cpp", PaletteForm);
USEFORM("..\PalFileManager.cpp", PFMForm);
USEFORM("..\ResizeCanvas.cpp", ResizeCanvasForm);
USEFORM("..\SplashForm.cpp", splash);
USEFORM("..\Texture_F.cpp", TextureForm);
USEFORM("..\UserColor_F.cpp", UserColorLibForm);
USEFORM("..\UserColorData_F.cpp", UserColorDataForm);
USEFORM("..\Window.cpp", WindowForm);
USEUNIT("..\CommonTextile\Data3D.cpp");
USEFORM("..\CommonTextile\Environment.cpp", EnvironmentForm);
USEFORM("..\CommonTextile\Fabric3D_F.cpp", Fabric3DForm);
USEFORM("..\CommonTextile\JacPrt.cpp", JacPrtForm);
USEFORM("..\CommonTextile\Menu3D_F.cpp", Menu3DForm);
USEFORM("..\CommonTextile\TPrint_F.cpp", TPrintForm);
USEUNIT("..\Textile\Undo.cpp");
USEFORM("..\Textile\APMenu_F.cpp", APMenuForm);
USEFORM("..\Textile\APTable_F.cpp", APTableForm);
USEFORM("..\Textile\Clear.cpp", ClearForm);
USEFORM("..\Textile\ColorChange_F.cpp", ColorChangeForm);
USEFORM("..\Textile\Combo_F.cpp", ComboMenu);
USEFORM("..\Textile\ComboForm.cpp", ComboForms);
USEFORM("..\Textile\Draw_F.cpp", DrawForm);
USEFORM("..\Textile\Fill_F.cpp", FillForm);
USEFORM("..\Textile\Grouping_F.cpp", GroupingForm);
USEFORM("..\Textile\Jacquard.cpp", JacquardForm);
USEFORM("..\Textile\Layer_F.cpp", LayerForm);
USEFORM("..\Textile\Main.cpp", MainForm);
USEFORM("..\Textile\MainImage.cpp", MainImageForm);
USEFORM("..\Textile\MainMenu.cpp", MainMenuForm);
USEFORM("..\Textile\MoveCopy_F.cpp", MoveCopyForm);
USEFORM("..\Textile\PatternRepeat.cpp", PatternRepeatForm);
USEFORM("..\Textile\PenManager.cpp", PenManagerForm);
USEFORM("..\Textile\Repeat_F.cpp", RepeatForm);
USEFORM("..\Textile\Repro_F.cpp", ReproForm);
USEFORM("..\Textile\Scratch_F.cpp", ScratchForm);
USEFORM("..\Textile\Separate_F.cpp", SeparateForm);
USEFORM("..\Textile\Shadow_F.cpp", ShadowForm);
USEFORM("..\Textile\Smooth_F.cpp", SmoothForm);
USEFORM("..\Textile\SpreadFill.cpp", SpreadFillForm);
USEFORM("..\Textile\Stipple.cpp", StippleForm);
USEFORM("..\CommonTextile\Stitch_F.cpp", StitchForm);
USEFORM("..\Textile\Stripe_F.cpp", StripeForm);
USEFORM("..\Textile\Style_F.cpp", StyleForm);
USEFORM("..\Textile\Text_F.cpp", TextForm);
USEFORM("..\Textile\TexWork_F.cpp", TexWork);
USEFORM("..\Textile\TexWorkPrint_F.cpp", TexWorkPrintForm);
USEFORM("..\Textile\Undo_F.cpp", UndoForm);
USEFORM("..\CommonTextile\ViewPattern_F.cpp", PatternForm);
//---------------------------------------------------------------------------
WINAPI WinMain(HINSTANCE, HINSTANCE, LPSTR, int)
{
  const char mutexname[] = "TexpiaDesignCAD(Textile)";
  HANDLE hMutex;

  try
  {
  	hMutex = OpenMutex(0, false, mutexname);
    if (hMutex==NULL) {
    	hMutex = CreateMutex(NULL, true, mutexname);
    } else {
    	CloseHandle(hMutex);
      ShowMessage("Application already running.");
      return 0;
    }
    Application->Initialize();
    splash = new Tsplash(Application);
    splash->Show();
    splash->Update();
    Application->Title = "Texpro Design CAD System - Textile (Professional)";
    Application->CreateForm(__classid(TMainForm), &MainForm);
    Application->CreateForm(__classid(TAboutBox), &AboutBox);
    splash->Close();
    Application->Run();
  }
  catch (Exception &exception)
  {
    Application->ShowException(&exception);
  }
  ReleaseMutex(hMutex);
  CloseHandle(hMutex);
  return 0;
}
//---------------------------------------------------------------------------