Changeset 29 for trunk/UCore.pas

Timestamp:

Dec 22, 2016, 9:46:17 PM (8 years ago)

Author:

chronos

Message:

• Modified: Load image data from file quickly using Bitmap RawImage.
• Modified: Remember last selected color format.

File:

• trunk/UCore.pas (modified) (7 diffs)

trunk/UCore.pas

@@ -7 +7 @@
 uses
   Classes, SysUtils, FileUtil, ActnList, UProject, UFGraphics, UPersistentForm,
-  Controls, Graphics, ExtDlgs, ExtCtrls, UREgistry, UApplicationInfo, Registry;
+  Controls, Graphics, ExtDlgs, ExtCtrls, URegistry, UApplicationInfo, Registry;
 
 const
@@ -62 +62 @@
   private
   public
+    LastColorFormat: string;
     Project: TProject;
+    RegistryContext: TRegistryContext;
     procedure ProjectOpen(FileName: string);
     procedure Init;
+    procedure LoadConfig;
+    procedure SaveConfig;
   end;
 
@@ -88 +92 @@
 procedure TCore.DataModuleCreate(Sender: TObject);
 begin
+  RegistryContext := RegContext(HKEY(ApplicationInfo1.RegistryRoot),
+    ApplicationInfo1.RegistryKey);
   Project := TProject.Create;
 end;
@@ -93 +99 @@
 procedure TCore.DataModuleDestroy(Sender: TObject);
 begin
-  Project.Free;
+  FreeAndNil(Project);
+  SaveConfig;
 end;
 
@@ -103 +110 @@
   Image := TImage.Create(nil);
   Image.Picture.LoadFromFile(FileName);
-  Image.Picture.Bitmap.BeginUpdate(True);
+  //Image.Picture.Bitmap.BeginUpdate(True);
   Project.Bitmap.Size := Point(Image.Picture.Bitmap.Width, Image.Picture.Bitmap.Height);
-  Project.Bitmap.LoadFromCanvas(Image.Picture.Bitmap.Canvas);
-  Image.Picture.Bitmap.EndUpdate;
+  //Project.Bitmap.LoadFromCanvas(Image.Picture.Bitmap.Canvas);
+  Project.Bitmap.LoadFromBitmap(Image.Picture.Bitmap);
+  //Image.Picture.Bitmap.EndUpdate;
   Image.Free;
   AZoomAll.Execute;
@@ -115 +123 @@
 procedure TCore.Init;
 begin
-  PersistentForm1.RegistryContext := RegContext(HKEY(ApplicationInfo1.RegistryRoot),
-    ApplicationInfo1.RegistryKey);
+  PersistentForm1.RegistryContext := RegistryContext;
+  LoadConfig;
 
   // Set default
@@ -123 +131 @@
   Project.View.DestRect := Bounds(0, 0, FormMain.PaintBox1.Width, FormMain.PaintBox1.Height);
   Core.AZoomAll.Execute;
+end;
+
+procedure TCore.LoadConfig;
+begin
+  with TRegistryEx.Create do
+  try
+    RootKey := RegistryContext.RootKey;
+    OpenKey(RegistryContext.Key, True);
+
+    LastColorFormat := ReadStringWithDefault('LastColorFormat', '');
+  finally
+    Free;
+  end;
+end;
+
+procedure TCore.SaveConfig;
+begin
+  with TRegistryEx.Create do
+  try
+    RootKey := RegistryContext.RootKey;
+    OpenKey(RegistryContext.Key, True);
+
+    WriteString('LastColorFormat', LastColorFormat);
+  finally
+    Free;
+  end;
 end;