Develop and Download Open Source Software

Browse CVS Repository

Diff of /gikonavigoeson/gikonavi/PopupMenuSetting.pas

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.1 by h677, Sun Sep 13 15:09:07 2009 UTC revision 1.2 by h677, Mon Oct 5 14:55:57 2009 UTC
# Line 63  var Line 63  var
63  implementation  implementation
64    
65  uses  uses
66      PopupMenuUtil, IniFiles, GikoSystem, ToolBarUtil;      PopupMenuUtil, IniFiles, GikoSystem, ToolBarUtil, GikoUtil;
67  {$R *.dfm}  {$R *.dfm}
68  //! コンストラクタ(引数追加)  //! コンストラクタ(引数追加)
69  constructor TPopupMenuSettingDialog.Create(AOwner: TComponent; ActionList: TActionList);  constructor TPopupMenuSettingDialog.Create(AOwner: TComponent; ActionList: TActionList);
# Line 467  begin Line 467  begin
467  end;  end;
468  //! 適用ボタン押下処理  //! 適用ボタン押下処理
469  procedure TPopupMenuSettingDialog.ApplyButtonClick(Sender: TObject);  procedure TPopupMenuSettingDialog.ApplyButtonClick(Sender: TObject);
470    const
471        MSG = '設定を保存しました。再起動後に有効になります。';
472  var  var
473      ini : TMemIniFile;      ini : TMemIniFile;
474      sec, key, subkey : String;      sec, key, subkey : String;
# Line 496  begin Line 498  begin
498              node := node.GetNext;              node := node.GetNext;
499          end;          end;
500          ini.UpdateFile;          ini.UpdateFile;
501    
502                    MsgBox(Self.Handle, MSG, 'ギコナビ', MB_OK or MB_ICONINFORMATION);
503    
504      finally      finally
505          ini.Free;          ini.Free;
506      end;      end;

Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2

Back to OSDN">Back to OSDN
ViewVC Help
Powered by ViewVC 1.1.26