Changeset 66 for trunk/IDE/Forms

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.

Location:

trunk/IDE/Forms

Files:

• UFormMain.lfm (modified) (1 diff)
• UFormMain.pas (modified) (7 diffs)
• UFormMessages.pas (modified) (2 diffs)

trunk/IDE/Forms/UFormMain.lfm

@@ -1 +1 @@
 object FormMain: TFormMain
-  Left = 140
+  Left = 202
   Height = 501
-  Top = 52
+  Top = 62
   Width = 695
   Caption = 'Transpascal IDE'

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

trunk/IDE/Forms/UFormMessages.pas

@@ -54 +54 @@
   with Core, FormMain, FormSourceCode do
   with TErrorMessage(Compiler.ErrorMessages[Item.Index]) do begin
-    Item.Caption := FileName;
+    if FileName = '' then Item.Caption := ' '
+      else Item.Caption := FileName;
     Item.Data := Compiler.ErrorMessages[Item.Index];
     Item.SubItems.Add(IntToStr(Position.X) + ',' + IntToStr(Position.Y));
@@ -69 +70 @@
   with Core, FormSourceCode do
   if Assigned(ListView1.Selected) then
-  with TErrorMessage(ListView1.Selected.Data) do begin
+  with TErrorMessage(ListView1.Selected.Data) do
+  if FileName <> '' then begin
     ProjectFile := Project.Files.SearchFile(FileName);
     if Assigned(ProjectFile) then