diff --git a/ide/aboutfrm.lfm b/ide/aboutfrm.lfm
index fe5c6d3b70..873ea9bb2b 100644
--- a/ide/aboutfrm.lfm
+++ b/ide/aboutfrm.lfm
@@ -11,6 +11,8 @@ object AboutForm: TAboutForm
   Width = 577
   object Memo1: TMemo
     Color = -2147483643
+    ReadOnly = True
+    ScrollBars = ssautoboth
     WordWrap = True
     Left = 225
     Height = 219
diff --git a/ide/aboutfrm.lrs b/ide/aboutfrm.lrs
index db82e842ec..452af434f1 100644
--- a/ide/aboutfrm.lrs
+++ b/ide/aboutfrm.lrs
@@ -5,10 +5,11 @@ LazarusResources.Add('TAboutForm','FORMDATA',[
   +'ight'#3#245#0#11'ClientWidth'#3'A'#2#8'Position'#7#14'poscreencenter'#18'Ho'
   +'rzScrollBar.Page'#3'B'#2#18'VertScrollBar.Page'#3#246#0#4'Left'#3'_'#1#6'He'
   +'ight'#3#245#0#3'Top'#3#133#1#5'Width'#3'A'#2#0#5'TMemo'#5'Memo1'#5'Color'#4
-  +#5#0#0#128#8'WordWrap'#9#4'Left'#3#225#0#6'Height'#3#219#0#3'Top'#2#14#5'Wid'
-  +'th'#3'S'#1#0#0#7'TButton'#7'Button1'#11'ModalResult'#2#1#7'Caption'#6#5'Clo'
-  +'se'#8'TabOrder'#2#1#4'Left'#2'N'#6'Height'#2#25#3'Top'#3#184#0#5'Width'#2'K'
-  +#0#0#6'TLabel'#6'Label1'#9'Alignment'#7#8'tacenter'#7'Caption'#6#10'Version '
-  +'#:'#5'Color'#4#5#0#0#128#6'Layout'#7#5'tltop'#4'Left'#2#14#6'Height'#2#17#3
-  +'Top'#2#6#5'Width'#3#200#0#0#0#0
+  +#5#0#0#128#8'ReadOnly'#9#10'ScrollBars'#7#10'ssautoboth'#8'WordWrap'#9#4'Lef'
+  +'t'#3#225#0#6'Height'#3#219#0#3'Top'#2#14#5'Width'#3'S'#1#0#0#7'TButton'#7'B'
+  +'utton1'#11'ModalResult'#2#1#7'Caption'#6#5'Close'#8'TabOrder'#2#1#4'Left'#2
+  +'N'#6'Height'#2#25#3'Top'#3#184#0#5'Width'#2'K'#0#0#6'TLabel'#6'Label1'#9'Al'
+  +'ignment'#7#8'tacenter'#7'Caption'#6#10'Version #:'#5'Color'#4#5#0#0#128#6'L'
+  +'ayout'#7#5'tltop'#4'Left'#2#14#6'Height'#2#17#3'Top'#2#6#5'Width'#3#200#0#0
+  +#0#0
 ]);
diff --git a/ide/keymapping.pp b/ide/keymapping.pp
index bda1247119..fcdd248825 100644
--- a/ide/keymapping.pp
+++ b/ide/keymapping.pp
@@ -104,6 +104,7 @@ const
   ecGuessUnclosedBlock   = ecUserFirst + 104;
   ecGuessMisplacedIFDEF  = ecUserFirst + 105;
   ecConvertDFM2LFM       = ecUserFirst + 106;
+  ecMakeResourceString   = ecUserFirst + 107;
 
   ecNew                  = ecUserFirst + 201;
   ecNewUnit              = ecUserFirst + 202;
@@ -630,6 +631,7 @@ begin
     ecEditorOptions: Result:= 'editor options';
     ecCodeToolsOptions: Result:= 'codetools options';
     ecCodeToolsDefinesEd: Result:= 'codetools defines editor';
