バタ59リリース2向けに更新

[gikonavigoeson/gikonavi.git] / GikoDataModule.pas

diff --git a/GikoDataModule.pas b/GikoDataModule.pas
index 67576b3..4011a7f 100644 (file)
--- a/GikoDataModule.pas
+++ b/GikoDataModule.pas
@@ -242,6 +242,7 @@ type
     ExtractSameIDAction: TAction;
     ShowTabListAction: TAction;
     DereferenceResAction: TAction;
+    UpdateGikonaviAction: TAction;
        procedure EditNGActionExecute(Sender: TObject);
        procedure ReloadActionExecute(Sender: TObject);
        procedure GoFowardActionExecute(Sender: TObject);
@@ -454,6 +455,7 @@ type
     procedure ExtractSameIDActionExecute(Sender: TObject);
     procedure ShowTabListActionExecute(Sender: TObject);
     procedure DereferenceResActionExecute(Sender: TObject);
+    procedure UpdateGikonaviActionExecute(Sender: TObject);
   private
        { Private \90é\8c¾ }
        procedure ClearResFilter;
@@ -508,7 +510,7 @@ uses
        GikoBayesian, About, ShellAPI,
        RoundName, RoundData, Menus, ListViewUtils,
        ThreadControl, GikoMessage, InputAssist,
-    DefaultFileManager, Forms, NewBoardURL;
+    DefaultFileManager, Forms, NewBoardURL, UpdateCheck;
 
 const
        MSG_ERROR : string = '\83G\83\89\81[';
@@ -4563,5 +4565,36 @@ begin
     end;
 end;
 
+procedure TGikoDM.UpdateGikonaviActionExecute(Sender: TObject);
+var
+    form : TUpdateCheckForm;
+       Msg: string;
+    shutdown: boolean;
+begin
+       if (EditorFormExists) then begin
+               Msg := '\83\8c\83X\83G\83f\83B\83^\82ð\91S\82Ä\95Â\82¶\82Ä\82­\82¾\82³\82¢';
+               MsgBox(GikoForm.Handle, Msg, MSG_ERROR, MB_OK or MB_ICONSTOP);
+               Exit;
+       end;
+    GikoForm.UpdateExePath := '';
+    GikoForm.UpdateExeArgs := '';
+    form := TUpdateCheckForm.Create(Self);
+    try
+        form.ShowModal;
+        shutdown := form.Allowshutdown;
+        if shutdown then begin
+            GikoForm.UpdateExePath := form.ExecPath;
+            GikoForm.UpdateExeArgs := form.ExecArgs;
+        end;
+    finally
+        form.Release;
+    end;
+    if shutdown then begin
+        // \83M\83R\83i\83r\8fI\97¹
+        GikoForm.Close;
+    end;
+
+end;
+
 end.