From 96cadebf6ec39d0372f3b662b26c9299e8a5ac54 Mon Sep 17 00:00:00 2001
From: juha <juha@lazarus-ide.org>
Date: Sun, 25 Aug 2013 10:26:49 +0000
Subject: [PATCH] Converter: tweak messages

git-svn-id: trunk@42493 -
---
 converter/convertdelphi.pas | 12 ++++--------
 ide/lazarusidestrconsts.pas |  2 +-
 2 files changed, 5 insertions(+), 9 deletions(-)

diff --git a/converter/convertdelphi.pas b/converter/convertdelphi.pas
index e59c581059..0b0f9042b5 100644
--- a/converter/convertdelphi.pas
+++ b/converter/convertdelphi.pas
@@ -1602,10 +1602,6 @@ begin
   MisUnits:=nil;
   NormalUnits:=nil;
   try
-    fSettings.AddLogLine('');
-    fSettings.AddLogLine(lisConvDelphiFindAllUnitFiles);
-    DebugLn('');
-    DebugLn('TConvertDelphiProject.FindAllUnits: '+lisConvDelphiFindAllUnitFiles);
     if not CodeToolBoss.FindDelphiProjectUnits(fMainUnitConverter.fPascalBuffer,
                                          FoundUnits, MisUnits, NormalUnits) then
     begin
@@ -1615,6 +1611,8 @@ begin
       exit(mrCancel);
     end;
     try        // Add all units to the project
+      fSettings.AddLogLine(lisConvDelphiFoundAllUnitFiles);
+      DebugLn('TConvertDelphiProject.FindAllUnits: '+lisConvDelphiFoundAllUnitFiles);
       for i:=0 to FoundUnits.Count-1 do begin
         CurFilename:=FoundUnits[i];
         p:=System.Pos(' in ',CurFilename);
@@ -1942,10 +1940,6 @@ begin
   MisUnits:=nil;
   NormalUnits:=nil;
   try
-    fSettings.AddLogLine('');
-    fSettings.AddLogLine(lisConvDelphiFindAllUnitFiles);
-    DebugLn('');
-    DebugLn('TConvertDelphiPackage.FindAllUnits: '+lisConvDelphiFindAllUnitFiles);
     if not CodeToolBoss.FindDelphiPackageUnits(fMainUnitConverter.fPascalBuffer,
                                          FoundUnits, MisUnits, NormalUnits) then
     begin
@@ -1955,6 +1949,8 @@ begin
       exit(mrCancel);
     end;
     try
+      fSettings.AddLogLine(lisConvDelphiFoundAllUnitFiles);
+      DebugLn('TConvertDelphiPackage.FindAllUnits: '+lisConvDelphiFoundAllUnitFiles);
       // Add all units to the package
       for i:=0 to FoundUnits.Count-1 do begin
         CurFilename:=FoundUnits[i];
diff --git a/ide/lazarusidestrconsts.pas b/ide/lazarusidestrconsts.pas
index fc3d8deeaa..6be209b30b 100644
--- a/ide/lazarusidestrconsts.pas
+++ b/ide/lazarusidestrconsts.pas
@@ -5424,7 +5424,7 @@ resourcestring
   lisConvDelphiConvertDelphiUnit = 'Convert Delphi unit';
   lisConvDelphiConvertDelphiProject = 'Convert Delphi project';
   lisConvDelphiConvertDelphiPackage = 'Convert Delphi package';
-  lisConvDelphiFindAllUnitFiles = '*** Find all unit files ***';
+  lisConvDelphiFoundAllUnitFiles = 'Found all unit files';
   lisConvDelphiRepairingFormFiles = '*** Fixing used units and Repairing form files ***';
   lisConvDelphiConvertingProjPackUnits = '*** Converting unit files belonging to project/package ***';
   lisConvDelphiConvertingFoundUnits = '*** Converting unit files found during conversion ***';