Changeset 66 for trunk/IDE/Forms/UFormMain.pas

Timestamp:

Jul 19, 2012, 8:16:57 AM (12 years ago)

Author:

chronos

Message:

• Added: Information text about completion of build process including elapsed time.

File:

• trunk/IDE/Forms/UFormMain.pas (modified) (7 diffs)

trunk/IDE/Forms/UFormMain.pas

@@ -8 +8 @@
   SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls,
   ComCtrls, ExtCtrls, SynEdit, SynHighlighterPas,
-  UProject, FileUtil, Menus, ActnList,
-  UFormTargetCode, UFormCodeTree, UGeneralRegistry, UApplicationInfo;
+  UProject, FileUtil, Menus, ActnList, DateUtils,
+  UFormTargetCode, UFormCodeTree, UGeneralRegistry;
 
 type
@@ -146 +146 @@
     procedure ProducerProcessOutput(Text: string);
   public
-    procedure LoadFromRegistry(Root: Integer; Key: string);
-    procedure SaveToRegistry(Root: Integer; Key: string);
+    procedure LoadFromRegistry(Root: Integer; const Key: string);
+    procedure SaveToRegistry(Root: Integer; const Key: string);
     procedure OpenRecentClick(Sender: TObject);
     function GetSource(Name: string; var SourceCode: string): Boolean;
@@ -165 +165 @@
   UFormTargets, UTarget, UExecutor, UFormProjectNew,
   UFormTargetProject, UFormExternalProducerOutput;
+
+resourcestring
+  SBuildFinished = 'Build finished in %s seconds';
 
 { TFormMain }
@@ -192 +195 @@
       Compiler.Compile;
       TargetProject.Files.LoadFromList(Compiler.TargetFiles.Files);
-      TargetProject.MainSource := TProjectFile(TargetProject.Files.First);
+      if TargetProject.Files.Count > 0 then
+        TargetProject.MainSource := TProjectFile(TargetProject.Files.First);
       FormTargetProject.UpdateInterface;
 
@@ -203 +207 @@
     end;
     FormProject.TreeViewProjectChange(Self, FormProject.TreeViewProject.Selected);
+    Compiler.ErrorMessage(Format(SBuildFinished, [FloatToStrF(Compiler.ElapsedTime / OneSecond, ffGeneral, 3, 10)]), Point(0, 0), '');
     FormMessages.Reload;
   end;
@@ -397 +402 @@
 end;
 
-procedure TFormMain.LoadFromRegistry(Root: Integer; Key: string);
+procedure TFormMain.LoadFromRegistry(Root: Integer; const Key: string);
 begin
   with TGeneralRegistry.Create(nil) do
@@ -414 +419 @@
 end;
 
-procedure TFormMain.SaveToRegistry(Root: Integer; Key: string);
+procedure TFormMain.SaveToRegistry(Root: Integer; const Key: string);
 begin
   with TGeneralRegistry.Create(nil) do