view/CopalPro/Main.cpp

//---------------------------------------------------------------------------
// Copal メインフォーム
//---------------------------------------------------------------------------
#include <windows.h>
#include <vcl.h>
#include <dir.h>
#pragma hdrstop

const char *Version = "Copal Ver 2.86"; //バージョン情報

AnsiString DefaultPath;

#include "KExecProc.h"
#include "KCopalConfig.h"
//---------------------------------------------------------------------------
#include "Main.h"
#include "Editor.h"
#include "Version.h"
#include "KRegexp.h"

//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TFMain *FMain;
//---------------------------------------------------------------------------
/**
 * コンストラクタ
 */
__fastcall
TFMain::TFMain(TComponent* Owner)
    : TForm(Owner) {
  //メッセージのフック
  Application->HookMainWindow(Hook);

  //ドラッグを受け取る
  DragAcceptFiles(this->Handle,true);

  //ヒストリ情報
  Classes::TNotifyEvent temp = &OnHistoryClick;
  FileHistory = new KFileHistory(MMReload,temp);

  //デフォルトパスの作成
  DefaultPath = ExtractFilePath(Application->ExeName);

  //コンフィグ情報を読み込む
  CopalConfig = new KCopalConfig(DefaultPath);

  CopalConfig->SearchDefFiles();

  CopalConfig->Load();

  MakeLanguageMenu();

  htmlhelp = Htmlhelp::GetInstance();
}
//---------------------------------------------------------------------------
/**
 * プログラムの初期化
 */
void
TFMain::Init(AnsiString FileName) {

  FScript->SetCopalConfig(CopalConfig);
  CurrentForm = FScript;
  CloseError();
  PageControl->SelectNextPage(true);
  PageControl->SelectNextPage(true);
  if(CopalConfig->isMaximized()) {
    WindowState = wsMaximized;
  }

  //ファイルが指定されていたら開く
  if(FileName != "") {
    FScript->LoadFromFile(FileName);
  }

  //NKF32.DLLがあるかチェック
  if(!KCodeConv::CheckNKF32()) {
    MMEncode->Enabled = false;
  }

  //BREGEXP.DLLのロード
  KRegexp::Init();

  //環境変数エディタを最前面に表示するか
  CopalConfig->SetFEditorStayOnTop();

  FScript->SetCode(CopalConfig->GetCodeMode());

  UpdateAll();
}
//---------------------------------------------------------------------------
/**
 * フォームクローズ時の処理
 * デストラクタとして使っている
 */
void __fastcall
TFMain::FormClose(TObject *Sender, TCloseAction &Action) {
  //現在の情報の保存
  CONFIGSAVEPARAM csp;

  csp.Maximized = (WindowState==wsMaximized);

  WindowState =wsNormal;

  csp.Width = Width;
  csp.Height = Height;

  CopalConfig->Save(csp);

  //メッセージのアンフック
  Application->UnhookMainWindow(Hook);

  //片付け
  delete CopalConfig;
  delete FileHistory;

  KRegexp::Free();
  KCodeConv::FreeNKF32();
}
//---------------------------------------------------------------------------
/**
 * メッセージのフック
 */
bool __fastcall
TFMain::Hook(TMessage &Message) {
  if (Message.Msg == CM_APPKEYDOWN) {
    return true;
  } else {
    return false;
  }
}
//---------------------------------------------------------------------------
/**
 * ファイルのドロップを処理する
 */
void
TFMain::WMDropFiles(TWMDropFiles &Msg) {
  //とりあえずドロップを禁止
  DragAcceptFiles(this->Handle,false);
  SetForegroundWindow(this->Handle);
  SetFocus();

  //ドロップファイルを得る
  char filename[MAXPATH];

  AnsiString Files;
  AnsiString HintText;//ツールボタンに表示するヒント

  int files = DragQueryFile((void*)Msg.Drop,-1,NULL,0);
  for(int i=0;i<files;i++) {
    DragQueryFile((void*)Msg.Drop,i,filename,sizeof(filename));
    AnsiString f2 = filename;
    if(f2.AnsiPos(" ")!=0) {
      f2 = "\""+f2 + "\"";
    }
    Files += f2;
    Files += " ";
    HintText = HintText + "\n" + filename;
  }

  if(files==1 && CopalConfig->SearchByExt(Files)) {
    //拡張子が検索にかかったらロード
    if(SaveQuery()) {
      FScript->LoadFromFile(Files);
    }
  }else{
    //そうでなければ引数として実行
    ExecuteOnDrop(Files,HintText);
  }
  
  DragAcceptFiles(this->Handle,true);
}
//---------------------------------------------------------------------------
/**
 * ホットキーを押されたときの処理
 */
