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

Timestamp:

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

Author:

george

Message:

• Minor fixes.

File:

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

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