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

IDE: Simplify Project Inspector code

Browse Source 
git-svn-id: trunk@34551 -
This commit is contained in:
juha 2012-01-03 12:41:42 +00:00
parent b55334cf9d
commit 4244e9702c
1 changed files with 4 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
ide/projectinspector.pas
View File

@ -78,7 +78,6 @@ type
TProjectInspectorFlag = ( TProjectInspectorFlag = (
pifAllChanged, pifAllChanged,
pifItemsChanged, pifItemsChanged,
pifFilesChanged,
pifButtonsChanged, pifButtonsChanged,
pifTitleChanged pifTitleChanged
); );
@ -153,7 +152,7 @@ type
procedure SetSortAlphabetically(const AValue: boolean); procedure SetSortAlphabetically(const AValue: boolean);
procedure SetupComponents; procedure SetupComponents;
function ChooseImageIndex(Str: String; Data: TObject; var AIsEnabled: Boolean): Integer; function ChooseImageIndex(Str: String; Data: TObject; var AIsEnabled: Boolean): Integer;
procedure UpdateProjectFiles(Immediately: boolean); procedure UpdateProjectFiles;
procedure UpdateRequiredPackages; procedure UpdateRequiredPackages;
procedure OnProjectBeginUpdate(Sender: TObject); procedure OnProjectBeginUpdate(Sender: TObject);
procedure OnProjectEndUpdate(Sender: TObject; ProjectChanged: boolean); procedure OnProjectEndUpdate(Sender: TObject; ProjectChanged: boolean);
@ -479,7 +478,7 @@ begin
end; end;
if HasChanged then begin if HasChanged then begin
LazProject.Modified:=true; LazProject.Modified:=true;
UpdateProjectFiles(false); UpdateProjectFiles;
end; end;
end; end;
@ -624,18 +623,12 @@ begin
end; end;
end; end;
procedure TProjectInspectorForm.UpdateProjectFiles(Immediately: boolean); procedure TProjectInspectorForm.UpdateProjectFiles;
var var
CurFile: TUnitInfo; CurFile: TUnitInfo;
FilesBranch: TTreeFilterBranch; FilesBranch: TTreeFilterBranch;
Filename: String; Filename: String;
begin begin
if (not Immediately) or (FUpdateLock>0) or (not Visible) then begin
Include(FFlags,pifFilesChanged);
IdleConnected:=true;
exit;
end;
Exclude(FFlags,pifFilesChanged);
if LazProject=nil then Exit; if LazProject=nil then Exit;
FilesBranch:=FilterEdit.GetBranch(FFilesNode); FilesBranch:=FilterEdit.GetBranch(FFilesNode);
FilterEdit.SelectedPart:=FNextSelectedPart; FilterEdit.SelectedPart:=FNextSelectedPart;
@ -732,8 +725,6 @@ begin
UpdateAll(true) UpdateAll(true)
else if pifItemsChanged in FFlags then else if pifItemsChanged in FFlags then
UpdateItems(true) UpdateItems(true)
else if pifFilesChanged in FFlags then
UpdateProjectFiles(true)
else if pifTitleChanged in FFlags then else if pifTitleChanged in FFlags then
UpdateTitle UpdateTitle
else if pifButtonsChanged in FFlags then else if pifButtonsChanged in FFlags then
@ -886,7 +877,7 @@ begin
end; end;
Exclude(FFlags,pifItemsChanged); Exclude(FFlags,pifItemsChanged);
ItemsTreeView.BeginUpdate; ItemsTreeView.BeginUpdate;
UpdateProjectFiles(true); UpdateProjectFiles;
UpdateRequiredPackages; UpdateRequiredPackages;
ItemsTreeView.EndUpdate; ItemsTreeView.EndUpdate;
end; end;