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

Converter: Better title for unit replacement grid.

Browse Source 
git-svn-id: trunk@26345 -
This commit is contained in:
juha 2010-06-30 09:53:56 +00:00
parent 07f5ce2d95
commit 9e1d9075fb
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
converter/convertdelphi.pas
View File

@ -767,7 +767,7 @@ begin
end; end;
if not fSettings.AutoReplaceUnits then begin if not fSettings.AutoReplaceUnits then begin
// Edit, then remove or replace units. // Edit, then remove or replace units.
Result:=EditMap(MapToEdit, 'Units to rename or remove.'); Result:=EditMap(MapToEdit, 'Units to replace in '+ExtractFileName(fOrigUnitFilename));
if Result<>mrOK then exit; if Result<>mrOK then exit;
// Iterate the map and rename / remove. // Iterate the map and rename / remove.
Node:=MapToEdit.Tree.FindLowest; Node:=MapToEdit.Tree.FindLowest;