Changeset 74 for branches/Transpascal/Forms

Timestamp:

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

Author:

george

Message:

• Minor fixes.

Location:

branches/Transpascal/Forms

Files:

• UMainForm.pas (modified) (1 diff)
• UProjectManager.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;
 

branches/Transpascal/Forms/UProjectManager.pas

@@ -41 +41 @@
     if TProjectNode(Node.Data) is TProjectFile then begin
       SynEditSource.Lines.Assign(TProjectFile(Node.Data).Source);
-      FileName := Compiler.CompiledFolder + DirectorySeparator +
+      FileName := Compiler.TargetFolder + DirectorySeparator +
+        Compiler.CompiledFolder + DirectorySeparator +
         Compiler.Producer.ClassName + DirectorySeparator + ExtractFileNameOnly(TProjectFile(Node.Data).Name) + Compiler.Producer.FileExtension;
         if FileExists(FileName) then