root/trunk/Loader.cpp

///////////////////////////////////////////////////////////
//                        TexGen                         //
//          утилита для подготовки текстур рельефа       //
//               для игры Проклятые Земли                //
//           Copyright (C) 2007-2008 Gipat Group         //
//              Распространяется на условиях             //
//    Gipat Group's opened EI-editor-utility license     //
//                      версии 1.0                       //
//                                                       //
//                  www.gipatgroup.org                   //
///////////////////////////////////////////////////////////

//К работе над данным файлом приложили руки, ноги.... короче аффтары:
// 1) Снайпер (sniper-rifle@rambler.ru)

////////////////////////////////////////////////////////////////////////

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

#include <vcl.h>
#pragma hdrstop

#include "Loader.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TFormLoader *FormLoader;
//---------------------------------------------------------------------------
__fastcall TFormLoader::TFormLoader(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TFormLoader::TimerTimer(TObject *Sender)
{
  Timer->Enabled = false;
  ShowForm(true);
}
//---------------------------------------------------------------------------
void __fastcall TFormLoader::FormCreate(TObject *Sender)
{
  CConfigFile *C = new CConfigFile();
  ProgDir = ExtractFilePath(Application->ExeName);
  C->LoadConfig(ProgDir+"TexGen.ini");
  Configure(C); //Проверить наличие нужных папок, создать, если нужно.
  if(C->GetComment() == "")C->SetComment("//Вот такой вот идиоцкий файл приходецо генерить каждый раз...");

  if(C->GetValueEx("Main","FirstLoad","1")=="1")
  {
    Timer->Enabled = true;
    C->SetValue("Main","FirstLoad","0");
    C->SaveConfig(ProgDir+"TexGen.ini");
  }
  else
  {
    ShowForm();
  }
}
//---------------------------------------------------------------------------
void TFormLoader::ShowForm(bool B)
{
  Application->CreateForm(__classid(TG), &G);
  if(B)G->ShowModal();
  Close();
}
//---------------------------------------------------------------------------
void TFormLoader::Configure(CConfigFile *C)
{
  bool SetsExists, MasksExists, OutputExists;
  //1. Проверяем наличие папок по умолчанию
  SetsExists = DirectoryExists(C->GetValueEx("Main","TileSetsDir",ProgDir+"Collections\\"));
  MasksExists = DirectoryExists(C->GetValueEx("Main","MasksDir",ProgDir+"Masks\\"));
  OutputExists = DirectoryExists(C->GetValueEx("Main","OutputDir",ProgDir+"Output\\"));

  //2. Если папка не существует - проверяем дефолтную.
  if(!SetsExists)
    SetsExists = DirectoryExists(ProgDir+"Collections\\");
  else
    C->SetValue("Main","TileSetsDir",ProgDir+"Collections\\");

  if(!MasksExists)
    MasksExists = DirectoryExists(ProgDir+"Masks\\");
  else
    C->SetValue("Main","MasksDir",ProgDir+"Masks\\");

  if(!OutputExists)
    OutputExists = DirectoryExists(ProgDir+"Output\\");
  else
    C->SetValue("Main","OutputDir",ProgDir+"Output\\");

  //3. Если и это не существует - создаём папки.
  if(!SetsExists)
  {
    CreateDir(ProgDir+"Collections\\");
    C->SetValue("Main","TileSetsDir",ProgDir+"Collections\\");
  }
  if(!MasksExists)
  {
    CreateDir(ProgDir+"Masks\\");
    C->SetValue("Main","MasksDir",ProgDir+"Masks\\");
  }
  if(!OutputExists)
  {
    CreateDir(ProgDir+"Output\\");
    C->SetValue("Main","OutputDir",ProgDir+"Output\\");
  }
}
//---------------------------------------------------------------------------