void __fastcall
TFMain::WMHotKey(TMessage) {

  //もし設定メニューを開いていたら無視
  if(FConfig->Visible || FLangConfig->Visible || FNewLang->Visible) {
    return;
  }
  Application->Restore();
  SetForegroundWindow(this->Handle);
  SetFocus();
  Show();
}
//---------------------------------------------------------------------------
/**
 * 保存するか聞く
 * 返り値
 * true  処理を進めてＯＫ
 * false 処理を進めてはいけない
 */
bool
TFMain::SaveQuery(void) {
  ChangeWindow(SCRIPT_WINDOW);
  return FScript->SaveQuery();
}
//---------------------------------------------------------------------------
/**
 * WM_FILEPOSTの処理
 */
void
TFMain::FilePost(AnsiString FileName) {
  ChangeWindow(SCRIPT_WINDOW);
  if(WindowState == wsMinimized){
    WindowState = wsNormal;
  }
  Show();
  SetForegroundWindow(this->Handle);
  if(FileName !="") {
    if(!SaveQuery()) {
      return;
    }
    FScript->LoadFromFile(FileName);
  }
}
//---------------------------------------------------------------------------
/**
 * 言語の選択
 */
void __fastcall
TFMain::OnLanguageClick(TObject *Sender) {
  TMenuItem *mi = (TMenuItem*)Sender;
  KDefConfig *df = (KDefConfig*)mi->Tag;
  CopalConfig->ChangeLanguage(df);
  mi->Checked = true;
  UpdateAll();
}
//---------------------------------------------------------------------------
/**
 * ファイルヒストリをクリック
 */
void __fastcall
TFMain::OnHistoryClick(TObject *Sender) {
  TMenuItem *mi = (TMenuItem*)Sender;
  AnsiString FileName = FileHistory->GetFileName(mi->Tag);
  ChangeWindow(SCRIPT_WINDOW);
  if(!SaveQuery()) {
    return;
  }
  FScript->LoadFromFile(FileName);
}
//---------------------------------------------------------------------------
// メニューの実行
//---------------------------------------------------------------------------
/**
 * 新規作成
 */
void __fastcall
TFMain::MMNewClick(TObject *Sender) {
  if(!SaveQuery()) {
    return;
  }
  FScript->New();
}
//---------------------------------------------------------------------------
/**
 * ファイルを開く
 */
void __fastcall
TFMain::MMOpenClick(TObject *Sender) {

  ChangeWindow(SCRIPT_WINDOW);
  if(!SaveQuery()) {
    return;
  }

  FScript->Load();
}
//---------------------------------------------------------------------------
/**
 * 保存
 */
void __fastcall
TFMain::MMSaveClick(TObject *Sender) {
  if(CurrentForm == NULL) {
    return;
  }
  CurrentForm->Save();
}
//---------------------------------------------------------------------------
/**
 * 名前を付けて保存
 */
void __fastcall
TFMain::MMSaveAsClick(TObject *Sender) {
  if(CurrentForm == NULL) {
    return;
  }
  CurrentForm->SaveAs();
}
//---------------------------------------------------------------------------
void __fastcall
TFMain::MMAutoClick(TObject *Sender) {
  CopalConfig->SetCodeMode(CM_AUTOSELECT);
  UpdateAll();
}
//---------------------------------------------------------------------------
void __fastcall
TFMain::MMSHIFTJISClick(TObject *Sender) {
  CopalConfig->SetCodeMode(CM_SJIS);
  UpdateAll();
}
//---------------------------------------------------------------------------
void __fastcall
TFMain::MMEUCClick(TObject *Sender) {
  CopalConfig->SetCodeMode(CM_EUC);
  UpdateAll();
}
//---------------------------------------------------------------------------
void __fastcall
TFMain::MMJISClick(TObject *Sender) {
  CopalConfig->SetCodeMode(CM_JIS);
  UpdateAll();
}
//---------------------------------------------------------------------------
void __fastcall
TFMain::MMUTF8Click(TObject *Sender) {
  CopalConfig->SetCodeMode(CM_UTF8);
  UpdateAll();
}
//---------------------------------------------------------------------------
/**
 * アンドゥ
 */
