paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-12 06:16:05 +02:00
Code Issues Packages Projects Releases Wiki Activity

IDE: improved FPDoc editor dialog i18n

Browse Source
This commit is contained in:
Maxim Ganetsky 2025-01-05 23:14:30 +03:00
parent 4d840c6866
commit 73061f3b95
3 changed files with 8 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
ide/fpdoceditwindow.pas
View File

@ -1606,7 +1606,7 @@ begin
//DebugLn(['TFPDocEditForm.CopyFromInheritedButtonClick ']); //DebugLn(['TFPDocEditForm.CopyFromInheritedButtonClick ']);
if ShortEdit.Text<>'' then begin if ShortEdit.Text<>'' then begin
if IDEQuestionDialog(lisConfirmReplace, if IDEQuestionDialog(lisConfirmReplace,
GetContextTitle(fChain[0])+' already contains the help:'+LineEnding+ShortEdit.Text, Format(lisAlreadyContainsTheHe, [GetContextTitle(fChain[0]), ShortEdit.Text]),
mtConfirmation, [mrYes, lisReplace, mtConfirmation, [mrYes, lisReplace,
mrCancel]) <> mrYes then exit; mrCancel]) <> mrYes then exit;
end; end;

2
ide/lazarus.lpi
View File

@ -1020,7 +1020,9 @@
<Unit> <Unit>
<Filename Value="fpdoceditwindow.pas"/> <Filename Value="fpdoceditwindow.pas"/>
<IsPartOfProject Value="True"/> <IsPartOfProject Value="True"/>
<ComponentName Value="FPDocEditor"/>
<HasResources Value="True"/> <HasResources Value="True"/>
<ResourceBaseClass Value="Form"/>
<UnitName Value="FPDocEditWindow"/> <UnitName Value="FPDocEditWindow"/>
</Unit> </Unit>
<Unit> <Unit>

8
ide/lazarusidestrconsts.pas
View File

@ -52,7 +52,6 @@ resourcestring
lisBtnRename = '&Rename'; lisBtnRename = '&Rename';
lisRename2 = 'Rename ...'; lisRename2 = 'Rename ...';
lisReplace = 'Replace'; lisReplace = 'Replace';
lisConfirmReplace = 'Confirm Replace';
lisBtnReplace = '&Replace'; lisBtnReplace = '&Replace';
lisBtnDlgReplace = '&Replace ...'; lisBtnDlgReplace = '&Replace ...';
lisEdit = 'Edit'; lisEdit = 'Edit';
@ -1511,11 +1510,14 @@ resourcestring
lisQuickCheckFppkgConfigurationAtStart = 'Quick check Fppkg configuration at' lisQuickCheckFppkgConfigurationAtStart = 'Quick check Fppkg configuration at'
+' start'; +' start';
// open-dialog filters lisConfirmReplace = 'Confirm Replace';
dlgFilterAll = 'All files'; lisAlreadyContainsTheHe = '%s already contains the help:'+LineEnding+'%s';
lisInvalidDeclaration = 'Invalid Declaration'; lisInvalidDeclaration = 'Invalid Declaration';
lisPleasePlaceTheEditorCaretOnAnIdentifierIfThisIsANe = 'Please place the editor caret on an ' lisPleasePlaceTheEditorCaretOnAnIdentifierIfThisIsANe = 'Please place the editor caret on an '
+'identifier. If this is a new unit, please save the file first.'; +'identifier. If this is a new unit, please save the file first.';
// open-dialog filters
dlgFilterAll = 'All files';
dlgFilterXML = 'XML files'; dlgFilterXML = 'XML files';
dlgFilterHTML = 'HTML files'; dlgFilterHTML = 'HTML files';
dlgFilterPrograms = 'Programs'; dlgFilterPrograms = 'Programs';