Changeset 74 for branches/Transpascal/Forms/UMainForm.pas

Timestamp:

Oct 20, 2010, 1:57:17 PM (14 years ago)

Author:

george

Message:

• Minor fixes.

File:

• branches/Transpascal/Forms/UMainForm.pas (modified) (1 diff)

branches/Transpascal/Forms/UMainForm.pas

@@ -108 +108 @@
   if Project.Items.Count > 0 then
   with TProjectFile(Project.Items[0]) do begin
-    Compiler.Compile(Parent.GetDir + Name, Source, Project.RootDir);
+    Compiler.TargetFolder := Project.RootDir;
+    Compiler.Compile(Parent.GetDir + Name, Source);
   end;