view/CopalPro/NewLang.cpp

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

#include "KCopalConfig.h"
#include "NewLang.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TFNewLang *FNewLang;
//---------------------------------------------------------------------------
__fastcall
TFNewLang::TFNewLang(TComponent* Owner) : TForm(Owner) {
  CopalConfig = NULL;
}
//---------------------------------------------------------------------------
/**
 * 実行する
 * 返り値：bool
 * true  変化あり
 * false キャンセル
 */
bool
TFNewLang::Execute(KCopalConfig *_CopalConfig) {

  EdLangName->Text = "";
  EdLangPath->Text = "";
  CopalConfig = _CopalConfig;
  int mr = ShowModal();
  if(mr==mrOk) {
    LangName = EdLangName->Text.Trim();
    LangPath = EdLangPath->Text;
    return true;
  } else {
    return false;
  }
}
//---------------------------------------------------------------------------
/**
 * チェック
 */
void __fastcall
TFNewLang::BtOKClick(TObject *Sender) {
  if(EdLangName->Text.Trim()=="") {
    ShowMessage("言語名を指定してください");
    ModalResult = mrNone;
    return;
  }
  if(EdLangPath->Text=="") {
    ShowMessage("実行パスを指定してください");
    ModalResult = mrNone;
    return;
  }
  if(!FileExists(EdLangPath->Text)) {
    ShowMessage("ファイル " + EdLangPath->Text +"は存在しません");
    ModalResult = mrNone;
    return;
  }
  if(CopalConfig->LanguageExists(EdLangName->Text)){
    ShowMessage("既に同じ名前の設定ファイルが存在します");
    ModalResult = mrNone;
    return;
  }

}
//---------------------------------------------------------------------------
/**
 * 参照ボタン
 */
void __fastcall
TFNewLang::BtBrowseClick(TObject *Sender) {
  if(!OpenDialog->Execute()) {
    return;
  }
  EdLangPath->Text = OpenDialog->FileName;
}
//---------------------------------------------------------------------------
void __fastcall
TFNewLang::FormShow(TObject *Sender) {
  EdLangName->SetFocus();
}
//---------------------------------------------------------------------------
