forks
/
dexed
mirror of https://gitlab.com/basile.b/dexed.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

improved performance on update

This commit is contained in:
Basile Burg 2015-01-26 09:55:03 +01:00
parent 517f597505
commit 18ca120a8f
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/ce_projinspect.pas
View File

@ -177,7 +177,7 @@ begin
end; end;
{$ENDREGION} {$ENDREGION}
{$REGION Insêctor things -------------------------------------------------------} {$REGION Inspector things -------------------------------------------------------}
procedure TCEProjectInspectWidget.TreeKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); procedure TCEProjectInspectWidget.TreeKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
begin begin
if Key = VK_RETURN then if Key = VK_RETURN then
@ -333,6 +333,7 @@ begin
fInclNode.DeleteChildren; fInclNode.DeleteChildren;
fXtraNode.DeleteChildren; fXtraNode.DeleteChildren;
if fProject = nil then exit; if fProject = nil then exit;
Tree.BeginUpdate;
// display main sources // display main sources
for src in fProject.Sources do for src in fProject.Sources do
begin begin
@ -390,6 +391,7 @@ begin
end; end;
end; end;
fXtraNode.Collapse(false); fXtraNode.Collapse(false);
Tree.EndUpdate;
end; end;
{$ENDREGION --------------------------------------------------------------------} {$ENDREGION --------------------------------------------------------------------}