view/CopalPro/KCopalConfig.cpp

//---------------------------------------------------------------------------
// Copal のコンフィグ情報を保持するクラス
// 定義ファイルも管理する
//---------------------------------------------------------------------------
#include <vcl.h>
#include <Inifiles.hpp>
#include <filectrl.hpp>
#pragma hdrstop


#include "KCopalConfig.h"
#include "Main.h"
#pragma package(smart_init)


const char *HotKeyIDStr = "CopalHotKey";

//---------------------------------------------------------------------------
/**
 * コンストラクタ
 * デフォルトフォルダをうけとる
 */
KCopalConfig::KCopalConfig(AnsiString _DefaultPath) {
  //初期化
  DefaultPath = _DefaultPath;
  FileName = DefaultPath +"CopalPro.cfg";
  DefFilesPath = DefaultPath +"defs\\";
  HelpFile = DefaultPath +"CopalPro.hlp";//ヘルプファイル
  ShortCutKeyFile = DefaultPath +"CopalPro.key";//ショートカットキーファイル

  LastDroppedFiles = "";
  SaveResultFile = "";


  //その他初期化
  bUseHotKey = false;
  AutoRefresh = false;
  ReadOnly = false;
  UseCGI = false;
  HotKey = 0;
  DefaultCode = CM_AUTOSELECT;
  TabWidth = DefaultTabWidth;

  DefFileList = new TList;
}
//---------------------------------------------------------------------------
/**
 * デストラクタ
 */
KCopalConfig::~KCopalConfig(void) {
  UnsetHotKey();
  delete DefFileList;
}
//---------------------------------------------------------------------------
/**
 * コンフィグデータの保存
 * ウィンドウ情報以外を保存する
 */
void
KCopalConfig::Save(void) {
  SaveAllDefConfig();

  TIniFile *IniFile = new TIniFile(FileName);

  //現在の言語を保存
  IniFile->WriteString("Environment","Language",CurrentLanguage->LangName);

  //エディタ情報
  IniFile->WriteString("Environment","Editor",Editor);
  IniFile->WriteBool("Environment","UseDoubleQuotes",UseDoubleQuotes);

  //タグジャンプ
  IniFile->WriteBool("Environment","UseTagJump",UseTagJump);
  IniFile->WriteString("Environment","TagJumpText",TagJumpText);

  //DOS窓での実行
  IniFile->WriteString("Environment","TempBat",TempBat);
  IniFile->WriteBool("Environment","UsePause",UsePause);

  //ホットキー
  IniFile->WriteBool("Environment","UseHotKey",bUseHotKey);
  IniFile->WriteInteger("Environment","HotKey",(int)HotKey);

  //オートリフレッシュ
  IniFile->WriteBool("Environment","AutoRefresh",AutoRefresh);
  IniFile->WriteBool("Environment","ReadOnlyWhenAutoRefresh",ReadOnlyWhenAutoRefresh);

  //CGI設定
  IniFile->WriteString("Environment","TempHtml",TempHtml);
  IniFile->WriteBool("Environment","CutHead",CutHead);

  //文字コードの指定
  IniFile->WriteInteger("Environment","DefaultCode",GetCodeMode());

  //ファイルヒストリの保存
  FMain->SaveHistory(IniFile);

  //その他
  IniFile->WriteBool("Others","MemoryFileWhenDropped",MemoryFileWhenDropped);
  IniFile->WriteBool("Others","ChangeCurrentDirOnDrop",ChangeCurrentDirOnDrop);
  IniFile->WriteBool("Others","DontChangeDirFromDesktop",DontChangeDirFromDesktop);
  IniFile->WriteBool("Others","FEditorStayOnTop",FEditor->isStayOnTop());

  delete IniFile;
}
//---------------------------------------------------------------------------
/**
 * コンフィグデータの保存
 * ウィンドウ情報も込みで保存する
 * 終了時に呼ばれる
 */
void
KCopalConfig::Save(CONFIGSAVEPARAM csp) {

  TIniFile *IniFile = new TIniFile(FileName);
  //ウィンドウ情報を保存
  IniFile->WriteBool("Window","Maximized",csp.Maximized);
  IniFile->WriteInteger("Window","Height",csp.Height);
  IniFile->WriteInteger("Window","Width",csp.Width);
  delete IniFile;
  Save();

}
//---------------------------------------------------------------------------
/**
 * コンフィグデータの読み込み
 */
