From b0f209cfa3231cc7128700c7230a9bddc63be772 Mon Sep 17 00:00:00 2001 From: mattias Date: Tue, 8 Dec 2009 09:40:45 +0000 Subject: [PATCH] IDEIntf: added resourcestrings git-svn-id: trunk@23020 - --- ideintf/actionseditor.pas | 7 ++++--- ideintf/objinspstrconsts.pas | 2 ++ 2 files changed, 6 insertions(+), 3 deletions(-) diff --git a/ideintf/actionseditor.pas b/ideintf/actionseditor.pas index 984f83c7cb..62523681df 100644 --- a/ideintf/actionseditor.pas +++ b/ideintf/actionseditor.pas @@ -753,9 +753,9 @@ begin OldAction:=nil; except on E: Exception do begin - MessageDlg('Error deleting action', - 'Error while deleting action:'#13 - +E.Message,mtError,[mbOk],0); + MessageDlg(oisErrorDeletingAction, + Format(oisErrorWhileDeletingAction, [#13, E.Message]), mtError, [mbOk + ], 0); end; end; end; @@ -828,6 +828,7 @@ begin SBShowMenuNewActions.Hint := cActionListEditorNewAction; mItemToolBarNewAction.Caption := cActionListEditorNewAction; mItemToolBarNewStdAction.Caption := cActionListEditorNewStdAction; + mItemActListNewAction.Caption := cActionListEditorNewAction; mItemActListNewStdAction.Caption := cActionListEditorNewStdAction; mItemActListMoveDownAction.Caption := cActionListEditorMoveDownAction; mItemActListMoveUpAction.Caption := cActionListEditorMoveUpAction; diff --git a/ideintf/objinspstrconsts.pas b/ideintf/objinspstrconsts.pas index e45191d3c4..473c4dfed0 100644 --- a/ideintf/objinspstrconsts.pas +++ b/ideintf/objinspstrconsts.pas @@ -224,6 +224,8 @@ resourcestring oisEditActionList = 'Edit action list...'; oisActionListEditor = 'Action List Editor'; + oisErrorDeletingAction = 'Error deleting action'; + oisErrorWhileDeletingAction = 'Error while deleting action:%s%s'; cActionListEditorNewAction = 'New Action'; cActionListEditorNewStdAction = 'New Standard Action'; cActionListEditorMoveDownAction = 'Move Down';