設定保存完了時にメッセージを表示するように修正

[gikonavigoeson/gikonavi.git] / PopupMenuSetting.pas

diff --git a/PopupMenuSetting.pas b/PopupMenuSetting.pas
index 7e12c59..9f1711b 100644 (file)
--- a/PopupMenuSetting.pas
+++ b/PopupMenuSetting.pas
@@ -63,7 +63,7 @@ var
 implementation
 
 uses
-    PopupMenuUtil, IniFiles, GikoSystem, ToolBarUtil;
+    PopupMenuUtil, IniFiles, GikoSystem, ToolBarUtil, GikoUtil;
 {$R *.dfm}
 //! \83R\83\93\83X\83g\83\89\83N\83^\81i\88ø\90\94\92Ç\89Á\81j
 constructor TPopupMenuSettingDialog.Create(AOwner: TComponent; ActionList: TActionList);
@@ -467,6 +467,8 @@ begin
 end;
 //! \93K\97p\83{\83^\83\93\89\9f\89º\8f\88\97\9d
 procedure TPopupMenuSettingDialog.ApplyButtonClick(Sender: TObject);
+const
+    MSG = '\90Ý\92è\82ð\95Û\91¶\82µ\82Ü\82µ\82½\81B\8dÄ\8bN\93®\8cã\82É\97L\8cø\82É\82È\82è\82Ü\82·\81B';
 var
     ini : TMemIniFile;
     sec, key, subkey : String;
@@ -496,6 +498,9 @@ begin
             node := node.GetNext;
         end;
         ini.UpdateFile;
+
+               MsgBox(Self.Handle, MSG, '\83M\83R\83i\83r', MB_OK or MB_ICONINFORMATION);
+
     finally
         ini.Free;
     end;