void __fastcall
TFMain::MMUndoClick(TObject *Sender) {
  if(CurrentForm == NULL) {
    return;
  }
  CurrentForm->Undo();
}
//---------------------------------------------------------------------------
/**
 * 切り取り
 */
void __fastcall
TFMain::MMCutClick(TObject *Sender) {
  if(CurrentForm == NULL) {
    return;
  }
  CurrentForm->Cut();
}
//---------------------------------------------------------------------------
/**
 * コピー
 */
void __fastcall
TFMain::MMCopyClick(TObject *Sender) {
  if(CurrentForm == NULL) {
    return;
  }
  CurrentForm->Copy();
}
//---------------------------------------------------------------------------
/**
 * 貼り付け
 */
void __fastcall
TFMain::MMPasteClick(TObject *Sender) {
  if(CurrentForm == NULL) {
    return;
  }
  CurrentForm->Paste();
}
//---------------------------------------------------------------------------
/**
 * 読み込み専用
 */
void __fastcall
TFMain::MMReadOnlyClick(TObject *Sender) {
  CopalConfig->SetReadOnly(!CopalConfig->IsReadOnly());
  UpdateAll();
}
//---------------------------------------------------------------------------
// 検索関係
//---------------------------------------------------------------------------
/**
 *  検索
 */
void __fastcall
TFMain::MMFindClick(TObject *Sender) {
  if(CurrentForm == NULL) {
    return;
  }
  CurrentForm->Find();
}
//---------------------------------------------------------------------------
/**
 *  次を検索
 */
void __fastcall
TFMain::MMFindNextClick(TObject *Sender) {
  if(CurrentForm == NULL) {
    return;
  }
  CurrentForm->FindNext();
}
//---------------------------------------------------------------------------
/**
 * 上を検索
 */
void __fastcall
TFMain::MMFindPrevClick(TObject *Sender) {
  if(CurrentForm == NULL) {
    return;
  }
  CurrentForm->FindPrev();
}
//---------------------------------------------------------------------------
// 表示
//---------------------------------------------------------------------------
void __fastcall
TFMain::MMScriptWindowClick(TObject *Sender) {
  ChangeWindow(SCRIPT_WINDOW);
}
//---------------------------------------------------------------------------
void __fastcall
TFMain::MMResultWindowClick(TObject *Sender) {
  ChangeWindow(RESULT_WINDOW);
}
//---------------------------------------------------------------------------
void __fastcall
TFMain::MMErrorWindowClick(TObject *Sender) {
  ChangeWindow(ERROR_WINDOW);
}
//---------------------------------------------------------------------------
void __fastcall
TFMain::MMSwichWindowClick(TObject *Sender) {
  ChangeWindow(NEXT_WINDOW);
}
//---------------------------------------------------------------------------
/**
 * ＣＧＩフォームエディタの表示
 */
void __fastcall
TFMain::MMFormEditorClick(TObject *Sender) {
  CopalConfig->UseCGI = true;
  UpdateAll();
  FEditor->Show();
}
//---------------------------------------------------------------------------
// 実行
//---------------------------------------------------------------------------
/**
 * スクリプトを実行
 */
void __fastcall
TFMain::MMExecuteScriptClick(TObject *Sender) {
  if(!CopalConfig->CheckPath()) {
    if(IDYES ==
        Application->MessageBox(
          "実行可能ファイルが見つかりません。\n"
          "Copalはスクリプトを実行するのに、処理系が必要です。\n"
          "実行ファイルのパスの設定をしますか？。","Copal - Error",
          MB_YESNO)) {
      FLangConfig->Execute(CopalConfig);
    }
    return;
  }

  if(MMMemoryDroppedFiles->Checked) {
    Execute(CopalConfig->LastDroppedFiles);
  } else {
    Execute("");
  }

  if(MMSaveAll->Checked) {
    SaveResultToFile();
  }
  if(MMToBrowserAll->Checked) {
    ToBrowser();
  }
}
//---------------------------------------------------------------------------
/**
 * ブラウザへ出力
 */