void
KCopalConfig::Load(void) {
  TIniFile *IniFile = new TIniFile(FileName);

  AnsiString LangName = IniFile->ReadString("Environment","Language","Perl");
  SearchByName(LangName);

  //エディタ情報を読み込む
  Editor = IniFile->ReadString("Environment","Editor","notepad.exe");
  UseDoubleQuotes = IniFile->ReadBool("Environment","UseDoubleQuotes",false);

  //タグジャンプ
  UseTagJump = IniFile->ReadBool("Environment","UseTagJump",false);
  TagJumpText = IniFile->ReadString("Environment","TagJumpText","");

  //DOS窓での実行
  TempBat = IniFile->ReadString("Environment","TempBat","temp.bat");
  UsePause = IniFile->ReadBool("Environment","UsePause",false);

  //ホットキー
  bUseHotKey = IniFile->ReadBool("Environment","UseHotKey",false);
  HotKey = (TShortCut)IniFile->ReadInteger("Environment","HotKey",0);
  ChangeHotKey(bUseHotKey,HotKey);

  //オートリフレッシュ
  AutoRefresh = IniFile->ReadBool("Environment","AutoRefresh",false);
  ReadOnlyWhenAutoRefresh = IniFile->ReadBool("Environment","ReadOnlyWhenAutoRefresh",false);


  //ウィンドウ情報を読み込む
  Maximized = IniFile->ReadBool("Window","Maximized",false);

  FMain->Width = IniFile->ReadInteger("Window","Width",600);
  FMain->Height = IniFile->ReadInteger("Window","Height",400);

  //CGI設定
  TempHtml = IniFile->ReadString("Environment","TempHtml","temp.html");
  CutHead = IniFile->ReadBool("Environment","CutHead",true);

  //文字コードの指定
  DefaultCode = IniFile->ReadInteger("Environment","DefaultCode",-1);

  //ファイルヒストリの読み込み
  FMain->LoadHistory(IniFile);

  //その他
  MemoryFileWhenDropped = IniFile->ReadBool("Others","MemoryFileWhenDropped",false);
  ChangeCurrentDirOnDrop = IniFile->ReadBool("Others","ChangeCurrentDirOnDrop",false);
  DontChangeDirFromDesktop = IniFile->ReadBool("Others","DontChangeDirFromDesktop",false);
  FEditorStayOnTop = IniFile->ReadBool("Others","FEditorStayOnTop",false);

  delete IniFile;
}
//---------------------------------------------------------------------------
// 定義ファイルの管理
//---------------------------------------------------------------------------
/**
 * 定義ファイルを新たに作る
 */
void
KCopalConfig::CreateDefConfig(AnsiString LangName,AnsiString LangPath) {
  AnsiString FileName = DefFilesPath+LangName+".def";
  KDefConfig *dc = new KDefConfig(FileName,LangName,LangPath);
  AddDefConfig(dc);
  ChangeLanguage(dc);
  ShowMessage(LangName + "　を追加しました。\n 詳細設定は設定メニューの言語別設定から行ってください");
}
//---------------------------------------------------------------------------
/**
 * 定義ファイルを保存する
 */
void
KCopalConfig::SaveAllDefConfig(void) {
  for(int i=0;i<GetDefConfigCount();i++) {
    GetDefConfigAt(i)->SaveToFile();
  }
}
//---------------------------------------------------------------------------
/**
 * 定義ファイルを加える
 */
void
KCopalConfig::AddDefConfig(KDefConfig *DefConfig) {
  DefFileList->Add(DefConfig);
}
//---------------------------------------------------------------------------
/**
 * 定義ファイルを削除する
 */
void
KCopalConfig::DeleteDefConfigAt(int index) {
  KDefConfig *dc = GetDefConfigAt(index);
  delete dc;
  DefFileList->Delete(index);
}
//---------------------------------------------------------------------------
/**
 * 定義ファイルを全て削除する
 */
void
KCopalConfig::DeleteAllDefConfig(void) {
  for(int i=0;GetDefConfigCount()!=0;i++) {
    DeleteDefConfigAt(0);
  }
}
//---------------------------------------------------------------------------
/**
 * DefFilesPathのフォルダから定義ファイルを探す
 * 探したファイルはnewしてリストに加える
 */
