view/CopalPro/Config.cpp

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

#include "Config.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "CSPIN"
#pragma resource "*.dfm"
TFConfig *FConfig;
//---------------------------------------------------------------------------
__fastcall TFConfig::TFConfig(TComponent* Owner)
    : TForm(Owner) {}
//---------------------------------------------------------------------------
/**
 * インターフェース
 * コンフィグ情報を受け取る
 */
void
TFConfig::Execute(KCopalConfig *_CopalConfig) {
  CopalConfig = _CopalConfig;
  ShowConfig();
  ShowModal();
}
//---------------------------------------------------------------------------
void __fastcall
TFConfig::BtBrouseClick(TObject *Sender) {
  AnsiString Temp = GetCurrentDir();
  OpenDialog->Filter = "実行ファイル(*.exe,*.com)|*.exe;*.com|全てのファイル(*.*)|*.*";
  if(!OpenDialog->Execute())
    return;
  EdEditor->Text = OpenDialog->FileName;
  SetCurrentDir(Temp);
}
//---------------------------------------------------------------------------
/**
 * コンフィグ情報の表示
 */
void
TFConfig::ShowConfig(void) {
  //エディタ情報
  EdEditor->Text = CopalConfig->Editor;
  CBUseDoubleQuotes->Checked = CopalConfig->UseDoubleQuotes;

  //DOS窓での実行
  EdTempBat->Text = CopalConfig->TempBat;
  CBUsePause->Checked = CopalConfig->UsePause;

  //CGI設定
  EdTempHtml->Text = CopalConfig->TempHtml;
  CBCutHead->Checked = CopalConfig->CutHead;

  //タグジャンプ関係
  CBUseTagJump->Checked = CopalConfig->UseTagJump;
  EdTagJumpText->Text = CopalConfig->TagJumpText;


  //オートリフレッシュ
  CBReadOnlyWhenAutoRefresh->Checked = CopalConfig->ReadOnlyWhenAutoRefresh;

  //その他
  CBMemoryFileWhenDropped->Checked = CopalConfig->MemoryFileWhenDropped;
  CBChangeCurrentDirOnDrop->Checked = CopalConfig->ChangeCurrentDirOnDrop;
  CBDontChangeDirFromDesktop->Checked = CopalConfig->DontChangeDirFromDesktop;
  CBDontChangeDirFromDesktop->Enabled = CBChangeCurrentDirOnDrop->Checked;

  //タブ
  CSETabWidth->Value = CopalConfig->GetTabWidth();

  //ホットキー
  CBUseHotKey->Checked = CopalConfig->UseHotKey();
  HotKey->HotKey = CopalConfig->GetHotKey();
  HotKey->Enabled = CBUseHotKey->Checked;

}
//---------------------------------------------------------------------------
/**
 * コンフィグ情報のセット
 */
void
TFConfig::SetConfig(void) {
  //エディタ情報
  CopalConfig->Editor = EdEditor->Text;
  CopalConfig->UseDoubleQuotes = CBUseDoubleQuotes->Checked;

  //DOS窓での実行
  CopalConfig->TempBat = EdTempBat->Text;
  CopalConfig->UsePause = CBUsePause->Checked;

  //タブ
  CopalConfig->SetTabWidth(CSETabWidth->Value);

  //ホットキー
  CopalConfig->ChangeHotKey(CBUseHotKey->Checked,HotKey->HotKey);

  //CGI設定
  CopalConfig->TempHtml = EdTempHtml->Text;
  CopalConfig->CutHead = CBCutHead->Checked;

  //タグジャンプ関係
  CopalConfig->UseTagJump = CBUseTagJump->Checked;
  CopalConfig->TagJumpText = EdTagJumpText->Text;

  //オートリフレッシュ
  CopalConfig->ReadOnlyWhenAutoRefresh = CBReadOnlyWhenAutoRefresh->Checked;

  //その他
  CopalConfig->MemoryFileWhenDropped = CBMemoryFileWhenDropped->Checked;
  CopalConfig->ChangeCurrentDirOnDrop = CBChangeCurrentDirOnDrop->Checked;
  CopalConfig->DontChangeDirFromDesktop = CBDontChangeDirFromDesktop->Checked;
}
//---------------------------------------------------------------------------
// イベント処理
//---------------------------------------------------------------------------
void __fastcall
TFConfig::BtOKClick(TObject *Sender) {
  SetConfig();
}
//---------------------------------------------------------------------------
void __fastcall
TFConfig::BtBrouseTempHtmlClick(TObject *Sender) {
  AnsiString Temp = GetCurrentDir();
  OpenDialog->Filter = "HTMLファイル(*.html,*.htm)|*.html;*.htm|全てのファイル(*.*)|*.*";
  if(!OpenDialog->Execute()) {
    return;
  }
  EdTempHtml->Text = OpenDialog->FileName;
  SetCurrentDir(Temp);
}
//---------------------------------------------------------------------------
void __fastcall
TFConfig::CBChangeCurrentDirOnDropClick(TObject *Sender) {
  CBDontChangeDirFromDesktop->Enabled = CBChangeCurrentDirOnDrop->Checked;
}
//---------------------------------------------------------------------------
void __fastcall
TFConfig::CBUseHotKeyClick(TObject *Sender) {
  HotKey->Enabled = CBUseHotKey->Checked;
}
//---------------------------------------------------------------------------