void __fastcall
TFMain::MMExecToBrowserClick(TObject *Sender) {
  ExecToBrowser();
}
//---------------------------------------------------------------------------
/**
 * クリップボードの内容に実行
 */
void __fastcall
TFMain::MMExecToClipClick(TObject *Sender) {
  ExecToClip();
}
//---------------------------------------------------------------------------
/**
 * DOS窓で実行
 */
void __fastcall
TFMain::MMExecDOSClick(TObject *Sender) {
  ExecDOS();
}
//---------------------------------------------------------------------------
/**
 * 常に結果をファイルに保存
 */
void __fastcall
TFMain::MMSaveAllClick(TObject *Sender) {
  MMSaveAll->Checked = !MMSaveAll->Checked;
  TBSaveAll->Down = MMSaveAll->Checked;
  if(MMSaveAll->Checked) {
    FOpenFile->SetCaption("Copal - 常に結果をファイルに保存");
    if(FOpenFile->Execute()) {
      TBSaveAll->Hint = "常に結果をファイルに保存\n\n"+FOpenFile->FileName;
      CopalConfig->SaveResultFile = FOpenFile->FileName;
      TBSaveAll->Hint = "常に結果をファイルに保存\n" + FOpenFile->FileName;
    } else {
      MMSaveAll->Checked = false;
      TBSaveAll->Down = false;
    }
  }
}
//---------------------------------------------------------------------------
/**
 * クリップボードに出力しない
 */
void __fastcall
TFMain::MMNotClipClick(TObject *Sender) {
  MMNotClip->Checked = !MMNotClip->Checked;
  TBNotClip->Down = MMNotClip->Checked;
}
//---------------------------------------------------------------------------
/**
 * ドロップファイルを記憶
 */
void __fastcall
TFMain::MMMemoryDroppedFilesClick(TObject *Sender) {
  MMMemoryDroppedFiles->Checked = !MMMemoryDroppedFiles->Checked;
  TBMemoryDroppedFiles->Down = MMMemoryDroppedFiles->Checked;
}
//---------------------------------------------------------------------------
/**
 * 常にブラウザへ
 */
void __fastcall
TFMain::MMToBrowserAllClick(TObject *Sender) {
  MMToBrowserAll->Checked = !MMToBrowserAll->Checked;
  TBToBrowserAll->Down = MMToBrowserAll->Checked;
}
//---------------------------------------------------------------------------
/**
 * CGIデータを使う
 */
void __fastcall
TFMain::MMUseCGIClick(TObject *Sender) {
  CopalConfig->UseCGI = !CopalConfig->UseCGI;
  UpdateAll();
  if(CopalConfig->UseCGI) {
    FEditor->Show();
  }
}
//---------------------------------------------------------------------------
void __fastcall
TFMain::MMAutoRefreshClick(TObject *Sender) {
  CopalConfig->AutoRefresh = !CopalConfig->AutoRefresh;
  UpdateAll();
}
//---------------------------------------------------------------------------
/**
 * 外部エディタの実行
 */
void __fastcall
TFMain::MMExecuteEditorClick(TObject *Sender) {
  if (!FScript->ExecuteEditor()) {
    return;
  }
  //「オートリフレッシュ時に編集禁止」がセットされていたら編集禁止とする
  if (CopalConfig->AutoRefresh && CopalConfig->ReadOnlyWhenAutoRefresh) {
    CopalConfig->SetReadOnly(true);
    UpdateAll();
  }

}
//---------------------------------------------------------------------------
/**
 * カレントディレクトリの変更
 */