void
KCopalConfig::SearchDefFiles(void) {
  //DEFファイルを検索する
  TStringList *st1= new TStringList;

  //もしdefフォルダが無ければ作成
  if(!FileExists(DefFilesPath)) {
    CreateDir(DefFilesPath);
  }

  TSearchRec sr;
  if(FindFirst(DefFilesPath+"*.def", faAnyFile, sr)==0) {
    KDefConfig *dc = new KDefConfig(DefFilesPath + sr.Name);
    AddDefConfig(dc);
    while(FindNext(sr)==0) {
      dc = new KDefConfig(DefFilesPath + sr.Name);
      AddDefConfig(dc);
    }
    FindClose(sr);
  }
  delete st1;

  //もし定義ファイルが無ければ、デフォルトのファイルを作成する
  if(GetDefConfigCount()==0) {
    ShowMessage("Def Files are not found. Use default Settings.");
    KDefConfig *dc = new KDefConfig(DefFilesPath + "perl.def");
    AddDefConfig(dc);
  }

  //念のため、CurrentLanguageを指定しておく
  ChangeLanguage(GetDefConfigAt(0));
}
//---------------------------------------------------------------------------
/**
 * 現在指定されている言語を変更する
 */
void
KCopalConfig::ChangeLanguage(KDefConfig *df) {
  CurrentLanguage = df;
}
//---------------------------------------------------------------------------
bool
isDirectoryExists(LPCTSTR filename) {
  WIN32_FIND_DATA ffd;

  // 指定されたファイル名と一致するファイルを検索
  HANDLE hFindFile = FindFirstFile(filename, &ffd);

  // ファイルハンドルが無効
  if (hFindFile != INVALID_HANDLE_VALUE) {
    // 検索ハンドルをクローズ
    // (hFindFile が INVALID_HANDLE_VALUE ならハンドルをクローズ
    // する必要はない。)
    FindClose(hFindFile);

    // ディレクトリかどうかをチェック
    if (ffd.dwFileAttributes & FILE_ATTRIBUTE_DIRECTORY) {
      return TRUE;
    }
  }
  return false;
}
//---------------------------------------------------------------------------
/**
 * 実行可能かチェック
 */
bool
KCopalConfig::CheckPath(void) {

  // 実行可能ファイルがあるかチェック

  if(!FileExists(GetExePath())) {
    ShowMessage("File "+ GetExePath() +" is not found.");
    return false;
  }

  //実行用ディレクトリがあるかチェック

  AnsiString Dir = ExtractFileDir(GetTempFile());

  if(!isDirectoryExists(Dir.c_str())) {
    ShowMessage("Temp Directory "+ Dir +" is not found.");
    return false;
  }
  return true;
}
//---------------------------------------------------------------------------
/**
 * 名前から言語情報へのポインタを得る
 */
void
KCopalConfig::SearchByName(AnsiString LangName) {
  for(int i=0;i<GetDefConfigCount();i++) {
    KDefConfig *df = GetDefConfigAt(i);
    if(df->LangName.LowerCase()==LangName.LowerCase()) {
      ChangeLanguage(df);
      return;
    }
  }
}
//---------------------------------------------------------------------------
/**
 * ファイルフィルターの作成
 */
AnsiString
KCopalConfig::GetFileFilter(void) {
  TStringList *st1 = new TStringList;
  st1->CommaText = CurrentLanguage->LangExt;

  AnsiString as1 = CurrentLanguage->LangName + " Files(";
  for(int i=0;i<st1->Count;i++) {
    if(i!=0)
      as1+=",";
    as1+="*.";
    as1+=st1->Strings[i];
  }
  as1+=")|";
  for(int i=0;i<st1->Count;i++) {
    if(i!=0)
      as1+=";";
    as1+="*.";
    as1+=st1->Strings[i];
  }
  as1+= "|All Files(*.*)|*.*";
  delete st1;
  return as1;
}
//---------------------------------------------------------------------------
/**
 * 拡張子から言語を得る
 */
bool
KCopalConfig::SearchByExt(AnsiString FileName) {
  AnsiString Ext = ExtractFileExt(FileName).Trim();

  if(CurrentLanguage->Contains(Ext)){
    return true;
  }

  for(int i=0;i<GetDefConfigCount();i++) {
    KDefConfig *df = GetDefConfigAt(i);
    if(df->Contains(Ext)){
      ChangeLanguage(df);
      return true;
    }
  }
  return false;
}
//---------------------------------------------------------------------------
/**
 * 同じ言語が登録されてないかチェック
 */
