paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-21 18:39:47 +02:00
Code Issues Packages Projects Releases Wiki Activity

IDE: Improved code completion dialog i18n

Browse Source 
git-svn-id: trunk@51922 -
This commit is contained in:
maxim 2016-03-11 22:37:16 +00:00
parent 2be91bc1f5
commit 9b3cbbac5b
4 changed files with 9 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
components/codetools/sourcechanger.pas
View File

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

1
ide/codecreationdlg.lfm
View File

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

7
ide/codecreationdlg.pas
View File

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

4
ide/lazarusidestrconsts.pas
View File

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