Changeset 66 for trunk/IDE/UCore.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/UCore.pas (modified) (7 diffs)

trunk/IDE/UCore.pas

@@ -13 +13 @@
 
   TCustomCompiler = class(TCompiler)
+    StartTime: TDateTime;
     SourceFiles: TSourceFileManager;
     TargetFiles: TSourceFileManager;
-    procedure LoadFromRegistry(Root: Integer; Key: string);
-    procedure SaveToRegistry(Root: Integer; Key: string);
+    procedure Init; override;
+    function ElapsedTime: TDateTime;
+    procedure LoadFromRegistry(Root: Integer; const Key: string);
+    procedure SaveToRegistry(Root: Integer; const Key: string);
     constructor Create; override;
     destructor Destroy; override;
@@ -46 +49 @@
     procedure ProjectNew;
     procedure CompilerDebugLog(Text: string);
-    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);
   end;
 
@@ -94 +97 @@
   LastOpenedFiles := TLastOpenedList.Create(nil);
   LastOpenedFiles.OnChange := LastOpenedFilesChange;
+
+  ReopenLastOpenedFile := True;
+  LogParsing := False;
 end;
 
@@ -136 +142 @@
 end;
 
-procedure TCore.LoadFromRegistry(Root: Integer; Key: string);
+procedure TCore.LoadFromRegistry(Root: Integer; const Key: string);
 begin
   with TGeneralRegistry.Create(nil) do
@@ -162 +168 @@
 end;
 
-procedure TCore.SaveToRegistry(Root: Integer; Key: string);
+procedure TCore.SaveToRegistry(Root: Integer; const Key: string);
 begin
   with TGeneralRegistry.Create(nil) do
@@ -186 +192 @@
 { TCustomCompiler }
 
-procedure TCustomCompiler.LoadFromRegistry(Root: Integer; Key: string);
+procedure TCustomCompiler.Init;
+begin
+  inherited;
+  StartTime := Now;
+end;
+
+function TCustomCompiler.ElapsedTime: TDateTime;
+begin
+  Result := Now - StartTime;
+end;
+
+procedure TCustomCompiler.LoadFromRegistry(Root: Integer; const Key: string);
 var
   I: Integer;
@@ -208 +225 @@
 end;
 
-procedure TCustomCompiler.SaveToRegistry(Root: Integer; Key: string);
+procedure TCustomCompiler.SaveToRegistry(Root: Integer; const Key: string);
 var
   I: Integer;