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

IDE: Improve renaming project files to lowercase further. Issue #10370.

Browse Source
This commit is contained in:
Juha 2024-07-06 11:25:56 +03:00
parent 3d47bef87e
commit ff3175bce6
3 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
ide/lazarusidestrconsts.pas
View File

@ -462,7 +462,7 @@ resourcestring
lisKMViewProjectSource = 'View Project Source';
lisMenuAddToProject = 'Add Editor File to Project';
lisMenuRemoveFromProject = 'Remove from Project ...';
lisMenuRenameLowerCase = 'Rename Units to LowerCase ...';
lisMenuRenameLowerCase = 'Rename Unit Files to LowerCase ...';
lisMenuViewProjectSource = '&View Project Source';
lisMenuProjectOptions = 'Project Options ...';

2
ide/mainbase.pas
View File

@ -1270,7 +1270,7 @@ begin
ParentMI:=itmProjectAddRemoveSection;
CreateMenuItem(ParentMI,itmProjectAddTo,'itmProjectAddTo',lisMenuAddToProject, 'menu_project_add');
CreateMenuItem(ParentMI,itmProjectRemoveFrom,'itmProjectRemoveFrom',lisMenuRemoveFromProject, 'menu_project_remove');
CreateMenuItem(ParentMI,itmProjectRenameLowerCase,'itmProjectRenameLowerCase',lisMenuRenameLowerCase, 'menu_search_replace');
CreateMenuItem(ParentMI,itmProjectRenameLowerCase,'itmProjectRenameLowerCase',lisMenuRenameLowerCase, 'menu_edit_lowercase');
CreateMenuItem(ParentMI,itmProjectViewUnits,'itmProjectViewUnits',lisMenuViewUnits, 'menu_view_units');
CreateMenuItem(ParentMI,itmProjectViewForms,'itmProjectViewForms',lisMenuViewForms, 'menu_view_forms');
CreateMenuItem(ParentMI,itmProjectViewSource,'itmProjectViewSource',lisMenuViewProjectSource, 'item_project_source');

3
ide/sourcefilemanager.pas
View File

@ -1935,12 +1935,15 @@ begin
AnUnitInfo:=TUnitInfo(fUnitInfos[i]);
Assert(AnUnitInfo.IsPartOfProject, 'TRenameFilesSelector.ActionForFiles: '
+ AnUnitInfo.Unit_Name + ' is not part of project');
if AnUnitInfo.Source=nil then
AnUnitInfo.ReadUnitSource(false,false);
// Marked here means to remove old files silently.
AnUnitInfo.Marked:=True;
Result:=RenameUnitLowerCase(AnUnitInfo, false);
AnUnitInfo.Marked:=False;
if Result<>mrOK then exit;
end;
ShowMessage(Format('%d files were renamed to lowercase.', [fUnitInfos.Count]));
end;
// ---