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

Designer: improved 'Ask Component Name' dialog i18n

Browse Source 
git-svn-id: trunk@58318 -
This commit is contained in:
maxim 2018-06-18 23:22:30 +00:00
parent afb9d4accf
commit 46520f25cc
2 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
designer/askcompnamedlg.pas
View File

@ -199,7 +199,7 @@ begin
Caption:=lisChooseNameAndText; Caption:=lisChooseNameAndText;
NameLabel.Caption:=lisChooseANameForTheComponent; NameLabel.Caption:=lisChooseANameForTheComponent;
NameEdit.Hint:=lisTheComponentNameMustBeUniqueInAllComponentsOnTheFo; NameEdit.Hint:=lisTheComponentNameMustBeUniqueInAllComponentsOnTheFo;
TextLabel.Caption:=lisMenuEditorCaption; TextLabel.Caption:=Format(lisProperty, ['Caption']);
ButtonPanel1.OKButton.Caption:=lisOk; ButtonPanel1.OKButton.Caption:=lisOk;
ButtonPanel1.CancelButton.Caption:=lisCancel; ButtonPanel1.CancelButton.Caption:=lisCancel;
ButtonPanel1.OKButton.Enabled:=false; ButtonPanel1.OKButton.Enabled:=false;
@ -254,7 +254,7 @@ begin
if TextMemo.Enabled then if TextMemo.Enabled then
begin begin
TextMemo.Text := ReadText; TextMemo.Text := ReadText;
TextLabel.Caption:=FNewTextPropertyName; TextLabel.Caption:=Format(lisProperty, [FNewTextPropertyName]);
end else end else
TextMemo.Text := ''; TextMemo.Text := '';
end; end;

1
ide/lazarusidestrconsts.pas
View File

@ -5874,6 +5874,7 @@ resourcestring
+'must be unique in all components on the form/datamodule.The name is ' +'must be unique in all components on the form/datamodule.The name is '
+'compared case insensitive like a normal Pascal identifier.'; +'compared case insensitive like a normal Pascal identifier.';
lisChooseANameForTheComponent = 'Choose a name for the component'; lisChooseANameForTheComponent = 'Choose a name for the component';
lisProperty = '%s property';
lisAskForFileNameOnNewFile = 'Ask for file name on new file'; lisAskForFileNameOnNewFile = 'Ask for file name on new file';
lisSuggestDefaultNameOfNewFileInLowercase = 'Suggest default name of new ' lisSuggestDefaultNameOfNewFileInLowercase = 'Suggest default name of new '
+'file in lowercase'; +'file in lowercase';