From d35aef1e381e03be60498690d01e7fec3f21e5b2 Mon Sep 17 00:00:00 2001
From: juha <juha@lazarus-ide.org>
Date: Sun, 13 Feb 2011 12:25:21 +0000
Subject: [PATCH] Converter: improve setting IsMainFile and IsConsoleApp
 properties.

git-svn-id: trunk@29517 -
---
 converter/convertdelphi.pas | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/converter/convertdelphi.pas b/converter/convertdelphi.pas
index 680d7507e6..eec738fcac 100644
--- a/converter/convertdelphi.pas
+++ b/converter/convertdelphi.pas
@@ -1287,7 +1287,7 @@ begin
     ConvTool.Free;
   end;
   with fMainUnitConverter do begin
-    fUsedUnitsTool.IsMainFile:=MainName=fLazUnitFilename;
+    fUsedUnitsTool.IsMainFile:=True;
     fUsedUnitsTool.IsConsoleApp:=fIsConsoleApp;
     Result:=LazarusIDE.DoOpenEditorFile(fLazUnitFilename,0,0,[ofQuiet]);
     if Result<>mrOK then exit;
@@ -1423,6 +1423,7 @@ var
     Converter: TConvertDelphiUnit;
   begin
     Converter:=TConvertDelphiUnit.Create(Self, AUnitInfo.Filename,[]);
+    Converter.fUsedUnitsTool.IsConsoleApp:=fIsConsoleApp;
     Converter.fUnitInfo:=AUnitInfo;
     ConvUnits.Add(Converter);
     Result:=Converter.CopyAndLoadFile;