+    ecMakeResourceString: Result:='make resource string';
 
     // help menu
     ecAboutLazarus: Result:= 'about lazarus';
@@ -1436,6 +1438,7 @@ begin
   Add(C,'External Tools settings',ecExtToolSettings,VK_UNKNOWN,[],VK_UNKNOWN,[]);
   Add(C,'Build Lazarus',ecBuildLazarus,VK_UNKNOWN,[],VK_UNKNOWN,[]);
   Add(C,'Configure "Build Lazarus"',ecConfigBuildLazarus,VK_UNKNOWN,[],VK_UNKNOWN,[]);
+  Add(C,'Make resource string',ecMakeResourceString,VK_UNKNOWN,[],VK_UNKNOWN,[]);
 
   // environment menu
   C:=Categories[AddCategory('EnvironmentMenu','Environment menu commands',caAll)];
diff --git a/ide/lazarusidestrconsts.pas b/ide/lazarusidestrconsts.pas
index 41199137c3..47b743fdf4 100644
--- a/ide/lazarusidestrconsts.pas
+++ b/ide/lazarusidestrconsts.pas
@@ -202,6 +202,7 @@ resourcestring
   lisMenuQuickSyntaxCheck = 'Quick syntax check';
   lisMenuGuessUnclosedBlock = 'Guess unclosed block';
   lisMenuGuessMisplacedIFDEF = 'Guess misplaced IFDEF/ENDIF';
+  lisMenuMakeResourceString = 'Make Resource String';
   lisMenuConvertDFMtoLFM = 'Convert DFM file to LFM';
   lisMenuBuildLazarus = 'Build Lazarus';
   lisMenuConfigureBuildLazarus = 'Configure "Build Lazarus"';
diff --git a/ide/mainbar.pas b/ide/mainbar.pas
index fe7042c72d..faca91678d 100644
--- a/ide/mainbar.pas
+++ b/ide/mainbar.pas
@@ -257,6 +257,7 @@ type
     itmToolGuessUnclosedBlock: TMenuItem;
     itmToolGuessMisplacedIFDEF: TMenuItem;
     itmToolConvertDFMtoLFM: TMenuItem;
+    itmToolMakeResourceString: TMenuItem;
     itmToolBuildLazarus: TMenuItem;
     itmToolConfigureBuildLazarus: TMenuItem;
 
@@ -1015,6 +1016,12 @@ begin
   itmToolGuessMisplacedIFDEF.Caption := lisMenuGuessMisplacedIFDEF;
   mnuTools.Add(itmToolGuessMisplacedIFDEF);
 
+  itmToolMakeResourceString := TMenuItem.Create(Self);
+  itmToolMakeResourceString.Name:='itmToolMakeResourceString';
+  itmToolMakeResourceString.Caption := lisMenuMakeResourceString;
+  itmToolMakeResourceString.Enabled:=false;
+  mnuTools.Add(itmToolMakeResourceString);
+
   mnuTools.Add(CreateMenuSeparator);
 
   itmToolConvertDFMtoLFM := TMenuItem.Create(Self);
@@ -1173,6 +1180,7 @@ begin
     itmToolSyntaxCheck.ShortCut:=CommandToShortCut(ecSyntaxCheck);
     itmToolGuessUnclosedBlock.ShortCut:=CommandToShortCut(ecGuessUnclosedBlock);
     itmToolGuessMisplacedIFDEF.ShortCut:=CommandToShortCut(ecGuessMisplacedIFDEF);
+    itmToolMakeResourceString.ShortCut:=CommandToShortCut(ecMakeResourceString);
     itmToolConvertDFMtoLFM.ShortCut:=CommandToShortCut(ecConvertDFM2LFM);
     itmToolBuildLazarus.ShortCut:=CommandToShortCut(ecBuildLazarus);
     itmToolConfigureBuildLazarus.ShortCut:=CommandToShortCut(ecConfigBuildLazarus);