IDE: Improved code completion dialog i18n

git-svn-id: trunk@51922 -

components/codetools/sourcechanger.pas

@@ -347,9 +347,6 @@ const
   CreateCodeLocationNames: array[TCreateCodeLocation] of ShortString = (
     'Local', 'Class'
     );
-  CreateCodeLocationAmpNames: array[TCreateCodeLocation] of ShortString = (
-    '&Local', '&Class'
-    );
 
   ForwardProcBodyInsertPolicyNames: array[TForwardProcBodyInsertPolicy] of
     shortstring = (

ide/codecreationdlg.lfm

@@ -10,6 +10,7 @@ object CodeCreationDialog: TCodeCreationDialog
   KeyPreview = True
   OnKeyPress = FormKeyPress
   Position = poScreenCenter
+  ShowHint = True
   LCLVersion = '1.7'
   object ButtonPanel: TButtonPanel
     Left = 6

ide/codecreationdlg.pas

@@ -91,19 +91,20 @@ end;
 procedure TCodeCreationDialog.DoCreate;
 var
   S: TInsertClassSection;
-  L: TCreateCodeLocation;
 begin
   inherited DoCreate;
 
   KeyPreview := True;
 
+  Hint := lisYouCanSelectItemsBySimplyPressingUnderscoredLetter;
+
   SectionRadioGroup.Items.Clear;
   for S := Low(TInsertClassSection) to High(TInsertClassSection) do
     SectionRadioGroup.Items.Add(InsertClassSectionAmpNames[S]);
 
   LocationRadioGroup.Items.Clear;
-  for L := Low(TCreateCodeLocation) to High(TCreateCodeLocation) do
-    LocationRadioGroup.Items.Add(CreateCodeLocationAmpNames[L]);
+  LocationRadioGroup.Items.Add(lisLocal);
+  LocationRadioGroup.Items.Add(lisClass);
 end;
 
 procedure TCodeCreationDialog.DoShow;

ide/lazarusidestrconsts.pas

@@ -3667,6 +3667,10 @@ resourcestring
   //codetools ChooseClassSectionDlg
   lisCodeCreationDialogCaption = 'Code creation options';
   lisCodeCreationDialogLocation = 'Location';
+  lisLocal = '&Local';
+  lisClass = '&Class';
+  lisYouCanSelectItemsBySimplyPressingUnderscoredLetter = 'You can select '
+    +'items by simply pressing underscored letters';
   lisCodeCreationDialogClassSection = 'Class section';
 
   // diff dialog