Browse CVS Repository
Diff of /gikonavigoeson/gikonavi/PopupMenuSetting.pas
Parent Directory
| Revision Log
| Revision Graph
| Patch
| 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); |
| 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; |
| 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 |
|
|
| |