Changeset 51 for trunk/IDE

Timestamp:

Apr 6, 2012, 9:43:56 AM (13 years ago)

Author:

chronos

Message:

• Added: Project determines which source file is main program source.

Location:

trunk/IDE

Files:

• Forms/UFormMain.pas (modified) (1 diff)
• UProject.pas (modified) (3 diffs)
• UProjectTemplates.pas (modified) (4 diffs)

trunk/IDE/Forms/UFormMain.pas

@@ -250 +250 @@
       Compiler.SourceFiles.Clear;
       Project.Files.DumpFileList(Compiler.SourceFiles);
+      Compiler.MainSource := Project.MainSource.AbsoluteFileName;
       TargetProject.FileName := ExtractFileDir(Project.FileName) + DirectorySeparator +
         Compiler.CompiledFolder + DirectorySeparator + Compiler.Target.Name +

trunk/IDE/UProject.pas

@@ -357 +357 @@
     NewNode := Doc.DocumentElement.FindNode('MainSource');
     if Assigned(NewNode) then begin
-      MainSourceName := UTF8Encode(NewNode.TextSource);
-
+      MainSourceName := UTF8Encode(NewNode.TextContent);
+      MainSource := Files.SearchFile(MainSourceName);
     end;
 
@@ -385 +385 @@
     with RootNode do begin
       NewNode := CreateElement('MainSource');
-      NewNode.TextContent := UTF8Decode(MainSource.FileName);
+      if Assigned(MainSource) then
+        NewNode.TextContent := UTF8Decode(MainSource.FileName);
       AppendChild(NewNode);
 
@@ -419 +420 @@
   Files.Clear;
   Packages.Clear;
+  MainSource := nil;
 end;
 

trunk/IDE/UProjectTemplates.pas

@@ -64 +64 @@
     Add('end.');
   end;
+  Project.MainSource := NewFile;
 end;
 
@@ -88 +89 @@
     Add('end.');
   end;
+  Project.MainSource := NewFile;
 end;
 
@@ -118 +120 @@
     Add('end.');
   end;
+  Project.MainSource := NewFile;
 end;
 
@@ -140 +143 @@
     Add('end.');
   end;
+  Project.MainSource := NewFile;
 end;