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

Converter: tweak messages

Browse Source 
git-svn-id: trunk@42493 -
This commit is contained in:
juha 2013-08-25 10:26:49 +00:00
parent 01d108a107
commit 96cadebf6e
2 changed files with 5 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
converter/convertdelphi.pas
View File

@ -1602,10 +1602,6 @@ begin
MisUnits:=nil; MisUnits:=nil;
NormalUnits:=nil; NormalUnits:=nil;
try try
fSettings.AddLogLine('');
fSettings.AddLogLine(lisConvDelphiFindAllUnitFiles);
DebugLn('');
DebugLn('TConvertDelphiProject.FindAllUnits: '+lisConvDelphiFindAllUnitFiles);
if not CodeToolBoss.FindDelphiProjectUnits(fMainUnitConverter.fPascalBuffer, if not CodeToolBoss.FindDelphiProjectUnits(fMainUnitConverter.fPascalBuffer,
FoundUnits, MisUnits, NormalUnits) then FoundUnits, MisUnits, NormalUnits) then
begin begin
@ -1615,6 +1611,8 @@ begin
exit(mrCancel); exit(mrCancel);
end; end;
try // Add all units to the project try // Add all units to the project
fSettings.AddLogLine(lisConvDelphiFoundAllUnitFiles);
DebugLn('TConvertDelphiProject.FindAllUnits: '+lisConvDelphiFoundAllUnitFiles);
for i:=0 to FoundUnits.Count-1 do begin for i:=0 to FoundUnits.Count-1 do begin
CurFilename:=FoundUnits[i]; CurFilename:=FoundUnits[i];
p:=System.Pos(' in ',CurFilename); p:=System.Pos(' in ',CurFilename);
@ -1942,10 +1940,6 @@ begin
MisUnits:=nil; MisUnits:=nil;
NormalUnits:=nil; NormalUnits:=nil;
try try
fSettings.AddLogLine('');
fSettings.AddLogLine(lisConvDelphiFindAllUnitFiles);
DebugLn('');
DebugLn('TConvertDelphiPackage.FindAllUnits: '+lisConvDelphiFindAllUnitFiles);
if not CodeToolBoss.FindDelphiPackageUnits(fMainUnitConverter.fPascalBuffer, if not CodeToolBoss.FindDelphiPackageUnits(fMainUnitConverter.fPascalBuffer,
FoundUnits, MisUnits, NormalUnits) then FoundUnits, MisUnits, NormalUnits) then
begin begin
@ -1955,6 +1949,8 @@ begin
exit(mrCancel); exit(mrCancel);
end; end;
try try
fSettings.AddLogLine(lisConvDelphiFoundAllUnitFiles);
DebugLn('TConvertDelphiPackage.FindAllUnits: '+lisConvDelphiFoundAllUnitFiles);
// Add all units to the package // Add all units to the package
for i:=0 to FoundUnits.Count-1 do begin for i:=0 to FoundUnits.Count-1 do begin
CurFilename:=FoundUnits[i]; CurFilename:=FoundUnits[i];

2
ide/lazarusidestrconsts.pas
View File

@ -5424,7 +5424,7 @@ resourcestring
lisConvDelphiConvertDelphiUnit = 'Convert Delphi unit'; lisConvDelphiConvertDelphiUnit = 'Convert Delphi unit';
lisConvDelphiConvertDelphiProject = 'Convert Delphi project'; lisConvDelphiConvertDelphiProject = 'Convert Delphi project';
lisConvDelphiConvertDelphiPackage = 'Convert Delphi package'; lisConvDelphiConvertDelphiPackage = 'Convert Delphi package';
lisConvDelphiFindAllUnitFiles = '*** Find all unit files ***'; lisConvDelphiFoundAllUnitFiles = 'Found all unit files';
lisConvDelphiRepairingFormFiles = '*** Fixing used units and Repairing form files ***'; lisConvDelphiRepairingFormFiles = '*** Fixing used units and Repairing form files ***';
lisConvDelphiConvertingProjPackUnits = '*** Converting unit files belonging to project/package ***'; lisConvDelphiConvertingProjPackUnits = '*** Converting unit files belonging to project/package ***';
lisConvDelphiConvertingFoundUnits = '*** Converting unit files found during conversion ***'; lisConvDelphiConvertingFoundUnits = '*** Converting unit files found during conversion ***';