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

IDE: optimize a little + format.

Browse Source 
git-svn-id: trunk@48808 -
This commit is contained in:
juha 2015-04-21 17:30:07 +00:00
parent abea0c63d2
commit ec2f4559ce
2 changed files with 12 additions and 20 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
ide/projectinspector.pas
View File

@ -1151,8 +1151,7 @@ begin
Result:=TPkgDependency(Item);
end;
function TProjectInspectorForm.TreeViewToInspector(TV: TTreeView
): TProjectInspectorForm;
function TProjectInspectorForm.TreeViewToInspector(TV: TTreeView): TProjectInspectorForm;
begin
if TV=ItemsTreeView then
Result:=Self
@ -1185,14 +1184,12 @@ begin
ProjInspector:=nil;
end;
function TProjectInspectorForm.ExtendIncSearchPath(NewIncPaths: string
): boolean;
function TProjectInspectorForm.ExtendIncSearchPath(NewIncPaths: string): boolean;
begin
Result:=MainIDEInterface.ExtendProjectIncSearchPath(LazProject,NewIncPaths);
end;
function TProjectInspectorForm.ExtendUnitSearchPath(NewUnitPaths: string
): boolean;
function TProjectInspectorForm.ExtendUnitSearchPath(NewUnitPaths: string): boolean;
begin
Result:=MainIDEInterface.ExtendProjectUnitSearchPath(LazProject,NewUnitPaths);
end;

23
ide/sourcefilemanager.pas
View File

@ -1990,10 +1990,8 @@ begin
WasVirtual:=AnUnitInfo.IsVirtual;
WasPascalSource:=FilenameIsPascalSource(AnUnitInfo.Filename);
// if this file is part of the project and the project is virtual then save
// project first
if (not (sfProjectSaving in Flags)) and Project1.IsVirtual
and AnUnitInfo.IsPartOfProject then
// if this file is part of a virtual project then save the project first
if (not (sfProjectSaving in Flags)) and Project1.IsVirtual and AnUnitInfo.IsPartOfProject then
begin
SaveProjectFlags:=Flags*[sfSaveToTestDir];
if AnUnitInfo=Project1.MainUnitInfo then
@ -2020,10 +2018,8 @@ begin
MacroListViewer.UpdateDisplay;
AnUnitInfo.ClearModifieds;
AEditor.Modified:=false;
Result := mrOK;
exit;
end;
// unknown internal file => skip
// otherwise unknown internal file => skip
exit(mrOk);
end;
@ -2058,8 +2054,7 @@ begin
end;
// check if file is writable on disk
if (not AnUnitInfo.IsVirtual)
and FileExistsUTF8(AnUnitInfo.Filename) then
if (not AnUnitInfo.IsVirtual) and FileExistsUTF8(AnUnitInfo.Filename) then
AnUnitInfo.FileReadOnly:=not FileIsWritable(AnUnitInfo.Filename)
else
AnUnitInfo.FileReadOnly:=false;
@ -2159,8 +2154,7 @@ begin
NewUnitName:=AnUnitInfo.ParseUnitNameFromSource(true);
NewFilename:=AnUnitInfo.Filename;
if (NewUnitName<>'')
and ((OldUnitName<>NewUnitName)
or (CompareFilenames(OldFilename,NewFilename)<>0))
and ((OldUnitName<>NewUnitName) or (CompareFilenames(OldFilename,NewFilename)<>0))
then begin
if EnvironmentOptions.UnitRenameReferencesAction<>urraNever then
begin
@ -7477,10 +7471,11 @@ var
OnlyEditorFiles: Boolean;
aFilename: String;
begin
if (CompareFilenames(OldFilename,NewFilename)=0)
and (OldUnitName=NewUnitName) then // compare unitnames case sensitive, maybe only the case changed
// compare unitnames case sensitive, maybe only the case changed
if (CompareFilenames(OldFilename,NewFilename)=0) and (OldUnitName=NewUnitName) then
exit(mrOk);
OnlyEditorFiles:=not FilenameIsAbsolute(OldFilename); // this was a new file, files on disk can not refer to it
// this was a new file, files on disk can not refer to it
OnlyEditorFiles:=not FilenameIsAbsolute(OldFilename);
OwnerList:=nil;
OldCode:=nil;