bool
KCopalConfig::LanguageExists(AnsiString LangName){
  for(int i=0;i<GetDefConfigCount();i++) {
    KDefConfig *df = GetDefConfigAt(i);
    if(df->LangName.Trim().LowerCase()==LangName.Trim().LowerCase()) {
      return true;
    }
  }
  return false;
}
//---------------------------------------------------------------------------
/**
 *
 */
void
KCopalConfig::SetTabWidth(int _TabWidth){
  TabWidth = _TabWidth;
  FScript->SetTabWidth(this,TabWidth);
}
//---------------------------------------------------------------------------
/**
 * タブ幅を設定する。フォントが設定された後で呼ぶこと
 */
void
KCopalConfig::SetTabWidthToRichEdit(TRichEdit *re, int w){
  PARAFORMAT f;
  int tabtwips = re->Font->Size * w * 120 / 11;
  f.cbSize = sizeof(PARAFORMAT);
  f.dwMask = PFM_TABSTOPS;
  f.cTabCount = MAX_TAB_STOPS;
  for(int i = 0;i < f.cTabCount;i++){
    f.rgxTabs[i] = (i + 1) * tabtwips;
  }
  re->Perform(EM_SETPARAFORMAT,(WPARAM)0,(LPARAM)&f);
  re->Invalidate();
}
//---------------------------------------------------------------------------
// インタフェース
//---------------------------------------------------------------------------
/**
 * テンポラリファイル名を返す
 */
AnsiString
KCopalConfig::GetTempFile(void) {
  if(CurrentLanguage->TempDir=="") {
    return DefaultPath + CurrentLanguage->TempFile;
  } else {
    return CurrentLanguage->TempDir + "\\"+CurrentLanguage->TempFile;
  }
}
//---------------------------------------------------------------------------
void
KCopalConfig::SetHotKey(TShortCut _HotKey) {

  ATOM HotKeyID = GlobalFindAtom(HotKeyIDStr);

  if(HotKeyID == 0) {
    HotKeyID = GlobalAddAtom(HotKeyIDStr);
  }

  UINT mod = 0, key = 0;
  TShiftState ss;
  ShortCutToKey(_HotKey,(unsigned short&)key,ss);
  //修飾キーの設定
  if (ss.Contains(ssShift)){
    mod += MOD_SHIFT;
  }
  if (ss.Contains(ssCtrl)) {
    mod += MOD_CONTROL;
  }
  if (ss.Contains(ssAlt)) {
    mod += MOD_ALT;
  }
  RegisterHotKey(FMain->Handle,(int)HotKeyID,mod,key);
}
//---------------------------------------------------------------------------
/**
 *  ホットキーを削除する
 */
void
KCopalConfig::UnsetHotKey(void){
  ATOM HotKeyID = GlobalFindAtom(HotKeyIDStr);
  if(HotKeyID == 0) { //ホットキーは登録されていない
    return;
  }
  UnregisterHotKey(FMain->Handle,(int)HotKeyID);
  GlobalDeleteAtom(HotKeyID);
}
//---------------------------------------------------------------------------
/**
 * ホットキー情報を変更
 */
void
KCopalConfig::ChangeHotKey(bool _UseHotKey, TShortCut _HotKey) {
  bUseHotKey = _UseHotKey;
  HotKey = _HotKey;
  if(bUseHotKey) {
    SetHotKey(HotKey);
  } else {
    UnsetHotKey();
  }
}
//---------------------------------------------------------------------------
/**
 * 編集禁止を変更
 */
void
KCopalConfig::SetReadOnly(bool b) {
  ReadOnly = b;
  FScript->SetReadOnly(b);
}
//---------------------------------------------------------------------------
/**
 * 文字コードモードを返す
 */
int
KCopalConfig::GetCodeMode(void){
  return DefaultCode;
}
//---------------------------------------------------------------------------
/**
 * 文字コードモードを設定する
 */
void
KCopalConfig::SetCodeMode(int _CodeMode){
  DefaultCode = _CodeMode;
  FScript->SetCode(DefaultCode);
}
//---------------------------------------------------------------------------
/**
 * 文字コードを表示する文字列を返す
 */
char *
KCopalConfig::GetCodeStr(void) {
  return KCodeConv::GetCodeChar(DefaultCode);
}
//---------------------------------------------------------------------------
