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

IDE: Cleanup TMainIDE.ProjInspectorAddUnitToProject.

Browse Source 
git-svn-id: trunk@64868 -
This commit is contained in:
juha 2021-03-25 06:35:36 +00:00
parent 4f0c4c7dea
commit c82249be2a
2 changed files with 7 additions and 10 deletions

3
ide/lazarus.lpi
View File

@ -941,6 +941,7 @@
<Filename Value="projectinspector.pas"/>
<IsPartOfProject Value="True"/>
<HasResources Value="True"/>
<UnitName Value="ProjectInspector"/>
</Unit145>
<Unit146>
<Filename Value="diskdiffsdialog.pas"/>
@ -983,6 +984,7 @@
<Filename Value="buildmodesmanager.pas"/>
<IsPartOfProject Value="True"/>
<HasResources Value="True"/>
<UnitName Value="BuildModesManager"/>
</Unit153>
<Unit154>
<Filename Value="codetoolsdefpreview.pas"/>
@ -1231,6 +1233,7 @@
<Unit201>
<Filename Value="ideoptiondefs.pas"/>
<IsPartOfProject Value="True"/>
<UnitName Value="IDEOptionDefs"/>
</Unit201>
<Unit202>
<Filename Value="sourceeditprocs.pas"/>

14
ide/main.pp
View File

@ -12607,23 +12607,19 @@ function TMainIDE.ProjInspectorAddUnitToProject(Sender: TObject;
var
ActiveSourceEditor: TSourceEditor;
ActiveUnitInfo: TUnitInfo;
ShortUnitName: String;
OkToAdd: boolean;
begin
Result:=mrOk;
AnUnitInfo.IsPartOfProject:=true;
//debugln(['TMainIDE.ProjInspectorAddUnitToProject ',AnUnitInfo.Filename]);
ActiveSourceEditor:=nil;
BeginCodeTool(ActiveSourceEditor,ActiveUnitInfo,[]);
OkToAdd:=True;
if FilenameHasPascalExt(AnUnitInfo.Filename) then begin
OkToAdd:=CheckDirIsInSearchPath(AnUnitInfo,False);
CheckDirIsInSearchPath(AnUnitInfo,False);
if (pfMainUnitHasUsesSectionForAllUnits in Project1.Flags) then begin
AnUnitInfo.ReadUnitNameFromSource(false);
ShortUnitName:=AnUnitInfo.Unit_Name;
if (ShortUnitName<>'') then begin
if (AnUnitInfo.Unit_Name<>'') then begin
if CodeToolBoss.AddUnitToMainUsesSectionIfNeeded(
Project1.MainUnitInfo.Source,ShortUnitName,'') then begin
Project1.MainUnitInfo.Source, AnUnitInfo.Unit_Name, '') then begin
ApplyCodeToolChanges;
Project1.MainUnitInfo.Modified:=true;
end else begin
@ -12634,9 +12630,7 @@ begin
end;
end
else if FilenameExtIs(AnUnitInfo.Filename,'inc') then
OkToAdd:=CheckDirIsInSearchPath(AnUnitInfo,True);
if OkToAdd then
;
CheckDirIsInSearchPath(AnUnitInfo,True);
Project1.Modified:=true;
end;