paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-12-29 13:00:34 +01:00
Code Issues Packages Projects Releases Wiki Activity

IDE: remove unused units: undoblock

Browse Source 
git-svn-id: trunk@34247 -
This commit is contained in:
mattias 2011-12-17 14:10:17 +00:00
parent e05554c7fc
commit 964d962382
1 changed files with 10 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
ide/unusedunitsdlg.pas
View File

@ -114,12 +114,17 @@ begin
else
RemoveUnits:=nil;
if (RemoveUnits<>nil) and (RemoveUnits.Count>0) then begin
for i:=0 to RemoveUnits.Count-1 do begin
if not CodeToolBoss.RemoveUnitFromAllUsesSections(Code,RemoveUnits[i])
then begin
LazarusIDE.DoJumpToCodeToolBossError;
exit(mrCancel);
SrcEdit.BeginUndoBlock;
try
for i:=0 to RemoveUnits.Count-1 do begin
if not CodeToolBoss.RemoveUnitFromAllUsesSections(Code,RemoveUnits[i])
then begin
LazarusIDE.DoJumpToCodeToolBossError;
exit(mrCancel);
end;
end;
finally
SrcEdit.EndUndoBlock;
end;
end;
finally