void __fastcall
TFMain::MMChangeDirClick(TObject *Sender) {
  if(!FOpenDir->Execute()) {
    return;
  }
  //両方変更する
  FScript->SetMyCurrentDir(FOpenDir->GetDir());
  FResult->SetMyCurrentDir(FOpenDir->GetDir());
  UpdateAll();
}
//---------------------------------------------------------------------------
// 設定
//---------------------------------------------------------------------------
/**
 * 環境設定
 */
void __fastcall
TFMain::MMEnvironmentSettingsClick(TObject *Sender) {
  FConfig->Execute(CopalConfig);
}
//---------------------------------------------------------------------------
/**
 * 言語別の設定
 */
void __fastcall
TFMain::MMLanguageSettingsClick(TObject *Sender) {
  FLangConfig->Execute(CopalConfig);
}
//---------------------------------------------------------------------------
/**
 * 新しい言語を追加
 */
void __fastcall
TFMain::MMNewLangClick(TObject *Sender) {
  if(!FNewLang->Execute(CopalConfig)){
    return;
  }
  CopalConfig->CreateDefConfig(FNewLang->LangName,FNewLang->LangPath);
  MakeLanguageMenu();
  UpdateAll();
}
//---------------------------------------------------------------------------
/**
 * 終了
 */
void __fastcall
TFMain::MMExitClick(TObject *Sender) {
  Close();
}
//---------------------------------------------------------------------------
/**
 * 目次の表示
 */
void __fastcall
TFMain::MMContentsClick(TObject *Sender) {
  if(FileExists(CopalConfig->HelpFile)){
    WinHelp(Application->Handle,CopalConfig->HelpFile.c_str(),HELP_CONTENTS,0);
  }else{
    AnsiString HtmlHelp = ChangeFileExt(CopalConfig->HelpFile,".chm");
    if(FileExists(HtmlHelp)){
      htmlhelp->ShowHtmlHelp(this->Handle,HtmlHelp.c_str());
    }else{
      ShowMessage("ヘルプファイル(copalpro.chm)が見つかりません");
    }
  }
}
//---------------------------------------------------------------------------
/**
 * キーワード検索
 */
void __fastcall
TFMain::MMSearchKeywordClick(TObject *Sender) {

  if(CopalConfig->GetUseHelp()) {
    if(!FileExists(CopalConfig->GetHelpFile())) {
      ShowMessage(CopalConfig->GetHelpFile() + "が見つかりません。");
      return;
    }

    if(ExtractFileExt(CopalConfig->GetHelpFile()).LowerCase()==".chm"){
      htmlhelp->ShowHtmlHelpSearch(Application->Handle,CopalConfig->GetHelpFile().c_str(),FScript->GetHelpKeyWord().c_str());
    } else {
      WinHelp(Application->Handle,CopalConfig->GetHelpFile().c_str(),HELP_KEY,(DWORD)FScript->GetHelpKeyWord().c_str());
    }
  } else {
    MMContents->Click();
  }
}
//---------------------------------------------------------------------------
/**
 * バージョン情報の表示
 */
