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

IDE: Formatting resource strings and variables. No real changes.

Browse Source 
git-svn-id: trunk@64706 -
This commit is contained in:
juha 2021-03-01 09:16:24 +00:00
parent 64ce0937ca
commit 69565b2caf
2 changed files with 18 additions and 30 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
ide/lazarusidestrconsts.pas
View File

@ -3791,8 +3791,7 @@ resourcestring
lisCodeToolsDefsName = 'Name:'; lisCodeToolsDefsName = 'Name:';
lisOnlyMessagesWithTheseFPCIDsCommaSeparated = 'Only messages with these FPC' lisOnlyMessagesWithTheseFPCIDsCommaSeparated = 'Only messages with these FPC'
+' IDs (comma separated):'; +' IDs (comma separated):';
lisOnlyMessagesFittingThisRegularExpression = 'Only messages fitting this ' lisOnlyMessagesFittingThisRegularExpression = 'Only messages fitting this regular expression:';
+'regular expression:';
lisURLOnWikiTheBaseUrlIs = 'URL on wiki (the base url is %s)'; lisURLOnWikiTheBaseUrlIs = 'URL on wiki (the base url is %s)';
lisTestURL = 'Test URL'; lisTestURL = 'Test URL';
lisDeleteThisAddition = 'Delete this addition'; lisDeleteThisAddition = 'Delete this addition';
@ -3802,11 +3801,9 @@ resourcestring
lisSelectedAddition = 'Selected addition:'; lisSelectedAddition = 'Selected addition:';
lisNoMessageSelected = '(no message selected)'; lisNoMessageSelected = '(no message selected)';
lisAdditionFitsTheCurrentMessage = 'Addition fits the current message'; lisAdditionFitsTheCurrentMessage = 'Addition fits the current message';
lisAdditionDoesNotFitTheCurrentMessage = 'Addition does not fit the current ' lisAdditionDoesNotFitTheCurrentMessage = 'Addition does not fit the current message';
+'message';
lisFilterAlreadyExists = 'Filter already exists'; lisFilterAlreadyExists = 'Filter already exists';
lisAFilterWithTheNameAlreadyExists = 'A filter with the name "%s" already ' lisAFilterWithTheNameAlreadyExists = 'A filter with the name "%s" already exists.';
+'exists.';
lisSaveMessages = 'Save messages'; lisSaveMessages = 'Save messages';
lisCodeToolsDefsDescription = 'Description:'; lisCodeToolsDefsDescription = 'Description:';
lisCodeToolsDefsVariable = 'Variable:'; lisCodeToolsDefsVariable = 'Variable:';
@ -3816,13 +3813,13 @@ resourcestring
lisCodeToolsDefsautoGenerated = '%s, auto generated'; lisCodeToolsDefsautoGenerated = '%s, auto generated';
lisCodeToolsDefsnoneSelected = 'none selected'; lisCodeToolsDefsnoneSelected = 'none selected';
lisCodeToolsDefsInvalidParent = 'Invalid parent'; lisCodeToolsDefsInvalidParent = 'Invalid parent';
lisACanNotHoldTControlsYouCanOnlyPutNonVisualComponen = 'A %s cannot hold ' lisACanNotHoldTControlsYouCanOnlyPutNonVisualComponen = 'A %s cannot hold TControls.'
+'TControls.%sYou can only put nonvisual components on it.'; +'%sYou can only put nonvisual components on it.';
lisUpdateReferences = 'Update references?'; lisUpdateReferences = 'Update references?';
lisTheUnitIsUsedByOtherFilesUpdateReferencesAutomatic = 'The unit %s is ' lisTheUnitIsUsedByOtherFilesUpdateReferencesAutomatic = 'The unit %s is used by other files.'
+'used by other files.%sUpdate references automatically?'; +'%sUpdate references automatically?';
lisCodeToolsDefsAutoCreatedNodesReadOnly = 'Auto created nodes cannot be ' lisCodeToolsDefsAutoCreatedNodesReadOnly = 'Auto created nodes cannot be edited,'
+'edited,%snor can they have non auto created child nodes.'; +'%snor can they have non auto created child nodes.';
lisCodeToolsDefsInvalidParentNode = 'Invalid parent node'; lisCodeToolsDefsInvalidParentNode = 'Invalid parent node';
lisCodeToolsDefsParentNodeCanNotContainCh = 'Parent node cannot contain child nodes.'; lisCodeToolsDefsParentNodeCanNotContainCh = 'Parent node cannot contain child nodes.';
lisCodeToolsDefsNewNode = 'NewNode'; lisCodeToolsDefsNewNode = 'NewNode';

27
ide/sourcefilemanager.pas
View File

@ -5353,25 +5353,16 @@ end;
function RenameUnit(AnUnitInfo: TUnitInfo; NewFilename, NewUnitName: string; function RenameUnit(AnUnitInfo: TUnitInfo; NewFilename, NewUnitName: string;
var LFMCode, LRSCode: TCodeBuffer): TModalResult; var LFMCode, LRSCode: TCodeBuffer): TModalResult;
var var
NewLFMFilename: String;
OldSourceCode: String;
NewSource: TCodeBuffer; NewSource: TCodeBuffer;
NewFilePath: String; NewLFMFilename, NewLRSFilename: String;
NewLRSFilePath: String; NewFilePath, NewLRSFilePath: String;
OldFilePath: String; OldFilename, OldLFMFilename, OldLRSFilename, OldPPUFilename: String;
OldLRSFilePath: String; OldFilePath, OldLRSFilePath: String;
OldFilename: String; OldSourceCode, OldUnitPath: String;
NewLRSFilename: String; AmbiguousFilename, OutDir, S: string;
NewHighlighter: TLazSyntaxHighlighter; NewHighlighter: TLazSyntaxHighlighter;
AmbiguousFiles: TStringList; AmbiguousFiles: TStringList;
AmbiguousText: string;
i: Integer; i: Integer;
AmbiguousFilename: String;
OldUnitPath: String;
OldLFMFilename: String;
OldLRSFilename: String;
OldPPUFilename: String;
OutDir: string;
Owners: TFPList; Owners: TFPList;
OldFileExisted: Boolean; OldFileExisted: Boolean;
ConvTool: TConvDelphiCodeTool; ConvTool: TConvDelphiCodeTool;
@ -5588,11 +5579,11 @@ begin
and (CompareFilenames(OldFilePath,NewFilePath)=0) and (CompareFilenames(OldFilePath,NewFilePath)=0)
and (CompareFilenames(AmbiguousFiles[0],ExtractFilename(OldFilename))=0) and (CompareFilenames(AmbiguousFiles[0],ExtractFilename(OldFilename))=0)
then then
AmbiguousText:=Format(lisDeleteOldFile, [ExtractFilename(OldFilename)]) S:=Format(lisDeleteOldFile, [ExtractFilename(OldFilename)])
else else
AmbiguousText:=Format(lisThereAreOtherFilesInTheDirectoryWithTheSameName, S:=Format(lisThereAreOtherFilesInTheDirectoryWithTheSameName,
[LineEnding, LineEnding, AmbiguousFiles.Text, LineEnding]); [LineEnding, LineEnding, AmbiguousFiles.Text, LineEnding]);
Result:=IDEMessageDialog(lisAmbiguousFilesFound, AmbiguousText, Result:=IDEMessageDialog(lisAmbiguousFilesFound, S,
mtWarning,[mbYes,mbNo,mbAbort]); mtWarning,[mbYes,mbNo,mbAbort]);
if Result=mrAbort then exit; if Result=mrAbort then exit;
if Result=mrYes then begin if Result=mrYes then begin