paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-12-11 12:20:37 +01:00
Code Issues Packages Projects Releases Wiki Activity

IDE: fixed typo

Browse Source 
git-svn-id: trunk@38378 -
This commit is contained in:
maxim 2012-08-25 21:38:05 +00:00
parent 58d0e7b9ff
commit f317a74361
2 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
ide/editormacrolistviewer.pas
View File

@ -870,13 +870,13 @@ begin
if lbRecordedView.ItemIndex < 0 then exit; if lbRecordedView.ItemIndex < 0 then exit;
M := CurrentEditorMacroList.Macros[lbRecordedView.ItemIndex]; M := CurrentEditorMacroList.Macros[lbRecordedView.ItemIndex];
s := M.MacroName; s := M.MacroName;
if InputQuery(lisNewMacroname2, Format(lisEnterNewMaweForMacroS, [m.MacroName]), s) if InputQuery(lisNewMacroname2, Format(lisEnterNewNameForMacroS, [m.MacroName]), s)
then begin then begin
while (s <> '') and (CurrentEditorMacroList.IndexOfName(s) >= 0) do begin while (s <> '') and (CurrentEditorMacroList.IndexOfName(s) >= 0) do begin
case MessageDlg(lisDuplicateName, lisAMacroWithThisNameAlreadyExists, mtWarning, case MessageDlg(lisDuplicateName, lisAMacroWithThisNameAlreadyExists, mtWarning,
mbOKCancel, 0) of mbOKCancel, 0) of
mrOK: mrOK:
if not InputQuery(lisNewMacroname2, Format(lisEnterNewMaweForMacroS, [m.MacroName]), s) if not InputQuery(lisNewMacroname2, Format(lisEnterNewNameForMacroS, [m.MacroName]), s)
then s := ''; then s := '';
else else
s := ''; s := '';

2
ide/lazarusidestrconsts.pas
View File

@ -5568,7 +5568,7 @@ resourcestring
lisDuplicateName = 'Duplicate Name'; lisDuplicateName = 'Duplicate Name';
lisAMacroWithThisNameAlreadyExists = 'A macro with this name already exists.'; lisAMacroWithThisNameAlreadyExists = 'A macro with this name already exists.';
lisNewMacroname2 = 'New Macroname'; lisNewMacroname2 = 'New Macroname';
lisEnterNewMaweForMacroS = 'Enter new mawe for Macro "%s"'; lisEnterNewNameForMacroS = 'Enter new name for Macro "%s"';
implementation implementation