void __fastcall
TFMain::MMVersionClick(TObject *Sender) {
  if(FVersion==NULL) {
    FVersion = new TFVersion(this);
  }
  FVersion->ShowModal();
  delete FVersion;
  FVersion = NULL;
}
//---------------------------------------------------------------------------
// ツールボタンの実行
//---------------------------------------------------------------------------
void __fastcall
TFMain::TBNewClick(TObject *Sender) {
  MMNew->Click();
}
//---------------------------------------------------------------------------
void __fastcall
TFMain::TBOpenClick(TObject *Sender) {
  MMOpen->Click();
}
//---------------------------------------------------------------------------
void __fastcall
TFMain::TBSaveClick(TObject *Sender) {
  MMSave->Click();
}
//---------------------------------------------------------------------------
void __fastcall
TFMain::TBCutClick(TObject *Sender) {
  MMCut->Click();
}
//---------------------------------------------------------------------------
void __fastcall
TFMain::TBCopyClick(TObject *Sender) {
  MMCopy->Click();
}
//---------------------------------------------------------------------------
void __fastcall
TFMain::TBPasteClick(TObject *Sender) {
  MMPaste->Click();
}
//---------------------------------------------------------------------------
void __fastcall
TFMain::TBReadOnlyClick(TObject *Sender) {
  MMReadOnly->Click();
}
//---------------------------------------------------------------------------
void __fastcall
TFMain::TBExecuteScriptClick(TObject *Sender) {
  MMExecuteScript->Click();
}
//---------------------------------------------------------------------------
void __fastcall
TFMain::TBExecToBrowserClick(TObject *Sender) {
  MMExecToBrowser->Click();
}
//---------------------------------------------------------------------------
void __fastcall
TFMain::TBExecToClipClick(TObject *Sender) {
  MMExecToClip->Click();
}
//---------------------------------------------------------------------------
void __fastcall
TFMain::TBExecDOSClick(TObject *Sender) {
  MMExecDOS->Click();
}
//---------------------------------------------------------------------------
void __fastcall
TFMain::TBToBrowserAllClick(TObject *Sender) {
  MMToBrowserAll->Click();
}
//---------------------------------------------------------------------------
void __fastcall
TFMain::TBSaveAllClick(TObject *Sender) {
  MMSaveAll->Click();
}
//---------------------------------------------------------------------------
void __fastcall
TFMain::TBNotClipClick(TObject *Sender) {
  MMNotClip->Click();
}
//---------------------------------------------------------------------------
void __fastcall
TFMain::TBMemoryDroppedFilesClick(TObject *Sender) {
  MMMemoryDroppedFiles->Click();
}
//---------------------------------------------------------------------------
void __fastcall
TFMain::TBUseCGIClick(TObject *Sender) {
  MMUseCGI->Click();
}
//---------------------------------------------------------------------------
void __fastcall
TFMain::TBAutoRefreshClick(TObject *Sender) {
  MMAutoRefresh->Click();
}
//---------------------------------------------------------------------------
void __fastcall
TFMain::TBExecuteEditorClick(TObject *Sender) {
  MMExecuteEditor->Click();
}
//---------------------------------------------------------------------------
void __fastcall
TFMain::TBSeachKeywordClick(TObject *Sender) {
  MMSearchKeyword->Click();
}
//---------------------------------------------------------------------------
/**
 * スプリッターの処理
 */
void __fastcall
TFMain::SplitterMoved(TObject *Sender) {
  if(!PStdError->Visible) {
    return;
  }
}
//---------------------------------------------------------------------------
void __fastcall
TFMain::FormCloseQuery(TObject *Sender, bool &CanClose) {
  if(!SaveQuery()) {
    CanClose = false;
  }
}
//---------------------------------------------------------------------------
void __fastcall
TFMain::On_WM_Activate(TWMActivate &Msg) {
  if(Msg.Active != WA_INACTIVE){
    FScript->CheckFileDate();
  }
  UpdateCaption();
}
//---------------------------------------------------------------------------
void __fastcall
TFMain::OnFileUpdated(TMessage &Msg) {
  if(MessageBox(this->Handle,"スクリプトが変更されています。読み込み直しますか？","Copal", MB_YESNO) == ID_YES) {
    FScript->Reload();
  }
}
//---------------------------------------------------------------------------
void __fastcall
TFMain::PageControlMouseDown(TObject *Sender,
                             TMouseButton Button, TShiftState Shift, int X, int Y) {
  if(PageControl->ActivePage==PageControl->Pages[0]) {
    ChangeWindow(SCRIPT_WINDOW);
  } else {
    ChangeWindow(RESULT_WINDOW);
  }
}
//---------------------------------------------------------------------------
// ポップアップメニュー
//---------------------------------------------------------------------------
void __fastcall
TFMain::PMCutClick(TObject *Sender) {
  MMCut->Click();
}
//---------------------------------------------------------------------------
void __fastcall
TFMain::PMCopyClick(TObject *Sender) {
  MMCopy->Click();
}
//---------------------------------------------------------------------------
void __fastcall
TFMain::PMPasteClick(TObject *Sender) {
  MMPaste->Click();
}
//---------------------------------------------------------------------------
/**
 * エラーのUndockを禁止する
 */
void __fastcall
TFMain::PStdErrorUnDock(TObject *Sender, TControl *Client,
                        TWinControl *NewTarget, bool &Allow) {
  Allow = false;
}
//---------------------------------------------------------------------------
